В паскале функцию переделать с модулем

[Fradi]

Помогите пожалуйста

Нужно составить программу для вычисления функции
_______2.5*х при х<=10
Y(x)=__х*х+х-1 при 0<х<10
_______х при х>=10
Используя разработанную программу, вычислить
Z=(SQR(Y(A))+Y(A+7)+1)/(SQR(Y(A+8)))

я составил программу через функцию:

program lab8;
 var z, A: real;
 function Y(x:integer): real;

 begin
 if x<=0 then Y:=2.5*x else
 if x>=10 then Y:=x else
 Y:=sqr(x)+x-1
 end;

 begin
 Write('введите А='); Readln(A);
 z:=(sqr(Y(A))+Y(A+7)+1)/sqr(Y(A+8));
 writeln ('z= ',z:6:3);
 readln;
 end.

а теперь нужно переделать эту же програму, но только с модулем
я сделал, но программа не работает

 Program lb8;
 uses mod7;
 var
 x,z,a:real;
 begin
 write('vvedite A = '); readln(a);
 z:=(y(a)*y(a)+y(a+7)+1)/sqr(y(a+8));
 writeln('z = ',z:10:4);
 readln;
 end.
 unit mod7;
 interface
 function y(x:real): real;
 implementation
 function y(x:real): real;
 begin
 if x<=0 then y:=2.5*x
 else
 if x>=10 then y:=x
 else y:=x*x+x-1;
 end;
 end.

[Leshii]

Значит так, мухи и котлеты отдельно

вот твой модуль.

unit mod7;
 interface
 function y(x:real): real;
 implementation
 function y(x:real): real;
 begin
 if x<=0 then y:=2.5*x
 else
 if x>=10 then y:=x
 else y:=x*x+x-1;
 end;
 end.

тело программы.

Program lb8;
 uses mod7;
 var
 x,z,a:real;
 begin
 write('vvedite A = '); readln(a);
 z:=(y(a)*y(a)+y(a+7)+1)/sqr(y(a+8));
 writeln('z = ',z:10:4);
 readln;
 end.

Модуль ты сохраняешь в паскале таким образом :
Сверху ищешь закладку Сompile , нажимаешь, после внимательно смотришь на вот такие слова
Destination -> Disk ( надо чтобы было Disk )
после сверху ищешь ( там же слово Bild ) жмешь , и если нет ошибок в программе то модуль создан. После делаеш отдельную программу (себ то тело программы , ты его уже сделал, и после подключаеш модуль)
Внимательно ! надо чтобы название модуля совпадало с названием которое стоит рядом с

Unit ...

.

Модуль у тебя сохраняется с расширением *.tpu

[Fradi]

спасибо большое!