Вычислить значение выражения - 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;

begin var x,y:real

убирая этот блог пишет ожидался begin

Странно.... а Вы что ожидали? Паскаль не умеет просто так компилировать отдельные процедуры и функции.

не знаю)) еслиб знала не уточняла бы тут, просто как сказала препод то и прошу ну ладно ибо с процедурами так и не могу вникнуть суть

Ну что я могу сказать....надо все же пытаться учить предмет.