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;

Answer 1

// PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
// Внимание! Если программа не работает, обновите версию!

function f(x:real):real;
begin
  if x<0 then Result:=1-x*x
  else
    if x<=4 then Result:=x+1
    else Result:=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;
  for var i:=1 to 10 do begin
    x:=2.5*i-10;
    y:=f(x); Write(x:6:1,y:15:8);
    p(x,y); Writeln(y:15:8)
    end
end.