Оператор цикла с предусловием While .. Do

Это универсальный управляющий оператор, с его помощью можно реализовать практически любые повторяющиеся действия:

	Тело цикла состоит из одного оператора	Тело цикла состоит из нескольких операторов
	While Условие do Оператор;	While Условие do begin Оператор; ............ end;

Условие - выражение логического типа. При входе в цикл вычисляется значение Условие. Если значение Условие = True, то выполняются операторы, расположенные в теле цикла. Вычисления повторяют до тех пор, пока очередное вычисление не даст результат Условие = False. Работа цикла завершается, и управление передаётся следующему за ним оператору.

О ператор цикла с постусловием Repeat .. Until

Repeat

оператор;

...............

оператор;

until Условие;

В отличие от While, в операторе Repeat Условие вычисляется в конце цикла. Операторы, находящиеся в цикле Repeat, будут выполняться пока Условие не примет значение True. В любом случае операторы, входящие в цикл, будут выполнены как минимум один раз.

Массивы

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

Одномерные массивы

Описание типа одномерного массива задают следующим образом:

<Имя_Ттипа> = array [ <индексы> ] of <тип> где,

<Имя_Типа> - идентификатор;

array, of - зарезервированные слова (массив, из);

<индексы> - определяют количество элементов массива и их нумерацию, квадратные скобки - требование синтаксиса. Обычно в качестве индексов используют тип-диапазон, в котором задают границы изменения индексов. В общем случае можно использовать любые порядковые типы, имеющие мощность не более 2 Гбайт (т. е. кроме LongWord и Int64).

<тип> - любой допустимый тип.

Пример описания одномерных массивов

const

n =10; //будет использована в качестве индекса массива

Type //пример описания типов одномерных массивов

Mch = array [0..9] of Char; //10 элементов типа Char, счёт от 0

Mre = array [byte] of Real; //256 элементов типа Real, счёт от 0

Mint = array[3..n] of Iinteger; //8 элементов, счёт от 3 до n

Var //переменные массивы

M1 : Mch;

A : Mre;

B : Mint;

I : Byte; //будет использована для указания номера элемента массива

begin //обращение к элементам массива

M1[3] := ‘H’; //3-му элементу присвоено значение

A[15] := Sin(Pi); //15-му элементу присвоено значение функции

{Индексом элемента массива может быть константа, переменная или выражение}

i:= 3;

B[i] := B[i] +B[i+1]; //3-му элементу присвоено значение 3-го + 4-го элемента

Если элементы массива являются стандартными типами (Integer, Real, Byte,..), то определить переменную как массив можно без предварительного описания типа массива, например:

var a,b : array [1..10] of Real; //10 элементов, счет от 1