Vòng lặp được tiếp tục, đến khi điều kiện đặt ra không còn đúng nữa thì đi tới thực hiện lệnh tiếp theo.. * Ý nghĩa lưu đồ:..[r]
(1)Bµi 8: TiÕt 49 - 50
Lặp với số lần ch a biết tr ớc
(2)1 Lưu đồ lệnh WHILE DO
* Lưu đồ
Trong mà điều kiện thực Cơng việc, quay trở kiểm tra điều kiện lại Vòng lặp tiếp tục, đến điều kiện đặt không cịn tới thực lệnh tiếp theo
(3)2 Cú pháp lệnh WHILE DO
WHILE <điều kiện> DO <Công việc>
Ghi chú:
· Ðiều kiện cấu trúc lặp WHILE DO biểu thức logic kiểu Boolean có giá trị Ðúng (True) Sai (False)
· Nếu điều kiện Ðúng chương trình chạy cấu trúc WHILE DO.
· Sau lần lặp, chương trình trở lại kiểm tra điều kiện Tùy theo biểu thức logic điều kiện Ðúng hay Sai chương trình thực Công việc tương ứng.
(4)3 Ví dụ:
Bài 1: Viết chương trình nhập vào số a Nếu a
là số dương nhập lại, đến số dương dừng.
Program bai1; Var a: Real; Begin
Write(‘Nhap so a =’); Readln(a);
While a<0
Begin
Writeln(‘Nhap so a =’); Readln(a);
End; Readln;
(5)3 Ví dụ:
Bài 2: Viết chương trình nhập vào số a Nếu a khơng phải là số chẵn nhập lại, đến số chẵn dừng
Program bai2; Var a:Real; Begin
Write(‘Nhap so a =’); Readln(a);
While a mod 2<>0
Begin
Write(‘Nhap so a =’); Readln(a);
End;
(6)3 Ví dụ:
Bài 3: Viết chương trình tính tổng số ngun từ đến 10. S = + + + + + 10
Program bai3; Var i, S: integer;
Begin S:= 0; i:= 5;
While i <= 10
Begin
S:= S + i; i := i +1;
End;
Writeln(‘Tong cac so nguyen tu den 10 =’, S : : 3);
(7)4 Bài tập nhà
Viết chương trình tính tổng sau (với n số nguyên nhập từ bàn phím):
1 2 1 5 1 3 1 1 n S
Chú ý: Mỗi câu làm cách: •Vịng For…to…do
•Vịng While… do
(8)