BÀI TẬP ÔN TẬP TRỰC TUYẾN TIN 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 8 (bài tập câu lệnh while.. do)</b>

<b>I/ CÂU LỆNH LẶP WHILE…DO(với số lần lặp không biết trước)</b>
1/ Cú pháp

 WHILE<điều kiện> do <câu lệnh>;
2/ Câu lệnh được thực hiện như sau:

B1: kiểm tra điều kiện

B2: 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 B1

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

Bài 1: Cho đoạn chương trình sau:
Var a:integer;

Begin

a:= 5;

while a < 7 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

S

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

Bài 2:

<b> </b>

Đoạn lệnh sau đây sẽ cho kết quả gì?
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à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ố ngun 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);
p:=a*b;

While a<>b do
Begin

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

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

</div>

<!--links-->