Tips dan Trik Delphi - Matematika

function FacIterative(n: Word): Longint;
var
  f: LongInt;
  i: Integer;
begin
  f := 1;
  for i := 2 to n do f := f * i;
  Result := f;
end;

function FacRecursive(n: Word): LongInt;
begin
  if n > 1 then
    Result := n * FacRecursive(n-1)
  else
    Result := 1;
end;

function  fibit(n: Integer): Integer;
var
  a, b, i, temp: Integer;
begin
  temp := 1;
  a := 1;
  b := 1;
  for i := 1 to n - 1 do
  begin
    temp := a + b;
    a := b;
    b := temp;
  end;
  Result := temp;
end;

function MinutesToDaysHoursMinutes(AMinutes: Integer): string;
const
  HOURSPERDAY = 8;    // wieviele Stunden hat der Tag? (Beispiel hier: 1 Arbeitstag)
var
  Days: Integer;
  Hours: Integer;
  Minutes: Integer;
begin
  if (AMinutes > 0) then
  begin
    Hours   := AMinutes div 60;
    Minutes := AMinutes mod 60;
    Days    := Hours div HOURSPERDAY;
    Hours   := Hours mod HOURSPERDAY;
  end
  else
  begin
    Hours   := 0;
    Minutes := 0;
    Days    := 0;
  end;

  Result := Format('%.2d:%.2d:%.2d', [Days, Hours, Minutes]);
end;

function Distance(const x1, y1, x2, y2: Double): Double;
var
  dx: Double;
  dy: Double;
begin
  dx     := x2 - x1;
  dy     := y2 - y1;
  Result := Sqrt(dx * dx + dy * dy);
end;

Function degress(nilai : Double) : Double;
begin
     result := (180 / 3.14159265358979) * nilai;
End;