Построение таблицы кусочной функции - Pascal

program table_of_func;
 
{задача по ссылке  http://www.cyberforum.ru/pascal/thread2184753.html
условие:
 
Построение таблицы кусочной функции. Кусочной называется функция, которая на
разных участках числовой оси задается разными выражениями.
 
Функция: = f1. f2. f3
 
f1 = Cos(3+x )+1;
f2 = Sin(x/5)/Cos(x/5);
f3 =  x-2
 
Условие:
 
x<-1
-1<x\leq 1
x>1
 
A: -3
B: 4
шаг H: 0.25}
{$mode objfpc}{$H+}
 
uses
  Classes, SysUtils, Math;
 
const
  H = 0.25;
  A = -3;
  B = 4;
 
  function f1(const x: single): single;
  begin
    Result:= cos(3 + x) + 1;
  end;
 
  function f2(const x: single): single;
  begin
    Result:= sin(x/5)/cos(x/5);
  end;
 
  function f3(const x: single): single;
  begin
    Result:= x - 2;
  end;
 
  function f(const x: Single ): Single;
  begin
    if x < -1 then exit(f1(x));
    if x >  1 then exit(f3(x));
    Result:= f2(x); // -1 < x <= 1
  end;
var
  x: Single = A;
begin
  repeat
    writeln('x = ', x:5:2,' y = ', f(x):5:2);
    x += H;   //x := x + 0.25;
  until (x > B);
  readln;
end.