Подпрограмма

program Project1;
type
  Tfun = function(x:real):double;
{$F+}
function fsin(x:real):double;
begin
  fsin:= sin(x);
end;
 
function fcos(x:real):double;
begin
  fcos:= cos(x);
end;
{$F-}
 
procedure printfunc(a,b,step: real; fun: Tfun);
var
  x: real;
begin
  x:= a;
  while x < b do
    begin
      writeln('x = ',x:0:2,'  f(x) = ',fun(x):0:4);
      x:= x + step;
    end;
end;
 
var
  f: Tfun;  // Переменная для хранения значения процедурного типа.
  stepf: real; // Переменная для хранения значения шага.
  af,bf: real; // Переменные для хранения значений левой и правой границ таблицы.
begin
  writeln('Table for function sin(x)');
  af:= 0;
  bf:= Pi;
  stepf:= 0.1;
  f:= fsin;
  printfunc(af,bf,stepf,f);
  writeln('Table for function cos(x)');
  af:= 0;
  bf:= Pi;
  stepf:= 0.1;
  f:= fcos;
  printfunc(af,bf,stepf,f);
  readln;
end.