Bài giảng Tin học Lớp 8 - Chủ đề 9: Cấu trúc lặp

Tin học 8
Chủ đề 9
CẤU TRÚC LẶP
* Lưu đồ và cú pháp
While (điều kiện) do
begin
câu lệnh 1;
câu lệnh 2;
..
câu lệnh n;
end;
Điều kiện
Câu lệnh
T
F
* Hoạt động 1
HĐ1: Tính tổng 1000 số nguyên đầu tiên bắt đầu từ 1
Var i,tong:longint;
BEGIN
i:=0;
Tong:=0;
While i<=1000 do
Begin
i:=i+1;
tong:=tong+i;
End;
Write(‘Tong tu 1 den 1000 la:’,tong);
Readln;
END.
* Hoạt động 2
HĐ2: Tính tổng 1000 số nguyên chẵn đầu tiên bắt đầu từ 1
Var i,tong:longint;
BEGIN
i:=0;
Tong:=0;
While i<=1000 do
Begin
i:=i+2;
tong:=tong+i;
End;
Write(‘Tong 1000 so nguyen chan la:’,tong);
Readln;
END.
* Hoạt động 3
HĐ3: Viết chương trình tìm ước chung lớn nhất của hai số nguyên nhập từ bàn phím
Var a,b,tam:integer;
BEGIN
Readln(a);
Readln(b);
While b0 do
Begin
tam:= a mod b;
a:=b;
b:= tam;
End;
Write(‘UCLN la:’,a);
Readln;
END.