Циклы в Turbo Pascal.

Определение Цикл – это многократно повторяющийся участок вычислительного процесса, который заканчивает свою работу по заданному условию. Цикл – это многократно повторяющийся участок вычислительного процесса, который заканчивает свою работу по заданному условию.

1. Цикл с параметром (прямой). FOR переменная:= выражение 1 ТО выражение 2 DO оператор; Переменная должна быть порядкового типа, например integer или char. Порядковыми называются все простые типы, значения которых можно расположить в возрастающем порядке.

Например: Напечатать ряд из повторяющихся чисел 20 в виде: Код программы: Program cikl; var i: integer; begin for i:=1 to 10 do write(20); readln;end.

2. Цикл с параметром (обратный). FOR переменная:= выражение 1 DOWNТО выражение 2 DO оператор; В этом случае, чтобы цикл выполнился хотя бы раз, выражение 1 должно быть не меньше выражения 2. Например: For c:=10 downto 1 do writeln(с);

Задание 1: Напечатать столбиком квадраты всех целых чисел от 10 до х ( значение х вводится с клавиатуры; х>=10) используя прямой и обратный циклы с параметром;

3.Оператор цикла WHILE (цикл ПОКА). WHILE логическое выражение DO; Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin … end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.

Пример: Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+…1/N. Program Summa; VarS:real; N:integer; N:integer;Begin S:=0; N:=0; While n

Задание 2: Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.

4.Оператор цикла REPEAT (цикл ДО). REPEAT оператор 1; оператор 2; … оператор n UNTIL логическое условие; Часть программы, заключенная между служебными словами REPEAT и UNTIL, повторяется до тех пор, пока не станет истинным логическое выражение, стоящее после слова UNTIL. Между словами REPEAT (повторить) и UNTIL(до тех пор пока) можно записать любое количество операторов.

Сравнение циклов WHILE(ПОКА) и REPEAT(ДО). 1. В отличие от оператора WHILE в операторе REPEAT вычисление логического выражения происходит не до, а после очередного повторения цикла. Из-за этого цикл REPEAT обязательно выполнится хотя бы раз, а цикл WHILE может не выполнится ни разу. 2. Если условие в цикле ПОКА является условием продолжения повторений, то условие в цикле ДО – условием выхода из цикла, его завершения. Поэтому для одной и той же задачи эти условия противоположны.

Пример: Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+…1/N, используя оператор цикла REPEAT.э Program Summa; VarS:real; N:integer; N:integer;Begin S:=0;N:=0; RepeatN:=n+1;S:=s+1/n Until n=1000; Writeln (s); Readln; End.

Задание 3: Напишите программу, которая вводит целые числа с клавиатуры и складывает их, пока не будет введено число 0.