Блок-схема алгоритма цикла с параметром представлена на рисунке 5.1

Рисунок 5.1 - Блок-схема алгоритма цикла с параметром

Д ля реализации цикла с параметром в Pascal используется оператор For. Синтаксис оператора For выглядит следующим образом:

For i:=n to k do <оператор>;

где i - параметр цикла;
n - начальное значение параметра цикла;
k - конечное значение параметра цикла;
<оператор> - оператор, являющийся телом цикла;
For, to, do - служебные слова.

Переменные, обозначающие начальное, конечное значения параметра цикла и сам параметр должны иметь перечисляемый тип, причём начальное и конечное значение параметра могут быть заданы явно (изображением).

Например: For i:=1 to 20 do <оператор>;

При выполнении данного цикла, параметр i (целочисленный) будет при каждой итерации (повторении) принимать последовательно значения 1, 2, …,20. Приращение (шаг изменения значения) параметра для такого цикла всегда равен 1. Начальное значение параметра всегда должно быть меньше конечного.

Если же i, n, k символьного типа n и k имеют значения, например, 'A' и 'Z' соответственно, то переменная i принимает последовательные значения в порядке букв алфавита: 'А', 'В', 'С',...,'Z'.

Возможна и другая конструкция цикла For.

For i:=n downto k do <оператор>;

Отличие заключается в том, что приращение параметра для такого цикла всегда равно -1 и начальное значение всегда должно быть больше конечного.

Program Example_5_1 (Input, Output);
var n: Integer;
k: Integer;
i,j: Integer;
kl: Integer;
Begin
Write ('Введите нижнюю границу отрезка - '); ReadLn (n);
Write ('Введите верхнюю границу отрезка - '); ReadLn (k);
WriteLn ('Все простые числа из отрезка [',n,',',k,']');
For i:=n to k do
begin
kl:=0;
For j:=2 to Round (Sqrt(i)) do
If (i MOD j)=0 then kl:=kl+1;
If kl=0 then Write (i,' ')
end
End.

О ператор While предназначен для реализации цикла с предусловием. Синтаксис его выглядит следующим образом:

While <условие> do <оператор>;

где While, do - служебные слова;
<условие> - логическое выражение, операция сравнения или переменная логического типа Boolean;
<оператор> - оператор, входящий в тело цикла.

Program Example_5_2;
var x,m: Integer;
Begin
Write ('Введите целое число... '); ReadLn (x);
WriteLn ('Разложение числа ',x,' на простые множители');
m:=2;
While m<=x do
If (x mod m)=0
then begin Write (' * ',m);
x:=x DIV m
end
else m:=m+1
End.

П ри разработке программ очень удобно бывает использовать цикл с постусловием. Синтаксис цикла с постусловием выглядит следующим образом:

Repeat
<оператор>;
<оператор>;
…
<оператор>;
Until <условие>;

М ассивом называется ограниченная упорядоченная совокупность однотипных величин. Каждая отдельная величина называется компонентой массива. Тип компонент может быть любым, принятым в языке Pascal, кроме файлового типа. Тип компонент называется базовым типом. Вся совокупность компонент определяется одним идентификатором, посредством которого к нему осуществляется обращение, указывается тип и количество элементов массива. Для обозначения отдельных компонент используется конструкция, называемая переменной с индексом или с индексами:
A[5] S[k+1] B[3,5].

В данном примере описаны одномерные массивы с именами A, B, C, причём массивы A и B имеют элементы типа Real, порядковые индексы элементов изменяются от 1 до 20, а массив С - с элементами типа Integer, и индексами от 10 до 30. В квадратных скобках указывается тип индекса (в приведённых примерах - это тип диапазон).

Type
Matrix = array [1..20, 1..10] of Real;
Var
X, Y: Matrix;
Z: array [1..10, 1..10] of Integer;

Массивы X и Y имеют двадцать строк и десять столбцов. Массив Z представляет собой квадратную матрицу размером 10X10.