Вычислить значения при заданной переменной - Pascal ABC

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

При x=10 вычислить (в конце написано "+arctg(exp(x))", exp(x), это экспонента в степени x???) где a,b,c,d - числа с клавиатуры

Код к задаче: «Вычислить значения при заданной переменной - Pascal ABC»

textual
const x=10;
var a,b,c,d,t1,t2,t3,y,z:real;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
t1:=ln(x+7);
if 1<0 then write('y не определено')
else
 begin
  y:=cos(sqrt(t1*t1*t1))+arctan(exp(abs(x)));
  if(cos(y)=0)or(cos(y/2)=0) then write('z не определено')
  else
   begin
    t2:=c+d*y;
    if t2=0 then  write('z не определено')
    else
     begin
      t3:=sin(y/2)/cos(y/2)+t2;
      if t3=0 then  write('z не определено')
      else
       begin
        z:=1/cos(y)+ln(t3);
        write('y=',y:0:3,'  z=',z:0:3);
       end
     end
   end
 end
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ