home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / ger.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  461 b   |  29 lines
  1. { MaxonPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program m;
  4.  
  5. { Demonstriert Forward-Deklarationen }
  6.  
  7. Var i:integer;
  8.  
  9. Function Ung(n:integer):boolean;
  10.   forward;
  11.  
  12. Function Ger(n:integer):boolean;
  13.   Begin
  14.     if n=0 then ger:=true
  15.     else ger:=ung(n-1)
  16.   End;
  17.  
  18. Function Ung;
  19.   Begin
  20.     ung:=not ger(abs(n))
  21.   End;
  22.  
  23. Begin
  24.   write('Bitte ganze Zahl eingeben: ');
  25.   readln(i);
  26.   If ger(i) then writeln('Gerade.') else writeln('Ungerade.')
  27. end.
  28.  
  29.