Предмет: Информатика, автор: OnlyFirst

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

Приложения:

Ответы

Автор ответа: pinguinbird
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
Предмет: Українська мова, автор: salmara
Предмет: Математика, автор: андрюша34
Предмет: Математика, автор: КрисПаркерA