Предмет: Информатика,
автор: OnlyFirst
Помогите вычислить значении функции y=f(x) c тестами программы в Паскаль
Приложения:

Ответы
Автор ответа:
1
var x,y:real;
begin
write('Введите x: '); readln(x);
if x <= 0 then y := 1/(sqr(x)+1)
else if (x > 0) and (x <= 1) then y := sqr(x)/2+x
else y := ln(x+1);
write(y:0:2);
end.
Похожие вопросы
Предмет: Українська мова,
автор: vipkatya2002
Предмет: Русский язык,
автор: altuxowa21051986
Предмет: Українська мова,
автор: salmara
Предмет: Математика,
автор: андрюша34
Предмет: Математика,
автор: КрисПаркерA