|
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: 1050 (0x41a)
Notes: Mikados TextFile, Mikados_K
Names: »FEJLPRG1«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FEJLPRG1«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FEJLPRG1«
0010 // -------------------- sum_brøk_2 ----------------------- 0020 // 0030 PROC SFD(N,M) 0040 WHILE M>0 DO 0050 REST:=N MOD M 0060 N:=M;M:=REST 0070 ENDWHILE 0080 SFD:=N 0090 ENDPROC SFD 0100 // 0110 PROC FORKORT(REF TÆLLER,REF NÆVNER) 0120 FAKTOR:=SFD(TÆLLER,NÆVNER) 0130 TÆLLER:=TÆLLER/FAKTOR 0140 NÆVNER:=NÆVNER/FAKTOR 0150 ENDPROC FORKORT 0160 // 0170 CLEAR 0180 INPUT "Indtast første brøks tæller og nævner: ":DIVIDEND1,DIVISOR1 0190 INPUT "Indtast anden brøks tæller og nævner: ":DIVIDEND2,DIVISOR2 0200 PRINT 0210 PRINT USING "(#######.## )/(#######.## ) + ":DIVIDEND1,DIVISOR1; 0220 PRINT USING "(#######.## )/(#######.## ) = ":DIVIDEND2,DIVISOR2; 0230 DIVIDEND:=DIVIDEND1*DIVISOR2+DIVIDEND2*DIVISOR1 0240 DIVISOR:=DIVISOR1*DIVISOR2 0250 FORTEGN:=SGN(DIVIDEND*DIVISOR) 0260 DIVIDEND:=ABS(DIVIDEND) 0270 DIVISOR:=ABS(DIVISOR) 0280 EXEC FORKORT(DIVIDEND,DIVISOR) 0290 // 0300 IF FORTEGN=0 THEN PRINT 0 0310 IF FORTEGN=-1 THEN PRINT "-", 0320 IF FORTEGN<>0 THEN 0330 IF DIVISOR=1 THEN 0340 PRINT DIVIDEND 0350 ELSE 0360 PRINT 0370 ENDIF 0380 ENDIF 8447 // >0 THEN