Bước 2: Nếu điều kiện sai câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc... Số lần lặp vô hạn B[r]
Trang 1BÀI TẬP ÔN TẬP TRỰC TUYẾN TIN HỌC 8 (bài tập vòng lặp While Do) I/ ÔN TẬP LÝ THUYẾT VÒNG LẶP WHILE…DO (lặp với số lần lặp không biết trước)
1/ Cú pháp
WHILE <điều kiện> do <câu lệnh>;
2/ Hoạt động của vòng lặp While do
Bước 1: Kiểm tra điều kiện
Bước 2: Nếu điều kiện sai câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc
Nếu điều kiện đúng, thực hiện câu lệnh và quay lại Bước 1
II/ BÀI TẬP:
Bài 1: Cho đoạn chương trình sau:
Var a:integer;
Begin
a:= 5;
while a < 9 do
begin
writeln(‘A’);
a:=a+1;
end;
readln;
End
Có bao nhiêu chữ A được in ra màn hình?
ĐIỀU KIỆN
CÂU LỆNH
Sai
Đúng
Trang 2Bài 2 : Đoạn lệnh sau đây sẽ cho kết quả gì?
So:=1;
While So<10 do
begin
writeln(So);
So:= So+2;
end;
a/ In ra các số từ 1 đến 9
b/ In ra các số từ 1 đến 10
c/ In ra các số 1 ; 3 ; 5 ; 7 ; 9
d/ Không phương án nào đúng
Bài 3: Câu lệnh lặp While … do có:
A Số lần lặp vô hạn
B Số lần lặp biết trước
C Số lần lặp không biết trước
D.Không thực hiện lần lặp nào
Bài 4: Viết chương trình tính tổng các số nguyên từ 1 đến n với n được nhập từ bàn phím
Program tinh_tongn;
Uses crt;
Var n,i:integer;
Tong:longint;
Begin
Clrscr;
Write(‘nhap n=’);readln(n);
Tong:=0;i:=1;
While i<=n do
Begin Tong:=tong+i;
i:=i+1;
end;
writeln(‘tong tu 1 den n=’,tong);
readln;
end
Bài 5 : Viết chương trình nhập vào 1 số nguyên cho đến khi gặp số 0 thì kết thúc Hãy đếm xem có bao
nhiêu số chẳn và lẻ vừa nhập vào (học sinh tự làm ở nhà)
Bài 6: Viết chương trình tìm UCLN và BCNN của 2 số a, b được nhập từ bàn phím
Program tim_ucln_bcnn;
Uses crt;
Var a, b, p, ucln, bcnn:integer;
Begin
Clrscr;
Write(‘nhap a=’);readln(a);
Write(‘nhap b=’);readln(b);
Trang 3While a<>b do
Begin
If a>b then a:=a-b Else b:=b-a;
End;
ucln:= a;
Writeln(‘UCLN(a,b)=’,ucln);
Writeln(‘BCNN(a,b)=’,p/ucln:0:0);
Readln;
End
Bài 7: Chọn 1 chương trình mà em đã viết bằng câu lệnh lặp For…to do Hãy viết chương trình đó sang
câu lệnh lặp While…do
CHÚC CÁC EM ÔN TẬP THÀNH CÔNG!