Пример 10.

а) Вычисление переменных А и В, значения которых зависят от переменной цикла, и их печать.

FOR I: =1 TO 4

BEGIN A: =2*I; B: =4+I

WRITELN(A: 3, B: 4)

END;

б) Перевод угла в градусах в радианы.

WRITELN(‘угол в градусах угол в радианах’);

FOR I: =0 TO 18 DO BEGIN

GRAD: =I*20;

RAD: =GRAD*PI/180;

WRITELN(‘ ‘, GRAD: 12: 2, ’ ‘, RAD: 12: 4);

END;

Оператор повтора repeat имеет формат:

REPEAT

тело цикла;

UNTIL у словие;

Условие – выражение булевского типа, при его написании допустимы логические операции и операции отношения. Тело цикла – простой или составной оператор. Вначале выполняется тело цикла, затем проверяется условие выхода из цикла. Если условие не выполняется, то операторы тела цикла выполняются еще раз, если выполняется – происходит выход из цикла (см рис. 3).

Оператор REPEAT имеет следующие характерные особенности: выполняется по крайней мере один раз, тело цикла выполняется, пока значение условия равно FALSE, по крайней мере один из операторов тела цикла должен влиять на значение условия, иначе цикл будет выполняться бесконечно. Операторы тела цикла записываются без операторных скобок.

Рис. 3. Блок-схема цикла REPEAT.

Пример 11. Вычисление y=x² при x равном 8, 6, 4, 2.

X: =8;

REPEAT

Y: =SQR(X);

WRITELN (X: 3, Y: 4);

X: =X-2

UNTIL X=0;

Оператор повтора WHILE аналогичен оператору REPEAT, но проверка условия выполнения тела цикла производится в начале цикла. Оператор имеет формат:

WHILE условие DO тело цикла;

Условие – выражение булевского типа, тело цикла – простой или составной оператор. Перед каждым выполнением тела цикла вычисляется условие, если условие выполняется, то тело цикла выполняется и снова вычисляется значение условия. Если условие не выполняется, то происходит выход из цикла и переход к первому после WHILE оператору. В этом операторе, также как и в операторе REPEAT, программист сам должен позаботиться об изменении переменных, определяющих выход из цикла. Блок-схема рассмотренного оператора показана на рис. 4.

Рис. 4. Блок-схема цикла WHILE.

Пример 12. а)Увеличение переменной I на 2 до тех пор, пока она меньше 30.

I: =10;

WHILE I< 30 DO I: =I+2;

б) Вычисление переменных А и N по заданным формулам до тех пор, пока 2*A не станет меньше или равно 3*N+1.

A: =1; N: =2;

WHILE 2*A< =3*N+1 DO

BEGIN A: =A*2;

N: =N+1;

END;

в) Перевод угла в радианах в градусы.

RAD: =0;

WRITELN(‘угол в радианах угол в градусах’);

WHILE RAD< =6, 28 DO BEGIN

GRAD: =RAD*180/PI;

WRITELN(‘ ‘, RAD: 12: 4, ’ ‘, GRAD: 12: 2);

RAD: =RAD+0.1;

END