unit Unit1; //Имя модуля

interface

type
tigonomfunct = function (x : real) : Real; //Описание типа для хранения функции

function MASSHTAB(var uB; ufunct : tigonomfunct) : Real; //Объявление функции масштаб

implementation

function MASSHTAB(var uB; ufunct : tigonomfunct) : Real; //Описание функции масштаб
var
i, max : Real;

B : integer; //Переменная - размер экрана
afunct : tigonomfunct; //Переменная содержащая функцию

begin
B := integer(uB); //Приведение нетипизированной перменной к integer
afunct := tigonomfunct(ufunct);//Перенос функции в переменную функции(не мой код, я бы этого не делала)
max := 0; //Переменная содержащая максимально значения аргумента
i := -1; //Присвоение i начального значения
repeat
i := i + 0.001; //Прибавление к переменной Шага функции 0.001
if max < Abs(afunct(i)) // Если max < |функция(X)| тогда присваиваем новый max
then
max := Abs(afunct(i));

until (i + 0.001) > 1; //Выполняем до 1

MASSHTAB := B / max; //Возвращаем значение
end;

end.