Параметры структурных типов.

Использование параметров структурных типов, таких, как массивы, строки (кроме типа string), множества, записи, файлы, имеет одну общую особенность: тип таких параметров должен быть предварительно объявлен в инструкции описания типа type. Например:

Type mas=array[1..10] of real; str80=string[80];

procedure A(M:mas; fout:str80);...

Пример 5.2. Разработать подпрограмму суммирования элементов массива размерности и, п < 10.

Поскольку результат — скалярное значение, то будем использовать подпрограмму-функцию. Описание типа «массив из 10 целых чисел» должно быть выполнено отдельно в разделе описаний. Новый тип mas затем используется при объявлении массива А и при объявлении типа массива, передаваемого через параметр-значение. Полный текст программы представлен ниже.

Program ex;

{5APPTYPE CONSOLE]

Uses SysUtils;

Type mas=array [1. . 10] of integer; {тип «массив»}

Var A:mas;

i,n:integer;

function sum(B:mas; n:integer):integer;

var s:integer; i: integer; begin s:=0;

for i:=l to n do s:=s+B[i);

Result:=s; end;

Begin

WriteLn('Enter n:');

ReadLn(n);

WriteLn('Enter '/П,' numbers.') for i:=1 to n do Read(A[i]); ReadLn;

WriteLn(¹S=', sum(A,n)); ReadLn; end.