13. Цикл с параметром в Паскале. Приведите примеры.

Цикл с параметром (иначе цикл для) имеет вид: for i:= a to b do begin <серия команд> end; Или с обратным отсчётом for i:= b downto a do begin <Серия команд>; end;, где i – параметр цикла; a – начальное значение цикла; b – конечное значение цикла. Структура данного цикла иначе называют циклом i раз. Эта команда выполняется таким образом: параметру i присваивается начальное значение а, сравнивается с конечным значением b и, если оно меньше или равно конечному значению b, выполняется серия команд. Параметру присваивается значение предыдущего, увеличенного на величину h – шага изменения параметра и вновь сравнивается с конечным значением b. На языке программирования Паскаль шаг изменения параметра может быть равным одному или минус одному. Если между begin и end находится только один оператор, то операторные скобки можно не писать. Это правило работает для цикла типа «Пока» и «Для». Пример: Program Ex3; Var A : Integer; S : Longint; Begin S:=0; For A:=1 To 100 Do S:=S+A*A; Writeln(S); End.

14. Цикл с постусловием в Паскале. Приведите примеры.

Оператор цикла с постусловием организует выполнение цикла, состоящего из любого количества операторов неизвестное заранее количество раз. Выход из цикла осуществляется, если некоторое логическое выражение окажется истинным. Так как истинность логического оператора проверяется в конце, тело цикла выполняется хотя бы один раз. Структура оператора: REPEAT <Оператор 1>; <Оператор 2>; . . . <Оператор N>; UNTIL <условие>; В этой структуре: <Оператор 1>; <Оператор 2>; . . . <Оператор N>; - тело цикла. <Условие> - логическое выражение, ложность которого проверяется после выполнения тела цикла. Пример: {Вычисление суммы S = 1 + 1/2 + 1/3 + ... + 1/50} Program EX2; Var n: integer; s: real; Begin s := 0; n := 1; REPEAT s := s + 1/n; n := n + 1; UNTIL n > 50; Writeln('Результат суммирования ... ', s); End.

15. Цикл с предусловием в Паскале. Приведите примеры.

Вычислительный процесс называется циклическим, если он содержит многократное повторение одних и тех же действий. Многократно повторяемые участки вычислений называются ЦИКЛАМИ. Для программной реализации таких вычислений в TP имеется несколько типов операторов цикла. Оператор цикла с предусловием организует выполнение одного (возможно составного) оператора неизвестное число раз. Выход из цикла осуществляется, если некоторое логическое выражение окажется ложным. Так как истинность логического выражения проверяется вначале, тело цикла может, не выполнится ни разу. Структура оператора. WHILE <условие> DO <оператор>; В этой структуре: <условие> - логическое выражение, истинность которого проверяется вначале выполнения циклического оператора; <оператор> - любой выполняемый оператор языка (в том числе и составной, т. е. последовательность операторов, заключённая в операторные скобки BEGIN - END). Пример: {Вычислить сумму S = 1 + 1/2 + 1/3 + ... + 1/50, используя оператор цикла WHILE } PROGRAM ex_1; Var s: real; n: integer; BEGIN s:=0; n:=1; While n <= 50 do { пока значение n не превзойдёт 50 } begin { тело цикла } s:=s + 1/n; n:=n + 1; end; Writeln('Сумма равна: ',s); END.