Помогите решить задачку в Паскале

[Polinochka1]

Помогите решить задачку в Паскале

Вот ссылочка на изображение!
Очень прошу помогите, а то к сессии не допустят! :tehnari_ru_837:

 

[shrek=)]

Вроде вот так, если я ни чего не забыл:

var
F:real;
a,b,s,c:real;
function P(var x,y:real):real;
begin
P:=arctan(x/y)+exp(ln((sqr(x)+x*y+sqr(y))/sin(x*y))/3);
end;
begin
write('a=');
readln(a);
write('b=');
readln(b);
s:=a+b;
c:=a-b;
F:=(P(a,b)-P(b,a))/sqr(P(s,c));
write('A=',F);
readln
end.

 

[Vladimir_S]

Вроде вот так, если я ни чего не забыл:

Миша, в принципе - всё правильно. Почти. Вот, немного причесал: мне кажется, тут необходимо в функции добавить ветвление по знаку и равенству нулю подкоренного выражения. Иначе во многих случаях программа начнет плеваться: нулевые и отрицательные аргументы у логарифма недопустимы.

var
 F,a,b,s,c:real;

function P(x,y:real):real;
var T,R:real;
begin
 T:=(sqr(x)+x*y+sqr(y))/sin(x*y);
 if T>0 then
  R:=exp(ln(T)/3)
 else if T<0 then
  R:=-exp(ln(-T)/3)
 else R:=0;
 P:=arctan(x/y)+R;
end;

begin
 write('a= ');
 readln(a);
 write('b= ');
 readln(b);
 s:=a+b;
 c:=a-b;
 F:=(P(a,b)-P(b,a))/sqr(P(s,c));
 write('A= ',F);
 readln
end.