Циклы с постусловием

Запись этой блок-схемы в языке Турбо Паскаль будет выглядеть следующим образом:

Repeat тело цикла until выражение

Если тело цикла состоит из нескольких операторов, в цикле с постусловием нет необходимости в операторных скобках. Операторы между словами repeat и until повторяются, пока логическое выражение является ложным (False). Как только логическое выражение становится истинным (True), происходит выход из цикла.

Так как выражение оценивается после выполнения операторов, то в любом случае операторы выполнятся хотя бы один раз.

Предположим, нужно написать программу, в которой мы будем вводить с клавиатуры числа, и подсчитывать их сумму, пока не будет введен ноль.

program ciklih4;

var sum, A:integer; {Используем 2 переменные: «SUM» – для хранения суммы и «A» для хранения значения введенного нами числа.}

begin

write (‘Для завершения суммирования введите ноль’);

SUM:=0; {Обнуляем сумму. Каждый раз, когда в той или иной программе следует подсчитать сумму чего-нибудь, нужно сначала обнулить эту сумму}

A:=0; {Указываем первоначальное значение для переменной «A»}

repeat

sum:=sum+A;

write (‘Введите число:’);

readln (A);

until A=0;

writeln (‘Сумма чисел = ’,sum);

readln

end.

В теле цикла выполняется 3 действия. Сначала подсчитывается сумма. Она, первоначально, равна 0, т.к. sum=0 и A=0. Затем выводится сообщение на экран, затем мы вводим с клавиатуры какое-нибудь число, и оно записывается в переменную «A». Если мы вводим не ноль, то опять подсчитывается сумма, только теперь значение переменной «A» равно не 0, а тому числу, которое мы введем с клавиатуры. Соответственно, и сумма (sum) увеличится на это число.

Задание 5. В новом файле наберите текст программы. Сохраните программу в файл 2Ваши_инициалы5.PAS. Запустите программу на выполнение, изучите ее работу.

Задание 6. Измените программу из задания 4 так, чтобы в ней использовался цикл с постусловием. Сохраните программу в файл 2Ваши_инициалы6.PAS. Запустите программу на выполнение, проверьте правильность ее работы.