Описание функции 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.
Назад
Содержание
Вперед
