|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »FORKORT«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FORKORT«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FORKORT«
0010 // --------------------- Forkort ------------------------- 0015 INTEGER DIVIDEND,DIVISOR 0020 // 0030 PROC FNSFD(N,M) 0040 WHILE M>0 DO 0050 REST:=N MOD M 0060 N:=M;M:=REST 0070 ENDWHILE 0080 FNSFD:=N 0090 ENDPROC FNSFD 0100 // 0110 PROC FORKORT(REF TÆLLER,REF NÆVNER) 0120 FAKTOR:=FNSFD(TÆLLER,NÆVNER) 0130 TÆLLER:=TÆLLER/FAKTOR 0140 NÆVNER:=NÆVNER/FAKTOR 0150 ENDPROC FORKORT 0160 // 0170 CLEAR 0175 PRINT 0180 INPUT "Indtast tæller og nævner: ":DIVIDEND,DIVISOR 0190 PRINT 0200 PRINT DIVIDEND;"/";DIVISOR; 0210 EXEC FORKORT(DIVIDEND,DIVISOR) 0220 IF FAKTOR=1 THEN 0230 PRINT " er uforkortelig." 0240 ELSE 0250 PRINT " kan forkortes til "; 0260 IF DIVISOR=1 THEN 0270 PRINT DIVIDEND 0280 ELSE 0290 PRINT DIVIDEND;"/";DIVISOR 0300 ENDIF 0310 ENDIF