DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦2d65e5cb8⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »SUMBROEK.PAS«

Derivation

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─ ⟦this⟧ »SUMBROEK.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »SUMBROEK.PAS«

TextFile

        PROGRAM sumbroek;
        
          VAR
            t1, t2, n1, n2 : INTEGER;
          
          PROCEDURE forkort(VAR taeller, naevner : INTEGER);
          
            VAR
              taellerkopi, naevnerkopi, rest : INTEGER;
            
            BEGIN (* forkort *)
              taellerkopi := taeller;
              naevnerkopi := naevner;
              REPEAT
                rest := taellerkopi MOD naevnerkopi;
                taellerkopi := naevnerkopi;
                naevnerkopi := rest;
              UNTIL naevnerkopi = 0; (* taellerkopi er nu sfd *)
              taeller := taeller DIV taellerkopi;
              naevner := naevner DIV taellerkopi;
            END; (* forkort *)
            
          BEGIN (* sumbroek *)
            WRITE(CHR(12), 'Tast første brøks tæller og nævner: ');
            READLN(t1, n1);
            WRITE('Tast anden brøks tæller og nævner: ');
            READLN(t2, n2);
            WRITE(t1, '/', n1, ' + ', t2, '/', n2, ' = ');
            t1 := t1 * n2 + t2 * n1; (* Obs: fare for overflow *)
            n1 := n1 * n2;
            forkort(t1, n1);
            WRITELN(t1, '/', n1);
          END. (* sumbroek *)
«eof»