Bài giảng Tin học 8 - 9

Hai c©u lÖnh cuèi cïng cÇn ® îc gép thµnh c©u lÖnh. ghÐp.[r]

1 Có ph¸p lƯnh While Do While <điều kiện> Do <câu lệnh>

ãĐiều kiện: th ờng phép so sánh

ãCõu lệnh: câu lệnh đơn giản hay câu lệnh ghép

Lưuưý:ưđốiưvớiưcácưcâuưlệnhưghépưphảiưđểưtrongưc uưtrúc:ưBegin end;ấ Ví dụ: Câu lệnh ghép

Var …; Begin …;

While <®iỊu kiƯn> Begin

<C©u lƯnh 1>; <C©u lƯnh 2>; <C©u lƯnh 3>; ; end;

…; End.

Ví dụ: Câu lệnh đơn giản Var …;

Begin ;

While <điều kiện> <Câu lệnh>; ;

2 Lun tËp:

Bµi 1: Trong câu lệnh sau, câu lệnh sai sai đâu?

A While i:= Do t:= 10;

B While a<= b; Do write(‘b khong nho hon a’); C While 1= Do write(‘Toi lap trinh rat gioi’); D i:= 1; While i <10 Do t:= t + i ; i:= i+1;

Đáp án

A: Sai, thừa dấu hai chấm sau biÕn i

B: Sai, thõa dÊu chÊm phÈy tr íc tõ kho¸ Do

C: Sai, vịng lặp vô hạn điều kiện (lỗi ngữ nghĩa, mặt cú pháp vẫn hợp lệ)

2 Luyện tập:

Bài 2: Đoạn lệnh sau cho kết gì?

So:= 1;

While So < 10 Do writeln (So); So:= So +1;

A In số từ đến B In số từ đến 10

C In vô hạn số 1, số nằm dịng D Khơng ph ơng án

Trong câu lệnh lặp, điều kiện ln ln Trong đoạn ch ơng trình có câu lệnh tăng giá trị i

lên đơn vị, nh ng câu lệnh khơng đ ợc thực nằm ngồi

vòng lặp, vòng lặp đ ợc thực hiện vô tận Hai câu lệnh cuối cùng cần đ ợc gộp thành câu lệnh

2 Luyện tập:

Bài 3: HÃy tìm hiểu đoạn ch ơng trình sau đây:

x := 0; tong:= 0;

While tong <= 20 Do Begin

Writeln(tong); tong:=tong +1; End;

x:= tong;

Sau đoạn ch ơng trình đ ợc thực hiện, giá trị x bao nhiêu?

2 LuyÖn tËp:

Bài 4: Hãy viết ch ơng trình, nhập số thực a nằm khoảng từ đến 10 yêu cầu nhập lại số không thoả mãn

Var a: real; Begin

Write(‘Hay nhap gia tri cua a =’); Readln (a); While (a<1) or (a>10) Do

Begin

Write(‘Hay nhap lai gia tri cua a =’); Readln (a); End;

2 Lun tËp:

Bµi 5: HÃy viết ch ơng trình, nhập số nguyên n biĨu diƠn sÜ sè cđa líp (145) ng ời sử dụng nhập số nguyên khoảng này, ch ơng trình cảnh báo yêu cầu nhập lại kết thúc số hợp lệ đ ợc nhập.

Var n: integer; Begin

Write(‘Hay nhap si so cua lop n =’); Readln (n); While (n<0) or (n>45) Do

Begin

Write(‘Hay nhap lai si so cua lop n =’); Readln (n); End;