BÀI TẬP VÒNG LẶP WHILE DO- TIN HỌC 8

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>BÀI TẬP ÔN TẬP TRỰC TUYẾN</b>

<b>TIN HỌC 8 (bài tập vịng lặp While.. Do)</b>

<b>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)</b>
<b>1/ Cú pháp</b>

 WHILE <điều kiện> do <câu lệnh>;

<b>2/ Hoạt động của vòng lặp While . . do</b>

 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

<b>II/ BÀI TẬP:</b>

<b>Bài 1: Cho đoạn chương trình sau:</b>

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

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>Bài 2 : Đoạn lệnh sau đây sẽ cho kết quả gì?</b>

So:=1;
<b> While So<10 do </b>

<b> begin</b>

<b> writeln(So);</b>

So:= So+2;
<b> end;</b>

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>Bài 3: Câu lệnh lặp While … do có:</b>

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>Bài 4: Viết chương trình tính tổng các số ngun từ 1 đến n với n được nhập từ bàn phím</b>

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>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</b>

nhiêu số chẳn và lẻ vừa nhập vào (học sinh tự làm ở nhà)

<b>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</b>

Program tim_ucln_bcnn;
Uses crt;

Var a, b, p, ucln, bcnn:integer;
Begin

Clrscr;

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

p:=a*b;

While 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>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</b>

câu lệnh lặp While…do

</div>

<!--links-->