DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »FORKORT.PAS«

└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─ ⟦this⟧ »FORKORT.PAS« 

TextFile

PROGRAM forkort;

  VAR
    t, n : INTEGER;
  
  PROCEDURE forhold(taeller, naevner : INTEGER);
  
    VAR
      taellerkopi, naevnerkopi, rest : INTEGER;
    
    BEGIN
      taellerkopi := taeller;
      naevnerkopi := naevner;
      REPEAT
        rest := taellerkopi MOD naevnerkopi;
        taellerkopi := naevnerkopi;
        naevnerkopi := rest;
      UNTIL naevnerkopi = 0;
      WRITE(taeller, ' / ', naevner);
      IF taellerkopi = 1
        THEN WRITELN(' er uforkortelig')
      ELSE IF taeller MOD naevner = 0
        THEN WRITELN(' = ', taeller DIV naevner)
      ELSE
        BEGIN
          taeller := taeller DIV taellerkopi;
          naevner := naevner DIV taellerkopi;
          WRITELN(' = ', taeller, ' / ', naevner); 
        END;
    END;
  
  BEGIN
    WRITE(CLRHOM);
    WRITE('Tast tæller: '); READLN(t);
    WRITE('Tast nævner: '); READLN(n);
    forhold(t, n);
  END.
«eof»