Vòng Lặp While - Hoàn Chân • Blog

Trang chủ » Câu Lệnh While Trong Pascal » Vòng Lặp While - Hoàn Chân • Blog

Có thể bạn quan tâm

Ngoài vòng lặp For với số lần lặp xác định thì Pascal còn cung cấp thêm loại vòng lặp để thực hiện một công việc nào đó mà không xác định trước số lượt lặp lại.

Vòng lặp while

Cú pháp:

While <Điều kiện> Do <Công việc>

Trong khi <Điều kiện> còn đúng thì <Công việc> sẽ được thực hiện. Như vậy để vòng lặp While không bị lặp lại mãi mãi thì bản thân <Công việc> phải chứa lệnh nào đó làm cho <Điều kiện> không còn đúng nữa hoặc bắt buộc thoát ra khỏi vòng lặp While.

Ví dụ tính tổng các số chẵn từ 0 đến 100:

Program evenSum; Var number : Byte; sum : Integer; Begin sum := 0; number := 100; While number > 0 Do Begin sum := sum + number; number := number - 2; End; Writeln('Sum = ', sum); End.

Về bản chất thì có thể thay thế vòng lặp For - To - Do bằng vòng lặp While như sau:

<Biến điều khiển> := <Giá trị đầu> While <Biến điều khiển> <= <Giá trị cuối> Do Begin ... <Biến điều khiển> := <Biến điều khiển> + 1; End;

Cụ thể:

Program whileLoop; Var a : Byte; Begin a := 10; While a <= 15 do Begin Writeln('a = ', a); a := a + 1; End; End.

Khi đoạn code trên được biên dịch và thực thi, nó in ra kết quả như sau:

a = 10 a = 11 a = 12 a = 13 a = 14 a = 15

Từ khóa » Câu Lệnh While Trong Pascal