Best of German Only 2/romside_best_of_german_only_2.iso/dos/lernbild/itg/entpack.exe/BEISPIEL/FAKULTAT.PAS

Pascal/Delphi Source File | 1992-10-18 | 384b | 27 lines

PROGRAM Fakultät;

VAR
  !n, !m : INTEGER;

  FUNCTION Fak(!n : GanzZahl) : INTEGER;
    VAR
      !f : INTEGER;
  BEGIN
    IF n > 1 THEN BEGIN
      f := n * Fak(n-1);
    END
    ELSE BEGIN
      f := 1;
    END;
    Fak := f;
  END;

BEGIN
  n := 3;
  Write('Berechnung von n!  n = ');
  ReadLn(n);
  DebugEin;
  m := Fak(n);
  WriteLn(n, '!=', m);
END.