Ввести x, если x меньше =0, то y=(sin(x))-cos(x), иначе y= 5x^2-(sin^2(x))
Ввести x, если x<=0, то y=(sin(x))-cos(x), иначе y= 5x^2-(sin^2(x))
Гость
Ответ(ы) на вопрос:
Гость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.
ГостьПрограмма в 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
Не нашли ответ?
Похожие вопросы