Операторы цикла
Вы уже умеете организовать цикл при помощи оператора while. Напомним, что при выполнении этого оператора компьютер проверяет значение условия. Если условие истинно, то исполнительная часть оператора while будет повторяться до тех пор, пока это условие не примет значение False. Если значение условия есть False в самом начале, то тело цикла while вообще не будет выполняться. Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом, проверив условие, определить, повторять ли тело цикла еще раз. Эту задачу выполнит другой вид цикла – цикл Repeat. repeat
until ; Есть небольшое отличие в организации цикла repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin . end. Зарезервированные слова repeat и until действуют как операторные скобки. Конструкция repeat . until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeat проверяет условие после выполнения действий. Это гарантирует хотя бы одно выполнение действий до завершения цикла. Например,
| a) repeat read (Number); Sum := Sum+Number; until Number=-1 |
b) repeat i := i+1; writeln (Sqr(i)); until i>=10 |
Задача. Определить, является ли введенное число простым. Алгоритм решения этой задачи будет следующий. При помощи операции mod проводим проверку всех целых чисел от 2 до введенного числа Number. Мы проверяем, является ли очередное проверяемое число делителем нашего числа (значит, остаток от деления введенного числа на проверяемое число равен нулю). Если такой делитель найден, значит, цикл досрочно завершает свою работу на некотором i-том шаге. Если делитель не найден, значит, цикл проверил все числа, и значение переменной цикла i будет равно конечному значению, т.е. Number. Поэтому, после записи цикла следует анализ значения переменной i и выводится соответствующее сообщение. Примечание. Напомним, что простым называется число, которое не имеет делителей кроме 1 и самого себя. Цикл не может продолжаться бесконечно, так как любое число всегда делится само на себя.
| Program Prostoe; Uses Crt; Var i, Number : integer; Begin ClrScr; writeln (‘Какое число должно быть проверено? ‘); read (Number); i := 1; repeat i := i+1; until Number mod i = 0; if Number=i then writeln (Number,’ является простым’) else writeln (Number,’ делится на ‘,i); readln; End. |
При построении циклов нужно быть очень аккуратным: следить за отсутствием ошибок как в фазе входа в цикл, так и в фазе завершения цикла. Задание. Выберите две задачи, решенных Вами с помощью цикла с предусловием, и решите их с помощью цикла с постусловием.
Until паскаль что означает
Операторы между словами repeat и until повторяются до тех пор, пока булево выражение является Истинным ( True ).
Синтаксис
repeat
Оператор;
Оператор;
.
Оператор;
until выражение
Замечания
Последовательность операторов выполнится по крайней мере один раз!
Пример
repeat
Write(‘Введите значение : ‘);
ReadLn(I);
until (I >= 0) and (I
Ада
Аналогом repeat-until является loop-end-loop со встроенным exit-when :
loop
Get_Immediate (Ch);
exit when Ch /= ‘ ‘;
end loop;
loop
Put («Введите значение : «);
I := Integer’Value (Get_Line);
exit when I in 0 .. 9;
end loop;
Бывает так, что проверку условия нужно делать не в начале цикла и не в конце, а именно где–то посередине:
loop
Put («Введите значение : «);
I := Integer’Value (Get_Line);
exit when I = 0;
Put_Line («Результат :» & Integer’Image (I + 1));
end loop;
Выход по нулю или по пустой строке особенно частая ситуация в учебных программах. В Borland Pascal нужно писать цикл while , а операцию считывания дублировать до while и в конце:
< Это Паскаль >
Write(‘Введите значение : ‘);
ReadLn(I);
while I <> 0 do
begin
WriteLn(‘Результат : ‘, I + 1);
Write(‘Введите значение : ‘);
ReadLn(I);
end;
Либо имитировать оператор языка Ада с помощью if then Break внутри while True do или repeat until False.
Until/ru
: одиночный оператор на языке pascal или блок операторов, заключенный в begin-end.
: выражение, значение которого является типом boolean.
x := 1; repeat begin DoSomethingHere(x); x := x + 1; end; until x = 10;
Retrieved from «http://wiki.freepascal.org/index.php?title=Until/ru&oldid=126364»
- Russian
- FPC/ru
- Pascal/ru
- Reserved words/ru
- Control Structures/ru
Repeat..Until
Последовательность операторов выполнится по крайней мере один раз!
Пример
Repeat Ch:=GetChar Until Ch<>' '; Repeat Write('Введите значение : '); ReadLn(I); Until (I>=0) And (I=9);