Процедуры и функции

Пример

Пример

Описание двумерного массивa

Var <имя массива>: array[ <диапазон строк>,<диапазон столбцов> ]

of < тип элементов>;

Пример

Var D:array[1..2,1..3] of integer; или Type MATR=array[1..2,1..3] of integer;

Var D: MATR;

Type ST=array[1..2] of integer;

MATR=array[1..3] of ST;

Var D: MATR;

for I:=1 to 2 do

for J:=1 to 3 do

Read(D[I,J]); {Последовательность ввода: 1 3 2 4 6 7}

{Ввод элементов двумерного массива}

{Вывод элементов двумерного массива}

for I:=1 to 2 do

for J:=1 to 3 do

Write(D[I,J]); {вывод в строку 1 3 2 4 6 7}

или

for I:=1 to 2 do

begin Writeln; {переход на новую строку}

for J:=1 to 3 do

Write(D[I,J]) {вывод элементов строки}

end; {результат вывода: 1 3 2

4 6 7 }

В среде Turbo-Pascal имеются две разновидности подпрограмм - процедуры и функции. Структура подпрограммы аналогична структуре программы в целом.

Подпрограмма должна быть описана до того, как она будет использована в основной программе или другой подпрограмме. Все параметры, которые использует подпрограмма, можно разбить на две категории: локальные параметры, объявленные внутри подпрограммы и доступные только ей самой, и

глобальные- объявленные в основной программме и доступные как основной программе, так и всем ее подпрограммам.

· Формальное описание функции

function <имя функции> ( <список формальных параметров> ): <тип функции>;

<секция описаний локальных переменных>;

begin

<секция операторов>

end;

где <имя функции> - идентификатор, к которому предъявляются те же требования,как к любому идентификатору в среде Turbo-Pascal;

< список формальных параметров> - все параметры в списке указываются вместе со своим типом (одного типа через запятую; различные типы через точку с запятой). Тип параметров в списке может быть любой. Как частный случай, функция может быть без параметров.

<тип функции> - задается обычным способом и может быть любым простым или String.

· Вызов функции

Вызов функции может осуществляться из основной программы или другой подпрограммы.

< имя переменной>:= <имя функции> ( <список фактических параметров> );

или в операторе вывода

Write( <имя функции> ( <список фактических параметров> ));

< cписок фактических параметров> - представляет собой, перечисленные через запятую значения, которые при обращении заменяют соответствующие формальные параметры в описании функции.

Следует обратить внимание на то, что количество, тип и порядок расположения фактических параметров в обращении к функции обязательно должен совпадать с количеством, типом и порядком расположения формальных параметров в описании функции.