Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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

Оператор Repeat (повторять) – Until (до тех пор, пока) содержит логическое выражение, которое управляет повторением выполнения последовательным операторов, записанных между Repeat и Until. Повторения продолжается до тех пор, пока логическое выражение не примет значения True

Последовательность циклов выполняется не менее одного раза

repeat {повторяй}
{оператор 1}
until <логическое выражение>; {до тех пор, пока условие не будет истинным}

При использование данного оператора необходимо учитывать

· Перед первым выполнением оператора логическое выражение его окончания должно быть определено

· Последовательность операторов должна содержать хотя бы один оператор, влияющий на значение логического выражения, иначе оператор работает бесконечно долго, происходит зацикливание

· Логическое выражение в конечном итоге должно принять значение – True

Пример

Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину.

Решение

Обозначим через x, k - соответствующую цену и количество товара, через p - заданную предельную сумму, через s - общую стоимость покупки. Начальное значение общей стоимости покупки (S) равно нулю. Значение предельной суммы считывается с клавиатуры. необходимо повторять запрос цены и количества выбранного товара, вычислять его стоимость, суммировать ее с общей стоимостью и выводить результат на экран до тех пор, пока она не превысит предельную сумму р. В этом случае на экран нужно вывести сообщение о превышении.

Program Example_10;
Var x, k, p, s: Integer;
Begin
WriteLn('Введите цену товара и его количество');
ReadLn(x,k);
s:=s+x*k;
WriteLn('Стоимость покупки равна ',s);
Until s>p;
WriteLn('Суммарная стоимость покупки превысила предельную сумму');
End.

Цикл с параметром

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

FOR переменная-счётчик:= начальное_значение [TO / DOWNTO] конечное_значение DO{Действия}

Начальное и конечное значение параметра могут быть представлены

· Константами

· Переменными

· Арифметическими выражениями

Выполнение цикла с параметром

1. Вычисления значения выражения А и В

2. Если А<=B, то параметр последовательно принимает значения А, А+1. А+2…В-1, В, и для каждого из этих значений выполняется тело цикла

3. Если А>B, то тело цикла не будет выполнено ни разу и выполнение цикла с параметром сразу же закончится. Выполнение цикло For-DownTo происходит аналогично, но с шагом равным -1.