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

E-mail Печать PDF
Рейтинг пользователей: / 4
ХудшийЛучший 

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

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

Оператор цикла с постусловием имеет следующую конструкцию:

Repeat <тело_цикла> Until <условие>;

Здесь: Repeat, Until - зарезервированные слова (повторять до тех пор, пока не будет выполнено условие);

          <тело_цикла> - произвольная последовательность операторов Turbo Pascal;

          <условие> - выражение логического типа.

Оператор Repeat ... Until работает следующим образом. В начале выполняется тело цикла, после чего вычисляется логическое выражение следующее за словом Until, если результатом вычисления выражения является ЛОЖЬ, то операторы в теле цикла будут выполнены повторно. в противном случае, если логическое выражение имеет значение ИСТИНА, оператор цикла с постусловием прекратит свою работу.

Пример 1.

Дана последовательность целых чисел, последним элементом которой является число 100. Вычислить среднее арифметическое элементов этой последовательности.

Program primer1;

Var i, a, s, x : integer;

Begin

  s := 0;

  x := 0;

  Repeat

    Read (a);

    s := s + a;

    x := x + 1;

  Until a = 100;

  s := s / x;

  Write ('среднее арифметическое: ', s);

End.

Обратите внимание, что в данном случае мы не использовали логические скобки, в операторе цикла с постусловием их заменяет пара Repeat ... Until.

 

Добавьтe Ваш комментарий

Ваше имя (псевдоним):
Ваш адрес почты:
Заголовок:
Комментарий: