Возвращаемое значение функций не определено

[юля123321]

Требуется разработать диалоговую многофайловую программу табулирования функций, алгоритм вычисления которых задаётся отрезком ряда Тейлора. Программа должна обеспечивать выбор функций из числа реализованных (меню), задание расчетных параметров (граница изменения аргумента, количество значений аргумента, количество суммированных членов ряда), вывод таблицы (значения аргумента, функции, погрешности).
Возвращаемое значение функции 'exponenta' не определено
Возвращаемое значение функции 'sinus' не определено
Возвращаемое значение функции 'cosinus' не определено
Возвращаемое значение функции 'arctangens' не определено

unit func;

interface

var
  a, b: real;   //границы аргумента
  narg: word;   //кол-во значений аргумента
  nadd: word;   //кол-во слагаемых ряда
  m, n: word;//описание формата

procedure input(nadd, narg: word; a, b: real);
function exp(x: real; nadd: word; var err: real): real;
function sin(x: real; nadd: word; var err: real): real;
function cos(x: real; nadd: word; var err: real): real;
function arctg(x: real; nadd: word; var err: real): real;
implementation

procedure input(nadd, narg: word; a, b: real);
begin
  writeln('Введите количество слагаемых ряда');
  readln(nadd);
  writeln('Введите количество значений аргумента');
  readln(narg);
  writeln('Введите нижнюю границу аргумента');
  readln(a);
  writeln('Введите верхнюю границу аргумента');
  readln(b);
end;

function exp(x: real; nadd: word; var err: real): real;
var
  i: word;
  ad: real;
  sum: real;
begin
  sum := 1;
  ad := 1;
  for i := 1 to nadd do
  begin
    ad := ad * x / i;
    sum := sum + ad;
  end;
  err := ad;
  exp := sum;  
end;


function sin(x: real; nadd: word; var err: real): real;
var
  i: word;
  ad: real;
  sum: real;
begin
  sum := x;
  ad := x;
  for i := 1 to nadd do
  begin
    ad := ad * (-1) *  x * x / ((2 * i) * (2 * i + 1));
    sum := sum + ad;
  end;
  err := ad;
  sin := sum;  
end;

function cos(x: real; nadd: word; var err: real): real;
var
  i: word;
  ad: real;
  sum: real;
begin
  sum := 1;
  ad := 1;
  for i := 1 to nadd do
  begin
    ad := ad * (-1) * x * x / ((2 * i) * (2 * i - 1));
    sum := sum + ad;
  end;
  err := ad;
  cos := sum;  
end;

function arctg(x: real; nadd: word; var err: real): real;
var
  i: word;
  ad: real;
  sum: real;
begin
  sum := x;
  ad := x;
  for i := 1 to nadd do
  begin
    ad := ad * (-1) * (2 * i - 1)  * x * x / (2 * i + 1);
    sum := sum + ad;
  end;
  err := ad;
  arctg := sum;  
end;
end.







program main;

uses func;


const
  Smax = 6;

type
  Tstring = array[1..Smax] of string;

const
  str: TString = ('1.input', '2.exp', '3.sin', '4.cos', '5.arctg', '6.exit');

var
  a, b: real;
  nadd: word;
  narg: word;


function menu(s: TString; ns: word): word;
var
  i: word;
  k: word;
begin
  for i := 1 to ns do
    writeln(s[i]);
  writeln('Введите номер пункта');
  readln(k);
  result := k;
end;




function exponenta(var x, y, err: real): real;
var
  i: word;
  nadd, narg: word;
begin
  writeln('        x   ', '       exp   ', '      err   ');
  for i := 1 to narg do
  begin
    x := i;
    y := exp(x, nadd, err);
    writeln(x:12:5, y:12:5, err:12:5);
  end;
end;

function sinus(x, y, err: real): real;
var
  i: word;
  nadd, narg: word; a, b: real;
begin
  writeln('        x   ', '       sin   ', '      err   ');
  for i := 1 to narg do
  begin
    x := a + (b - a) * i / narg;
    y := sin(x, nadd, err);
    writeln(x:12:5, y:12:5, err:12:5);
  end;
end;

function cosinus(x, y, err: real): real;
var
  i: word;
  nadd, narg: word; a, b: real;
begin
  writeln('        x   ', '       cos   ', '      err   ');
  for i := 1 to narg do
  begin
    x := a + (b - a) * i / narg;
    y := cos(x, nadd, err);
    writeln(x:12:5, y:12:5, err:12:5);
  end;
end;

function arctangens(x, y, err: real): real;
var
  i: word;
  nadd, narg: word; a, b: real;
begin
  writeln('        x   ', '       arctg   ', '      err   ');
  for i := 1 to narg do
  begin
    x := a + (b - a) * i / narg;
    y := arctg(x, nadd, err);
    writeln(x:12:5, y:12:5, err:12:5);
  end;
end;

var
  k: word;
  x, y, err: real;

begin
  
  repeat
    k := menu(str, Smax);
    case k of
      1: input(nadd, narg, a, b);
      2: exponenta(x, y, err);
      3: sinus(x, y, err);
      4: cosinus(x, y, err);
      5: arctangens(x, y, err);
      6: exit;
    end;
  until k = Smax;
end.

[p51x]

Ну так определите для указанных функции возвращаемое значение или сделайте их процедурами.

[юля123321]

ну а как сделать?

[юля123321]

Когда я вводила границы, кол-во значений и кол-во членов ряда прямо в функции, всё было нормально. Таблица выводилась.
Например

function exponenta(x, y, err: real): real;
var
  i: word;
begin
  a := 1;
  b := 1;
  narg := 10;
  nadd := 7;
  writeln('        x   ', '       exp   ', '      err   ');
  for i := 1 to narg do
  begin
    x := i;
    y := exp(x, nadd, err);
    writeln(x:12:5, y:12:5, err:12:5);
  end;
end;

Но по заданию нужно вводить их после запуска программы, поэтому пришлось сделать input. Только не знаю, как их связать теперь между собой

[type_Oleg]

Переименуйте эти 4 функции в процедуры. Вы же их используете, как процедуры, они у вас ничего не возвращают.
Вместо

function cosinus(x, y, err: real): real;

вот так

procedure cosinus(x, y, err: real);

[юля123321]

В списке ошибок эта ошибка не появляется, но на экран выводится только одна строчка x exp err