home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 01 / mini-compiler / mini.ampk / Mini-Compiler / Demo / Define.m < prev    next >
Encoding:
Text File  |  1995-06-01  |  678 b   |  38 lines
  1. Program TestDef;
  2. { Dieses Testprogramm demonstriert die Anwendung von Define
  3.   Es berechnet die Fakultät entweder Iterativ oder Rekursiv }
  4. {$define Itera }  { ist dies definiert, so Fakultät Iterativ berechnen }
  5.  
  6. Var inh : Integer;
  7.  
  8. {$ifDef Itera }
  9. Function Fak( I : Integer) : Integer;
  10. Var erg,z: Integer;
  11. Begin
  12.  erg:=1;
  13.  If i>1
  14.     then Begin
  15.           For Z:=2 to I By 1 Do
  16.             Erg:=Erg*z
  17.          End;
  18.  Return(Erg)
  19. End;
  20. {$endif }
  21.  
  22. {$IfNDef Itera }
  23. Function Fak ( I : Integer) : Integer;
  24. Begin
  25.  if i<=1
  26.     then return(1)
  27.     else Return(Fak(i-1))
  28. End;
  29. {$endif}
  30.  
  31. Begin
  32.  ClrScr;
  33.  Write('Eingabe Zahl :');
  34.  Readln(inh);
  35.  Writeln('Fak(',inh,')=',fak(inh));
  36.  Readln
  37. End.
  38.