Giáo án Tin Học lớp 8 Ban Tự Nhiên: Bài 7: CÂU LỆNH LẶP (tt) ppt

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 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.


Cú pháp câu lệnh lặp với số lần
biết trước trong Pascal.
for<biến đếm>:= <giá trị đầu>
to <giá trị cuối> do <câu lệnh>
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.

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ớ






Cho hs nhận xét và so sánh sự

khác nhau ở câu 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 ;




10 chữ O rơi từ trên xuống.

ues crt;
var i:integer;
begin
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 để làm gì ?
S:= S+i;
writeln(‘Tong cua’, N, ‘so tư
nhien dau tien S
= ‘, S);
readln;
end.
*Kiểu longint cú phạm vi từ -2
31

đến 2
31

– 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;
P:longint;
begin
write(‘Nhap so N = ‘);
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?


readln(N);
P:= 1;
for i:= 1 to N do
P:= P*i;
writeln( N, ‘! = ‘, P);
readln;
end.