Giáo án Tin học lớp 11 - Tiết 16: Luyện tập về cấu trúc lặp thông qua bài tập cuối chương- Năm học 2012-2013 - Nguyễn Thị Thắm

Tiết 16: LUYỆN TẬP VỀ CẤU TRÚC LẶP
 THÔNG QUA BÀI TẬP CUỐI CHƯƠNG
Ngày soạn: 
Ngày dạy:
I/ Mục tiêu: 
	1. Kiến thức: 
Củng cố kiến thức cấu trúc lặp
	2. Kỹ năng:
- Sử dụng cấu trúc lặp trong mô tả thuật toán của một số bài toán đơn giản.
3. Thái độ: Xác định thái độ nghiêm túc trong học tập khi làm quen với nhiều qui định nghiêm ngặt trong lập trình. 
II/ Chuẩn bị: 
- Giáo viên: Giáo án – Sách GK 
- Học sinh: Vở soạn, sách GK, vở học.
III/ Phương pháp truyền thụ: 
Học sinh làm bài tập để củng cố kiến thức.
IV/ Tiến trình lên lớp:
1. Ổn định lớp:Kiểm tra sĩ số 
2. Kiểm tra bài cũ: Lồng vào trong quá trình làm bài tập
V/ Bài mới:
Nội dung
Hoạt động của GV và HS
GV: Gọi 2 hs lên bảng giải câu 5a,5b
GV: Gọi hs khác nhận xét , kiểm tra lại cho điểm học sinh
H?: Câu 5a. Tính tổng n chạy từ 1 đến 50, biết trước số lần lặp là 50 lần. Sử dụng vòng lặp For – do
Gv: Bài 5b là bài khó nên GV hướng dẫn chi tiết để học sinh làm 
GV: Bài 6 là bài tập cổ GV yêu cầu HS đọc đề bài nhiều lần, gọi 1 HS lên xác định bài toán
+ Input: gà + cho = 36 con
 Số chân: 100 chân (gà có 2 chân+chó có 4 chân)
+ Output: Tính bao nhiêu gà, và bao nhiêu cho.
GV: Bài 7: Gọi 1 HS lên xác định bài toán
+ Input: Tuổi cha, tuổi con (tuổi cha – tuổi con >=25)
+ Output: Số năm để tuổi cha gấp đôi tuổi con
Câu 8: Hướng dẫn HS về nhà tự giải, tiết tới kiểm tra vở bài tập
Câu 5:
a/ Program Tong_5a;
Uses crt;
Var Y:real ; n:byte
Begin
Clrscr ;
Y:=0;
For n:=1 to n do
 Y:= Y + n/(n+1);
Writeln(‘Tong Y la: ’, Y:0:18);
Readln;
End.
a/ Program Tong_5b;
Var n:longint ; e,t:real
Begin
t:=1; {t là một thành trong dãy 1/n!)
n:=1; (khởi tạo giá trị ban đầu của n là 1}
e:=1+t; {e = 1 cộng cho 1/n!)
While t>=2*1E-6 do {ĐK 1/n! < 2x 10-6}
 n:=n+1; {tăng n lên 1)
 t:=t+(1/n); {tính 1/n!}
 e:=e+t; {tính tổng e}
Writeln(‘Gia tri cua e(n) la: ’, e:10:6);
Readln;
End.
Câu 6:
 Program Tính_6;
Var ga,cho:byte
Begin
For cho:=1 to 24 do 
Begin 
 ga:=36-cho; 
 if ga + 2* cho = 50 then
Writeln(‘So ga la: ’,ga, ‘so cho la:’,cho);
Readln;
End.
Câu 7:
 Program Tính_7;
 Var tcha, tcon, nam:byte
Begin
Write(‘Nhap tuoi cha và con’); readln(tcha,tcon);
nam:=0;
while tchatcon do 
Begin 
 tch:= tch + 1;
 tcon:=tcon + 1; 
 nam:=nam + 1;
end;
Writeln(‘Sau, nam, ‘ nam, tuoi cha gap doi tuoi con’);
Readln;
End.
VI/ Củng cố:
Nhắc lại cấu trúc lặp
VII/ Dặn dò: 
Chuẩn bị ôn tập kiểm tra học kỳ I
VIII/ Rút kinh nghiệm: