|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400) Types: TextFile Names: »FORKORT.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »FORKORT.PAS«
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»