Написать программу для решения уравнения вида - Pascal ABC

Формулировка задачи:

a = e^|x-y| + |x-y|^x+y, b = (arctg z + arctg x)/y

Код к задаче: «Написать программу для решения уравнения вида - Pascal ABC»

textual
var a,b,c,x,y,z:real;
begin
writeln('Введите x,y,z');
readln(x,y,z);
if x=y then c:=0
else c:=exp(ln(abs(x-y))*(x+y));
a:=exp(abs(x-y))+c;
writeln('a=',a:0:2);
if y=0 then write('b не определено')
//можно написать if (y=0)or(cos(z)=0)or(cos(x)=0) then...
//но не имеет смысла, т.к. не сможете ввести с клавы числа вида pi/2
else
 begin
  b:=(arctan(z)+arctan(x))/y;
  write('b=',b:0:2);
 end;
end.

6   голосов, оценка 4.667 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы