Нужно составить программу для вычисления функции
_______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.
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.
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.
