Практика в использовании простейших элементов и типов данных Pascal. Использование объектов. построение и вывод графиков комплексных функций

Листинг программы

{Основная программа}

Program UsCmplx;

Uses
Crt, Cmplx, Graf, graph, MenuMd;


Type
mas =array[0..6] of real;

Procedure Polinom(a: mas; n: integer; s: cmplxObj; var p:cmplxObj);
var
...

Цель: Знакомство с конкретными представлениями АЯ. Практика в использовании простейших элементов и типов данных АЯ.
Задание:
1 часть ЛР – использование объектов
2 часть ЛР – построение и вывод графиков комплексных функций вида W(jω)=R(jω)/Q(jω)=A(ω)e-jφ(ω),
Где A(ω)=|W(jω)| - модуль комплексной функции;
Φ(ω)=аrctg(Im(W(jω))/Re(W(jΦ))) – фаза комплексной функции.
Таблица коэффициентов комплекса W(jω)
Комплекс W(s)=P(s)/Q(s) является дробно-рациональной функцией комплексного аргумента s=jω двух многочленов:
P(s)=amsm+ am-1sm-1+ am-2sm-2+…+ a1s+ a0.
Q(s)= bnsn+ bn-1sn-1+ bn-2sn-2+ …+b1s+ b0.
Коэффициенты аi, bj для вариантов заданий приведены в таблице 1, в которой верхняя строка коэффициентов P(s),а нижняя - Q(s).
Вектор комплекса W(jω) в комплексной плоскости (Re, jIm) при изменении ωЄ[0, ω] описывает кривую, называемую годографом. Для построения годографа по параметрам варианта, W(jω) представить в виде: A(ω)e-jφ(ω), где A(ω)=|W(jω)|-амплитуда годографа.
Φ(ω)=аrctg(Im(W(jω))/Re(W(jΦ))) – фаза комплексной функции, ω – циклическая частота, измеряемая в 1/сек. Поэтому для построения изобразительного годографа ω необходимо выбрать из такого дапазона ωЄ[ωн, ωк], чтобы годограф проходил через все квадранты.
...
см. вариант задания в скриншоте *.jpg

p.s. В работе содежится исходный код, листинги всех модулей и анализ результатов.