Предмет: Информатика,
автор: VladNotLazy27567
Помогите пожалуйста с паскалем
ПРИМЕР:
var
x, y : real;
a, b : integer;
begin;
write ('Введіть x=>');
readln (x);
write ('Введіть a=>');
readln (a);
write ('Введіть b=>');
readln (b);
if x>0
then y:= x-(sqr(x)/a)+(exp(ln(x)*3)/b)
else y:= ln(abs((a-sqrt(abs(b)))*(pi-(a/(b+sqr(x)/2)))));
write ('y=', y);
end.
Приложения:
Ответы
Автор ответа:
0
Ответ:
- var x, y : real;
- begin;
- write ('Введіть x=>');
- readln (x);
- if x<2
- then y:= (2/7)*sin(x)+(tan(x)+power(x,3))/(5*x+6)
- else if x<=5 then y:= sqrt(exp(-x)+1);
- if x>5 then write ('решения нет') else write ('y=', y);
- end.
Пример работы:
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: gmirgmnrig
Предмет: Другие предметы,
автор: petrovamaria23
Предмет: Русский язык,
автор: medvediva
Предмет: Математика,
автор: сандро2006
Предмет: История,
автор: Kristinkamaney