Bài thực hành 6. Sử dụng lệnh lặp While…..Do

CHÀO MỪNG QUÍ THẦY CÔ VỀ DỰ CHUYÊN ĐỀ
BÀI TẬP THỰC HÀNH WHILE - DO
CHÀO MỪNG QUÝ THẦY CÔ VỀ DỰ CHUYÊN ĐỀ
TRƯỜNG THCS LYÙ THÖÔØNG KIEÄT
CHÀO MỪNG QUÝ THẦY CÔ VỀ DỰ CHUYÊN ĐỀ
Hãy quan sát và cho biết :
Mỗi tình huống mô tả điều gì được lặp lại ? Và lặp bao nhiêu lần ?
Tớ phải bị phạt đi tới đi lui như thế này cho tới bao giờ ?
Còn tớ phải bị phạt tập thể dục như thế này cho tới bao giờ ?
Cậu phải làm 100 lần như thế.
Cấu trúc lặp mô tả điều gì?
Có mấy loại lặp?
Cậu phải đi cho đến khi trời mưa.
Tình
huống 1
Tình
huống 2


Xét 3 bài toán :
Bài 1: Hiển thị 100 chữ `Hello` trên các hàng khác nhau.
Bài 2: Đếm số lần nhập n. Việc nhập sẽ kết thúc khi n = 0 ;
(Với n là số nguyên dương bất kỳ (n>0) )
Bài 3 : Tính tổng các số đã nhập . Việc nhập sẽ kết thúc khi
n>=100 (Với n là số nguyên dương bất kỳ (n>0) )


Lặp :

Bài 1 sử dụng cấu trúc lặp với số lần biết trước
Cấu trúc lặp mô tả thao tác lặp và được phân biệt bởi 2 loại : là lặp với số lần biết trước và lặp với số lần chưa biết trước
Hãy cho biết trong 3 bài toán trên, bài toán nào sử dụng cấu trúc lặp với số lần biết trước ?
B�i t?p 1 : Nhập vào giá trị cho phần tử n bất kỳ , việc nhập sẽ kết thúc khi n = 0 . In ra số lần nhập n (không kể trường hợp n = 0 , n là số nguyên dương)





Bắt đầu thuật toán :

Bước 1 : Nhập n ;n = 0; dem = 0 ;

Bước 2 : Nếu n = 0  chuyển tới buớc 4

Bước 3 : dem : = dem +1 ; quay lại bước 2

Buớc 4 : Báo giá trị của biến dem .

Kết thúc thuật toán .
Program Demsolannhapn;
Uses crt;
Var n, dem : Integer ;
Begin
Clrscr;
Write (‘Nhap n :’); readln (n);
dem:= 1;
While n <> 0 do
begin
dem := dem + 1;
write (‘Nhap n :’); readln (n);
end;
Writeln (‘So lan nhap n :, dem);
Readln;
End.
B�i t?p 2 : Nhập vào giá trị cho phần tử n bất kỳ , việc nhập sẽ kết thúc khi n >= 0 . In ra số lần nhập n và tổng các số đã nhập
(không kể trường hợp n >= 100 , n là số nguyên dương)





Bắt đầu thuật toán :

Bước 1 : Nhập n ;n = 0; dem = 1 ;
S : = 0;

Bước 2 : Nếu n >= 100  chuyển tới buớc 4

Bước 3 : dem := dem +1 ; S:=S+n;
quay lại bước 2

Buớc 4 : - Báo giá trị của biến dem
- Báo giá trị tổng của n

Kết thúc thuật toán .
Program Tongn;
Uses crt;
Var n, dem,S : Integer ;
Begin
Clrscr;
Write (‘Nhap n :’); readln (n);
dem:= 1; S :=0 ;
While n >= 100 do
begin
dem := dem +1; S := S + n;
write (‘Nhap n :’); readln (n);
end;
Writeln (‘So lan nhap n :’, dem);
Writeln (‘Tong cac so da nhap:’,S);
Readln;
End.
Hãy nhớ!
Lặp
FOR ... TO ... DO ....
FOR ... Downto ... DO ...
Lặp với số lần lặp biết trước.
Lặp với số lần lặp không biết trước.
TRƯỜNG THCS LÝ THƯỜNG KIỆT


C?m on
Qu�
Th?y Cơ
v�
c�c em
h?c sinh
d�
quan t�m
theo d�i !