Алгоритм с постусловием
Автор Артур Белоусов задал вопрос в разделе Другие языки и технологии
расскажите про цикл с постусловием в паскале(с примером) и получил лучший ответ
Ответ от Даже не знаю, что написать[гуру]
Примерно так:
repeat
<блок операторов>
until <условие>;
Цикл выполняет < блок операторов > пока условие (< условие >) ложно.
Например:
var
i: integer;
begin
i := 0;
repeat
i := i + 1;
until i > 10;
end.
Здесь увеличивается значение i, пока i не больше 10.
Ответ от Клары Стервозные[гуру]
Мда.. . Ну держите. Но лучше вместе с циклом с предусловием рассматривать, чтобы понять отличия и области применения.
ЦИКЛ С ПОСТУСЛОВИЕМ REPEAT также задает повторяющееся выполнение операторов. Однако решение о продолжении цикла принимается после очередной итерации, а не перед ней, как в циклах с предусловием. Это гарантирует хотя бы однократное выполнение операторов тела цикла.
Пример. Программа, вычисляющая сумму двух чисел:
VAR
X, Y, SUM:REAL;
Ch:CHAR;
BEGIN
REPEAT
WRITE('Введите числа X и Y');
READLN(X, Y);
SUM:=X+Y;
WRITELN('Сумма чисел X и Y равна', SUM:2:2);
WRITE('Завершить программу? ');
READLN(Ch);
UNTIL(UPCASE(CH)='Y') OR (CH='д') OR (CH='Д')
{UPCASE – получение заглавной буквы}
END.
ОТЛИЧИЯ операторов цикла WHILE и REPEAT:
1. В REPEAT-циклах истинность выражения является условием прекращения цикла, в то время как WHILE-циклы завершаются в случае ложности в заголовке.
2. В REPEAT-циклах можно задавать в его теле последовательность операторов, которая не обязательно должна быть оформлена в составной оператор с помощью служебных слов BEGIN и END, как это необходимо в случае WHILE-цикла.
Мда.. . Ну держите. Но лучше вместе с циклом с предусловием рассматривать, чтобы понять отличия и области применения.
ЦИКЛ С ПОСТУСЛОВИЕМ REPEAT также задает повторяющееся выполнение операторов. Однако решение о продолжении цикла принимается после очередной итерации, а не перед ней, как в циклах с предусловием. Это гарантирует хотя бы однократное выполнение операторов тела цикла.
Пример. Программа, вычисляющая сумму двух чисел:
VAR
X, Y, SUM:REAL;
Ch:CHAR;
BEGIN
REPEAT
WRITE('Введите числа X и Y');
READLN(X, Y);
SUM:=X+Y;
WRITELN('Сумма чисел X и Y равна', SUM:2:2);
WRITE('Завершить программу? ');
READLN(Ch);
UNTIL(UPCASE(CH)='Y') OR (CH='д') OR (CH='Д')
{UPCASE – получение заглавной буквы}
END.
ОТЛИЧИЯ операторов цикла WHILE и REPEAT:
1. В REPEAT-циклах истинность выражения является условием прекращения цикла, в то время как WHILE-циклы завершаются в случае ложности в заголовке.
2. В REPEAT-циклах можно задавать в его теле последовательность операторов, которая не обязательно должна быть оформлена в составной оператор с помощью служебных слов BEGIN и END, как это необходимо в случае WHILE-цикла.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: расскажите про цикл с постусловием в паскале(с примером)