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

Question

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

Comments

Помогите пожалуйста!!!

Answer 1

Программа в Pascal,ABC,Net
var
  x,y:real;
begin
  Write('Введите х: '); Readln(x);
  if x<=0 then y:=sin(x)-cos(x)<br>  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<br>y:=sin(x) - cos(x)
else
y:=5*x*x-2*sin(x)*sin(x)
write(y);
readln end.

Comments

а откуда 2?\

---

опечаталась) просто убери)

---

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

---

так?

---

Да)