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

Программа 1.

Конец

Все

Начало

Кц

Цикл с предусловием

Практическая работа 2. Циклы

Для реализации циклов в Паскаль имеются три оператора. Если число повторений заранее известно, то удобно воспользоваться оператором цикла с параметром. В других случаях следует использовать операторы цикла с предусловием (цикл «пока») или с постусловием (цикл «до»).

В цикле “пока“ управление внутри цикла осуществляется с помощью логического условия:

цикл пока < условие>

< действие >

Выполнение действия повторяется до тех пор, пока верно условие. Проверка условия осуществляется в начале цикла. Это означает, что действие может не выполниться ни разу. Чтобы такой цикл не был бесконечным, внутри цикла необходимо предусмотреть изменение значения условия с истинного на ложное. Цикл с предусловием является наиболее мощным в Паскале. Другие операторы цикла можно выразить через него.

Структура цикла с предусловием:

while <логическое выражение> do <оператор>

Вычисляется значение логического выражения, если оно равно true, то выполняется оператор, после чего снова вычисляется значение логического выражения, в противном случае действие заканчивается.

Решим задачу: На склад привозят однородный груз на машинах разной грузоподъемности. На компьютер, управляющий работой склада, поступает информация о весе груза очередной машины. Составить программу подсчета количества машин, прибывших на склад до его заполнения, если вместимость склада не более 100 тонн.

Введем обозначения: s – сумма веса груза, хранящегося в этот момент на складе; n – число разгруженных машин; w – масса груза очередной машины. Вначале величины sum и num равны нулю. Цикл разгрузки продолжается, пока выполняется равенство s<100.

Алгоритм Цикл с предусловием

ввод (w)

пока sum<100 делать s:=s+w

если s<=100 то n:=n+1 (число машин растет)

иначе выход из цикла

вывод (n)

program sklad;

var s,w:real;

n:integer;

begin

n:=0,sum:=0;

while s<100 do

begin

writeln(‘введите вес груза машины’);

readln(w);

s:=s+w;

if s<=100 then n:=n+1;

else writeln(‘груз уже не поместится’)

end;

writeln(‘число разгруженных машин =’,n:3)

end.

Тип структуры цикл “ до “ имеет вид:

цикл
< действие >

до < условие>

Как только значение условия становится истинным, цикл прекращается. Цикл “ до “ независимо от значения условия выполнится по меньшей мере один раз, т.к. проверка условия производится после выполнения действия. Для завершения цикла необходимо внутри цикла изменить условие с ложного на истинное. Выбор структуры цикла определяется особенностями алгоритма решения конкретной задачи.

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

repeat <последовательность операторов>

until <логическое выражение>

Действие: выполняется последовательность операторов. Далее вычисляется значение логического выражения. Если оно равно true, то действие заканчивается, если – false, снова выполняется последовательность операторов и т.д.

Решим предыдущую задачу, применяя цикл с постусловием. Цикл разгрузки заканчивается, если выполняется условие: s>100.

Алгоритм Цикл с постусловием

Дата добавления: 2015-06-04