Паскаль. Решить функцию.

[Dopeman]

Помогите кто может с решением зада чи на паскале 7.0,точнее с её написанием,так как у меня ничего не получается а сдавать уже скоро точнее через два дня!

[Alex21]

Код проверить не могу, поэтому как-то вот так:

program function;
uses Math;
var
  x,y,z:extended;
procedure XYZ;
begin
  x:=power(2828.4,-3);
  y:=4.1093;
  z:=-(7*sqrt(pi))/9.5;
end;
function a(x,y,z:extended):extended;
  var
  a1,a2,a3,a4,a5:extended;
begin
  a1:=1+y;
  a2:=power((x+3),(1/2.5));
  a3:=y/(sqr(x)+4);
  a4:=exp(-x-2);
  a5:=1/(sqr(x)+4);
  a:=a1*((x*a2+a3)/(a4+a5));
end;
function b(a,x,y,z:extended):extended;
  var
  b1,b2,b3:extended;
begin
  b1:=cos(a+2);
  b2:=power(x,4);
  b3:=sqr(sin(z));
  b:=(1+b1)/(b2+b3);
end;
function f(a,b:extended):extended;
begin
  f:=arccos(ln(abs(a+sqrt(b))));
end;
begin
  XYZ;
  Writeln('f = ',f);
  Readln;
end.

[Dopeman]

спс,за помощь.но при написании опять ошибки пробую разобраться теперь.(Error -2,Error -121,Error -116)Кто может помочь пишите от помощи не откажусь!спс!

[Alex21]

Ошибки - из-за возведения в степень^ - не прокатит (хотя до боли знакомо..)Power, только надо uses math.begin a:= power(2,4); // 2 в 4-ю степеньendилиexp(ln(x)*n) где n - степень , x - выражениеP.S.: посмотри еще код (исправил)

[Dopeman]

не могу разобраться с ошибкой в строке - z:=-(7*sqrt(pi))/9.5; Error -133 уже что только не делал.

[Dopeman]

по заданию,точне попримеру как у меня есть должно получится примерно такого вида -
const X=2828.4e-3;
Y=4.1093;
Z=-(7*sqrt(pi)/9.5);
var

A,B,C:single;
BEGIN
A:=(1+y)*(x*2.5Exp(Ln(x+3))+(y/sqr(x)+4)/exp-x-2+(1/sqr(x)+4;
B:=(1+cos(a+2))/(4*Ln(x))/2+sqr(sin(z))
C:=(ln(abs(a+sqrtb)

но здесь тоже одни ошибки не можешь посмотреть что бы получилось примерно так?

[Alex21]

Компилит без ошибок:

program asd;
var
x,y,z:real;
function a:real;
  var
  a1,a2,a3,a4,a5:real;
begin
  a1:=1+y;
  a2:=exp(ln((x+3)*(1/2.5)));
  a3:=y/(sqr(x)+4);
  a4:=exp(-x-2);
  a5:=1/(sqr(x)+4);
  a:=a1*((x*a2+a3)/(a4+a5));
end;
function b:real;
  var
  b1,b2,b3:real;
begin
  b1:=cos(a+2);
  b2:=exp(ln(x)*4);
  b3:=sqr(sin(z));
  b:=(1+b1)/(b2+b3);
end;
function C:real;
begin
  c:=exp(cos(ln(abs(a+sqrt(b))))*-1);
end;
BEGIN
X:=2828.4e-3;
Y:=4.1093;
Z:=-(7*sqrt(pi)/9.5);
writeln('c = ',c);
end.

На счет правильности конечного ответа - не уверен, если, что скажи.

[Dopeman]

спс,ща попробую!