Giáo án Tin học lớp 8 - Bài 7: Câu lệnh lặp (tiếp theo)

 Giáo án tin học lớp 8 
Bài 7: CÂU LỆNH LẶP (tt) 
I. Mục tiêu : 
 Hiểu hoạt động của câu lệnh với số lần biết trước 
for...do trong Pascal. 
 Viết đúng được lệnh for...do trong một số tình 
huống đơn giản. 
 Hiểu lệnh ghộp trong Pascal 
 Thái độ nghiêm túc cẩn thận. 
II. Chuẩn bị 
 Gv: Soạn giáo án SGK, SBT 
 HS: Vở ghi, SGK, SBT, đọc trước nội dung bài 
học. 
III. Hoạt động dạy học 
1. Ổn định tổ chức lớp : 
- Kiển tra sĩ số : 
- Ổn định trật tự : 
2. Kiểm tra bài cũ : 
Em hãy cho ví dụ về hoạt động được thực hiện 
lặp lại trong cuộc sống hằng ngày 
3. Dạy bài mới : 
Hoạt động 1 : Ví dụ về 
câu lệnh lặp : 
Gv: minh họa bẳng ngụn 
ngữ Pascal cỳ phỏp cõu 
lệnh for … to … do 
 Lưu ý cho hs: 
- biến đếm là biến 
đơn có kiểu 
nguyên; 
- giá trị đầu và giá 
trị cuối là các biểu 
Cú pháp câu lệnh lặp với 
số lần biết trước trong 
Pascal. 
for:= <giá trị 
đầu> to do 
trong đó: for, to, do là các 
từ khóa 
Vd 1: Chương trình in ra 
màn hình thứ tự lần lặp. 
thức có cùng kiểu 
với biến đếm và giá 
trị cuối phải lớn 
hơn giá trị đầu; 
Ccâu lệnh có thể là 
câu lệnh đơn giản hay 
câu lệnh ghép. 
Cho hs nhận xét và so 
sánh sự khác nhau ở câu 
var i:integer; 
begin 
 for i:= 1 to 20 do 
 writeln(‘Day la 
lan lap 
 thu’,i); 
 readln; 
end. 
Vd2: Chương trình ghi 
nhận vị trớ 10 chữ O rơi 
từ trên xuống. 
ues crt; 
var i:integer; 
begin 
lệnh lập trong hai ví dụ 
trên 
Gv: Giải thích cho học 
tại sao vd2 trong câu 
lệnh lặp cú begin … end ; 
 clrscr; 
 for i:= 1 to 20 do 
 begin 
 writeln(‘O’); 
 delay(200); 
 end; 
 readln; 
end. 
*Lưu ý: Câu lệnh có sử 
dụng câu lệnh ghộp thì 
phải đặt trong hai từ khóa 
begin … end; 
Hoạt động 2 : Tính tổng 
và tích bằng câu lệnh 
lặp 
Gv: Trình bày đoạn 
chương trình tính tổng N 
số tự nhiên với N là số 
tự nhiênđược nhập từ bàn 
phím (Pascal) 
Theo cụng thức tính tổng 
ta cần khai bao nhieu 
biến? kiểu biến? 
Trong 2 biến thìbiến nào 
ó giá trị được nhập từ 
bàn phím? 
Vd 1: chương trính tính 
tổng N số tự nhiờn đầu 
tiên, với N là số tự nhiên 
được nhập từ bàn phím. 
S = 1+2+3+ … + N 
program Tinh_tong; 
var N,i:integer; 
 S:longint; 
begin 
 write(‘Nhap so N = 
‘); 
 readln(N); 
 S:= 0; 
 for i:= 1 to N do 
Trong trường hợp dữ liệu 
có kiểu nguyên rất lớn ta 
dùng longint 
Hoạt động 3 : Củng cố: 
1/ Cấu trúc lặp trong 
chương trình dựng để 
 S:= S+i; 
 writeln(‘Tong cua’, 
N, ‘so tư 
 nhien dau tien S = ‘, 
S); 
 readln; 
end. 
*Kiểu longint cú phạm vi 
từ -231 đến 231 – 1. 
Vd 2: chương trình tính 
tích N số tự nhiên , với N 
là số tự nhiên được nhập 
từ bàn phím. 
N! = 1.2.3….N 
program 
Tinh_Giai_Thua; 
var N,i:integer; 
làm gì ? 
2/ Trong ngôn ngữ lập 
trình Pascal cấu trúc lặp 
với số lần lặp cho trước 
được thể hiện với câu 
lệnh nào? 
 P:longint; 
begin 
 write(‘Nhap so N = 
‘); 
 readln(N); 
 P:= 1; 
 for i:= 1 to N do 
 P:= P*i; 
 writeln( N, ‘! = ‘, P); 
 readln; 
end.