DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦6411df6ce⟧ TextFile

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

Derivation

└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦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»