Question

Вычислить значение выражения - PascalABC.NET

Разработать подпрограмму для вычисления значения функции (функция определена в таблице 1). Значение функции вычислять с точностью до тысячных долей.

Рассмотреть два варианта реализации подпрограммы: подпрограмма-процедура и подпрограмма-функция.

Использовать подпрограмму для построения таблицы значений функции в 10 различных точках

Функции и процедуры в Паскаль

Спасибо ещё раз)

Разработать подпрограмму для вычисления значения функции
На картинке 9 формула

В чем ошибка?
function f(x:real):real;
begin
if x<0 then f:=1-x*x
else if x<=4 then f:=x+1
else f:=1+sqrt(cos(x));
end;

procedure p(x:real;var y:real);
begin
if x<0 then y:=1-x*x
else if x<=4 then y:=x+1
else y:=1+sqrt(cos(x));
end;