23. Понятие циклического алгоритма. Циклическая программа.

Циклическим называется тот алгоритм, который содержит в себе цикл. Цикл – часть алгоритма (подпрограммы), выполняемая многократно, каждый раз при новых значениях параметра.

Циклической называется программа, являющаяся записью циклического типа алгоритма. Если в программе возникает необходимость неоднократно выполнить некоторые операторы, то пользуются операторами повтора (цикла). В языке Pascal различают три вида операторов цикла: while, repeat, for. Они используются для организации циклов различных типов. Выражение, управляющее повторениями, должно иметь булевский тип.

Если число повторений операторов (составного оператора) заранее неизвестно, а задано лишь условие его повторения (или окончания), используются операторы while, repeat. Оператор for используется, если число повторений заранее известно.

23. Цикл с предусловием.

Оператор while (пока) часто называют оператором цикла с предусловием за то, что проверка условия выполнения тела цикла производится в самом начале оператора. Формат записи:

while <условие продолжения повторений> do

<тело цикла>;

Условие - булевское выражение,

Тело цикла - простой или составной оператор.

Работа оператора:

Перед каждым выполнением тела цикла вычисляется значение выражения условия:

• Если результат равен True, то тело цикла выполняется и снова вычисляется выражение условия.

• Если результат равен False, то происходит выход из цикла и переход к первому после while оператору.

Пример 1: Произведите суммирование 10 произвольно введённых целых чисел.

Program DemoWhile;

Const Limit =10;

Var Count, Item, Sum: integer;

Begin

Count: = 0; {счётчик чисел}

Sum: = 0; {сумма чисел}

While (Count < Limit) do {условие выполнения цикла}

Begin

Count: = Count + 1;

Write (‘Введите ’, Count, ’- е целое число: ’);

Readln(Item); {Ввод очередного числа с клавиатуры}

Sum: = Sum + Item;

End;

Writeln(‘Сумма введённых чисел равна ’, Sum);

Readln;

End.

В данном примере в разделе описания констант описана константа Limit =10, задающая ограничение на количество вводимых чисел. В разделе описания переменных описаны переменные Count, Item, Sum целочисленного типа.

Пример 2. Составить таблицу значений функции y(x) = ax² + bx - d, где значения переменной x являются числами из натурального (целые положительные числа) ряда.

Значение переменных a, b, d - неизвестны, поэтому их необходимо ввести. Т.к. неизвестно последнее значение переменной х, обозначим его за N. Шаг изменения также неизвестен, поэтому по умолчанию примем значение шага равным 1.

Т.е. x  (1; N), с = 1 Program Function;

x₀ = 1 var a, b, d: real;

x₁ = x₀ + 1 x: integer;

x₂ = x₁ + 1 begin

………… writeln (‘Введите значение переменных a,b,d’);

x_n = x_n-1 + 1 readln (a, b, d);

writeln (‘Введите конечное значение параметра цикла N’);

readln (N);

x:=1;

while (x < N) do

begin

Y: = a * SQR(x) + b * x - d;

writeln (‘Y(x) = ’, Y);

end;

readln;

end.