Ввести x, если x<=0, то y = (sin (x)) - cos (x), иначе y = 5x^2 - (sin^2 (x))

Question

Информатика

Петяй

19 сентября, 11:37

Ввести x, если x<=0, то y = (sin (x)) - cos (x), иначе y = 5x^2 - (sin^2 (x))

+2

Ответы (2)

Знаете ответ на вопрос?

Ванюся · Answer 1

Var x, y:real;

begin

write ('Введите х: ') ;

readln (x) ;

if x<=0 then

y:=sin (x) - cos (x)

else

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

write (y) ;

readln end.

Сигизмунд · Answer 2

Программа в Pascal, ABC, Net

var

x, y:real;

begin

Write ('Введите х: ') ; Readln (x) ;

if x<=0 then y:=sin (x) - cos (x)

else y:=5*sqr (x) - sqr (sin (x)) ;

Writeln ('y=', y)

end.

Тестовое решение:

Введите х: 0.137

y=0.0751931316536888