home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / bruchkue.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  634 b   |  42 lines
  1.  
  2. PROGRAM Bruchkuerzen;
  3.  
  4. USES Crt;
  5.  
  6. VAR Z1,Z2,N1,N2 : Integer;
  7.  
  8. PROCEDURE Eingabe;
  9.  BEGIN
  10.   Write ('Zähler: ');
  11.   Readln  (Z1);
  12.   Write ('Nenner:  ');
  13.   Readln  (N1)
  14.  END;
  15.  
  16. PROCEDURE Kuerze;
  17. VAR I, Teiler, Min : Integer;
  18.  BEGIN
  19.   IF Z1<N1 THEN Min:=Z1
  20.        ELSE Min:=N1;
  21.   FOR I:=1 TO Min DO
  22.    IF (Z1 MOD I=0) AND (N1 MOD I=0)
  23.    THEN Teiler:=I;
  24.   Z2:=Z1 DIV Teiler;
  25.   N2:=N1 DIV Teiler
  26.  END;
  27.  
  28. PROCEDURE Ausgabe;
  29.  BEGIN
  30.   Writeln;
  31.   Writeln (Z1:5,'       ',Z2:5);
  32.   Writeln ('-----  =    -----');
  33.   Writeln (N1:5,'       ',N2:5)
  34.  END;
  35.  
  36. BEGIN { Hauptprogramm }
  37.  Eingabe;
  38.  Kuerze;
  39.  Ausgabe
  40. END.
  41.  
  42.