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

 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 1

BÀ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 2

Bà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 3

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à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!

Từ khóa » Bài Tập Vòng Lặp While Pascal