Код IT
← Каталог

Архитектура Pascal-программ — Модульность как архитектурный принцип

Фрагмент из «Архитектура Pascal-программ»: Модульность как архитектурный принцип.

pascal pascalencyclopedia3 embed URL статья в энциклопедии
Pascal main.pas 
unit MathUtils;

interface

function Factorial(n: Integer): Int64;

implementation

function Factorial(n: Integer): Int64;
begin
  if n <= 1 then
    Result := 1
  else
    Result := n * Factorial(n - 1);
end;

end.
unit MathUtils;

interface

function Factorial(n: Integer): Int64;

implementation

function Factorial(n: Integer): Int64;
begin
  if n <= 1 then
    Result := 1
  else
    Result := n * Factorial(n - 1);
end;

end.