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