Repeat - Until

Hoàn Chân • Blog

• Lập trình Pascal Python C#
• Sản phẩm HC-W2P HC-MIX VietNamKey SortViewer HC-Slider qType
• Văn phòng Word 2003 Word 2016 Powerpoint

Github Mục lục

Trong series này:

Vòng lặp Vòng lặp For Vòng lặp While Repeat - Until

Trong series này:

Vòng lặp Vòng lặp For Vòng lặp While Repeat - Until Sửa trang này Repeat - Until Lập trình Pascal Vòng lặp Repeat - Until

Ngoài vòng lặp While lặp lại công việc trong khi điều kiện còn đúng, Pascal còn cung cấp vòng lặp cho phép lặp lại công việc cho đến khi điều kiện đang sai.

Vòng lặp repeat

Cú pháp:

Repeat <Công việc>; Until <Điều kiện>;

<Công việc> sẽ được thực hiện cho đến khi <Điều kiện> đúng thì ngưng (ngược với vòng lặp While). <Điều kiện> sẽ được kiểm tra sau khi thực hiện <Công việc> cho nên ít nhất <Công việc> sẽ được thực hiện 1 lần rồi mới kiểm tra <Điều kiện> đúng hay sai (nếu sai thì thực hiện tiếp vòng lặp, đúng thì ngưng).

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; Repeat sum := sum + number; number := number - 2; Until number = 0; Writeln('Sum = ', sum); End. Tweet

Bình luận