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

Polinochka1 · 20.01.2014, 20:11

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

shrek=) · 21.01.2014, 05:45

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

Код:

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 · 21.01.2014, 09:52

Цитата:

Сообщение от shrek=)

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

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

Код:

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.

20.01.2014, 20:11	#1 (permalink)
Polinochka1 Новичок Регистрация: 20.01.2014 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачку в Паскале Вот ссылочка на изображение! Очень прошу помогите, а то к сессии не допустят! Миниатюры

21.01.2014, 05:45	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Вроде вот так, если я ни чего не забыл: Код: var F:real; a,b,s,c:real; function P(var x,y:real):real; begin P:=arctan(x/y)+exp(ln((sqr(x)+xy+sqr(y))/sin(xy))/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.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070