Программа и модуль

[KIRILOW]

Здравствуйте!! Нужно написать модуль к программе.

Вот код:

const n = 10;
var z:real;
    i:integer;


{Вычисляем експ. Используя разложение в ряд}
function myExp(x:real):real;
const eps = 0.001;
var 
p:real;
i:integer;
begin
result:=1;
p:=1;
i:=1;
{Цикл будет выполнятся пока не будет достигнута точность eps}
while abs(p) >= eps do
      begin
      p := p * x / i;
      result := result + p;
      inc(i)
      end;
myExp:=result;
end;

{производим вычисления выражения, используя нашу написанную функцию вычисления exp, или с помощью стандартной
 библиотечной exp; выбор функции осуществляется параметром flag}
function y(x:real; flag: boolean):real;
begin
if flag = true then
y:=( (sin(myExp(2*x)) + 0.5) / cos(myExp(2*x + 0.6)) )  * myExp(2 * 0.7)
else
y:=( (sin(exp(2*x)) + 0.5) / cos(exp(2*x + 0.6)) )  * exp(2 * 0.7)
end;

{Вычисление функции на интервале [a, b] с шагом dx}
procedure Work(flag: boolean);
const dx = 0.2;
      a = 0;
      b = 1;
var p:real;
begin
p := a;{Начинаем с значения «a» и двигаемся вплоть до «b»}
writeln('-------------------');
while p <= b do begin
      {Если передано значение flag = true -> вычисляем испльзуя самописную функцию exp, в противном
 случае библиотечну. Это позволит сравнить насколько точны вычисления}
      if(flag=true) then
          writeln('|',p:8:4,'|',y(p, true):8:4,'|')
      else
          writeln('|',p:8:4,'|',y(p, false):8:4,'|');
{Увеличиваем текущее значение x}
p := p + dx;
end;

writeln('-------------------');
end;

begin
writeln('With my exp function: ');
{Вычисление используя собственную exp}
Work(true);
writeln('Press any key…');
readln;
writeln('With standart exp function: ');
{Вычисления используя библиотечную}
Work(false);
readln;{Задержка ввода}
end.