Параметры подпрограмм без указания типа

В Турбо-Паскале можно использовать формальные параметры, не указывая их типов. В этом случае фактические параметры могут быть любого типа.

Так как такой параметр внутри подпрограммы типа не имеет, перед его использованием надо привести к конкретному типу. Для этого необходимо написать идентификатор требуемого типа и за ним в круглых скобках - переменную (параметр, не имеющий типа).

Используя подпрограмму с параметром без типа, можно сделать ее универсальной, т.е. пригодной для обработки любого массива. Рассмотрим пример такой подпрограммы, суммирующей элементы одномерного массива произвольной длины.

Program SumMas;

Var a: array[1..10] of real;

S1: real;

K: integer;

{ функция с параметром без типа }

Function Sum(var mas; n: integer): real;

Type tarray = array[1..maxint] of real;

Var i: integer;

S: real;

Begin

s:= 0;

For i:= 1 to n Do

s:= s + tarray(mas)[ i ];

Sum:= s

End;

{ раздел операторов программы }

Begin

Writeln(‘введите массив’);

For k:= 1 to 10 Do

Readln(a[k]);

{ вызов функции для суммирования массива }

s1:= Sum(a, 10);

Writeln(s1)

End.

В этом примере имя tarray определяет тип одномерного массива с количеством элементов равным максимальному целому числу. В подпрограмме это имя используется для приписывания типа параметру mas. Реально при обращении к функции Sum вместо параметра mas подставляется массив a из 10 элементов.

Не нашли, что искали? Воспользуйтесь поиском: