Программирование в среде Turbo Pascal / Pascal / 5_4
.htmlTurbo Pascal | Глава 5 a:link {TEXT-DECORATION: none} a:visited {TEXT-DECORATION: none} a:active {TEXT-DECORATION: none} a:hover {COLOR: #007EFF;} A.menu:link { Color:#FFFFFF; } A.menu:visited { Color:#EEEEEE; } A.menu:hover { Color:#CCDDFF; } .glow { FILTER: DropShadow(Color=#000000, OffX=1, OffY=1, Positive=1)FILTER: Glow(Strength=1, Color=#454545); } .logot { color:#FFFFFF; }
В в е д е н и е / О г л а в л е н и е / О т а в т о р а
М е н ю
1. Интегрированная среда разработки программ Turbo Pascal 7.0 2. Лексические основы языка Pascal 3. Программирование алгоритмов линейной структуры 4. Алгоритмы и программы ветвящейся структуры 5. Алгоритмы и программы циклической структуры 5.1 Понятие цикла. Разновидности циклов
5.2 Цикл с параметром в Pascal
5.3 Цикл с предусловием
5.4 Цикл с постусловием 6. Регулярные типы данных. Массивы 7. Подпрограммы в Turbo Pascal
Цикл с постусловием
При разработке программ очень удобно бывает использовать цикл с постусловием. Синтаксис цикла с постусловием выглядит следующим образом:
Repeat
<оператор>;
<оператор>;
…
<оператор>;
Until <условие>;
В операторе цикла с постусловием выражение, которое управляет повторным выполнением последовательности операторов тела цикла (условие), содержится после служебного слова Until. Между служебными словами Repeat и Until заключаются операторы, входящие в тело цикла.
Правила использования данного цикла, аналогично правилам цикла с While. Однако, прежде чем будет проверено условие выполнения тела цикла, выполняются операторы, входящие в состав цикла. Цикл работает при ложном (False) значении условия.
Пример 5.3. Вычислить значение суммы
Program Example_5_3;
var
N: Integer;
S: Real;
Begin
S:=0;
N:=1;
Repeat
S:=S+1/N;
N:=N+1
Until N>50;
WriteLn ('Результат суммирования... ',S)
End.
Учебно-познавательный сайт по программированию в среде Turbo Pascal
Мирошниченко Марина, Краснодар, 2003