Нужна помощь в паскале

Question

Нужна помощь в написании программы в паскале <img title="Нужна помощь в паскале" src="//otvet.imgsmail.ru/download/fd3bf5e7d5fe9c3d6a8b6da982b1ba49_i-1.jpg" >

Костя · Accepted Answer

readln(a,b); 
x:=ln(abs(a+b+sin(a)*cos(b))); 
y:=2*atan(x/(a+sqrt(1-sqr(x)))); //вариант для некоторых паскалей - arctan 
 
Не задирай а и б, чтобы их сумма не привысила е, иначе будет ошибка с гарантией. 
Учи тригономертию.

Ольга Бравикова · Answer

program help; 
 
var 
 a,b,x,y:real; 
begin 
 
readln a,b; 
 
x = ln(abs(a+b+sin(a*cos(b)))); 
 
y = Arctan(x/Sqrt(1-sqr(x))); 
 
writeln(" y = ", y); 
writeln("x = ", x); 
 
end.

Татьяна Афонина · Answer

program P1; 
 uses crt; 
 var x,y,a,b:real; 
 begin 
 clrscr; 
 writeln('введите a,b'); 
 readln(a,b); 
 y:=2*arctan(x/(a+sqrt(1-sqr(x)))); 
 x:=ln(abs(a+b+sin(a)*cos(b))); 
 
 writeln('y=',y,' ','x=',x); 
 readln 
 end.