Иллюстрированный самоучитель по Kylix

       

Описание функции Mах



Листинг 4.1. Описание функции Mах

function Max(A: array of Real; N: Integer): Real; var
X: Real;
I: Integer; begin
X := A[0]; for I := 1 to N - 1 do
if X < A[I] then X : = A[ I ];
Max := X; end;

Вызов данной функции может выглядеть так:

М : = Мах(В, 12) ;

При этом переменная м должна иметь тип Real, массив в — тоже Real, a вторым параметром должно быть целое число (в нашем примере 12). Таким образом, вызов данной функции при этих параметрах поместит в переменную м самое большое значение из всех, хранящихся в элементах одномерного 12-элементного массива B.

Назад
Содержание
Вперед


Содержание раздела