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

Question

Информатика

Никанор

23 ноября, 20:09

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

+2

Ответы (2)

Знаете ответ?

Тимофейка · Answer 1

Программа в 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

Филя · Answer 2

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.