PascalABC
Составьте программу вычисления значений функции:


PascalABC Составьте программу вычисления значений функции:

fyntikwotoxgtde fyntikwotoxgtde    1   09.06.2020 19:25    0

Ответы
ivankisa12 ivankisa12  15.10.2020 13:34

program Project1;

  var x, y:double;

begin

 writeln('Enter x: ');

 readln(x);

 if (x>1) then

   y:=ln(sin(x)+4)

 else if (x<-4)then

   y:=2*cos(x)-5*sin(x)

 else y:=ln(3-sin(x));

 writeln(y);

 readln;

end.

       

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика