|
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: 1093 (0x445)
Notes: Mikados TextFile, Mikados_K
Names: »SUM_BRØ2«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SUM_BRØ2«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SUM_BRØ2«
0010 // -------------------- sum_brøk_2 -----------------------
0015 INTEGER DIVIDEND1,DIVIDEND2,DIVISOR1,DIVISOR2,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 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 "(";DIVIDEND1;")/(";DIVISOR1;") + (";
0220 PRINT 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 DIVIDEND;"/";DIVISOR
0370 ENDIF
0380 ENDIF