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

Вид: repeat S until условие;

S – любой оператор паскаля (обычно составной, но в операторные скобки здесь можно не ставить), является телом цикла. Если нет тела цикла, то оператор цикла называется пустым. Его можно использовать для задержки времени.

Работа: Сначала выполняется тело цикла, затем проверяется условие и, если оно ложно, опять выполняется тело цикла и т.д.. Как только условие станет истинным, оператор цикла завершает свою работу. Легко видеть, что тело цикла в любом случае выполнится хотя - бы один раз. Тело цикла должно содержать оператор, приближающий цикл к завершению.

Блок- схема:

Примеры:

1. Вывод на экран целых чисел от 1 до 5 включительно

i:=1; repeat writeln(i); i:=i+1; until i>5;

2. Расчет суммы первых десяти четных чисел

S:=0; i:=1; repeat i<=10 do begin a:=2*i: s:=s+a; i:=i+1; end;

Задача.

Протабулировать функцию

Блок- схема:

Программа.

Program pr7;

Var x,y:integer;

Begin

x:=-5;

repeat y:=sqr(x)+5;

writeln(‘x=’,x:8,’y=’,y:8); x:=x+1;

until x>5;

End.

		+