Basic Pascal Tutorial/Chapter 3/REPEAT..UNTIL/zh CN

REPEAT..UNTIL循环 (原作者: Tao Yue, 状态: 未更改)

先循环后判断：

repeat
  ������1;
  ������
until ���������������;

在repeat循环中，复合语句是内置的，因此，你不需要使用begin-end。另外，直至表达式值为真退出循环。

REPEAT循环被称之为先循环后判断，任何情况下，循环至少执行一次。

var
    sum,count : integer;

begin
    sum := 0;
    count := 0;

    repeat
        count := count + 1;
        sum := sum + count
    until (count >= 100);

    writeln('sum=', sum);
end.

From the Free Pascal wiki, page "Basic Pascal Tutorial/Chapter 3/REPEAT..UNTIL/zh CN", as it stood on 2022-08-20 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.