Оператор цикла с постусловием.

Repeat
<операторы>
Until <логическое выражение> ;

Здесь, тело циклавыполняется до тех пор, пока логическое выражение возвращает значение False.

Если в теле цикла операторов For и While более одного оператора, то необходимо использовать составной оператор.

Пример.
Напечатать таблицу значений функций sin x и cos xна отрезке [0,1] с шагом 0.1 в следующем виде:

x sin(x) cos(x)

---------------------------------

0.0000 0.0000 1.0000

0.1000 0.0998 0.9950

. . . . . . . . . . . . . . . . . . . . . . . . .

1.0000 0.8415 0.5403

Решение:

Program Table;
Const a=0; b=1; h=0.1; { границы и шаг табулирования}
Var x: Real;
Begin
x:=a;
Writeln(‘x sin(x) сos(x)‘); { заголовок таблицы}
Writeln(‘---------------------------------‘);
While x<=b Do
Begin
Writeln(x:7:4,sin(x):7:4,cos(x):7:4);
{вывод значений аргумента и функций}
x:=x+h {увеличение аргумента на шаг}
End; Writeln(‘---------------------------------‘)
End.