Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Создание модулей. Процедурный тип параметров.
Разработать модуль, содержащий указанную процедуру.
Написать тестирующую программу.
Составить подпрограмму-процедуру MASSHTAB отыскания масштаба графического изображения функции f(x) на экране размером B единиц растра по формуле M=B/max f(x). В основной программе использовать процедуру для отыскания масштаба функций x*sin(x) и tg(x), при |x|< 1.

Просмотров: 936
Объяснение: +

РЕШЕНИЕ:

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.

нажми на эту область и скопируй решение


	© 2008 - 2014 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.