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.
