Алгоритмы и программы. Афанасьева Т. В - 168 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

168
9.3.4. Параметры без типа
В Turbo Pascal можно использовать параметры-переменные и
параметры-константы без указания типа. В этом случае фактический
параметр может быть переменной любого типа, а ответственность за
правильность использования того или иного параметра возлагается на
программиста.
Пример.
function Equal(var Param1, Param2; Len: Word):Boolean;
Здесь Param1, Param2 – параметры–переменные без типа (вместо
них можно использовать, например, любые
переменные простого типа,
типа-массив, типа-запись и т. д.); Len – параметр-значение.
Следует иметь в виду, что параметр без типа внутри подпрограммы
типа не имеет и его перед использованием следует преобразовать к
конкретному типу, применяя идентификатор соответствующего типа, при
этом полученный результат может быть любого размера.
Пример 9.7. Функция вычисления максимального
элемента в
массиве.
function Max(Var Mas; N: Byte;Var Ma:integer);
type
tArray = array[1..Maxint] of Integer;
{тип массива максимального размера}
var
i: Byte;
begin
Ma := tArray(Mas)[1]; {преобразование}
for i := 2 to N do
if tArray(Mas)[i] > Ma then
Ma := tArray(Mas)[i];
end;
В этом случае в качестве первого пeредаваемого параметра можно
использовать любой массив (и не только массив), так что подпрограмма
становится более универсальной.
9.3.5. Массивы открытого типа
В версии 7.0 можно в качестве параметров-переменных исполь-
зовать массивы открытого типа, у которых не
задаются размеры.
В качестве фактического параметра в этом случае можно исполь-
зовать массив любого размера, однако массив должен состоять из тех же

Страницы