|
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 - download
Length: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »SUM_BRØ1.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SUM_BRØ1.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SUM_BRØ1.K«
0010 // -------------------- sum_brøk_1 ----------------------- 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 0171 INTEGER DIVIDEND,DIVISOR,DIVIDEND1,DIVIDEND2,DIVISOR1,DIVISOR2 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;"+ ";DIVIDEND2;"/ ";DIVISOR2;" = "; 0220 DIVIDEND:=DIVIDEND1*DIVISOR2+DIVIDEND2*DIVISOR1 0230 DIVISOR:=DIVISOR1*DIVISOR2 0240 // 0250 EXEC FORKORT(DIVIDEND,DIVISOR) 0260 // 0270 IF DIVISOR=1 THEN 0280 PRINT DIVIDEND 0290 ELSE 0300 PRINT DIVIDEND;"/ ";DIVISOR 0310 ENDIF =548 // DIVIDEND,DIVISOR)
0x000…041 Line {l1=0x3f, l2=»0010 // -------------------- sum_brøk_1 -----------------------«, l3=0x3f}
0x041…04b Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04b…05f Line {l1=0x12, l2=»0030 PROC SFD(N,M)«, l3=0x12}
0x05f…073 Line {l1=0x12, l2=»0040 WHILE M>0 DO «, l3=0x12}
0x073…087 Line {l1=0x12, l2=»0050 REST:=N MOD M«, l3=0x12}
0x087…09a Line {l1=0x11, l2=»0060 N:=M;M:=REST«, l3=0x11}
0x09a…0aa Line {l1=0x0e, l2=»0070 ENDWHILE «, l3=0x0e}
0x0aa…0b7 Line {l1=0x0b, l2=»0080 SFD:=N«, l3=0x0b}
0x0b7…0c9 Line {l1=0x10, l2=»0090 ENDPROC SFD«, l3=0x10}
0x0c9…0d3 Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x0d3…0fd Line {l1=0x28, l2=»0110 PROC FORKORT(REF TÆLLER,REF NÆVNER)«, l3=0x28}
0x0fd…11e Line {l1=0x1f, l2=»0120 FAKTOR:=SFD(TÆLLER,NÆVNER)«, l3=0x1f}
0x11e…13a Line {l1=0x1a, l2=»0130 TÆLLER:=TÆLLER/FAKTOR«, l3=0x1a}
0x13a…156 Line {l1=0x1a, l2=»0140 NÆVNER:=NÆVNER/FAKTOR«, l3=0x1a}
0x156…16c Line {l1=0x14, l2=»0150 ENDPROC FORKORT«, l3=0x14}
0x16c…176 Line {l1=0x08, l2=»0160 // «, l3=0x08}
0x176…183 Line {l1=0x0b, l2=»0170 CLEAR «, l3=0x0b}
0x183…1c8 Line {l1=0x43, l2=»0171 INTEGER DIVIDEND,DIVISOR,DIVIDEND1,DIVIDEND2,DIVISOR1,DIVISOR2«, l3=0x43}
0x1c8…1d5 Line {l1=0x0b, l2=»0175 PRINT «, l3=0x0b}
0x1d5…21f Line {l1=0x48, l2=»0180 INPUT "Indtast første brøks tæller og nævner: ":DIVIDEND1,DIVISOR1«, l3=0x48}
0x21f…269 Line {l1=0x48, l2=»0190 INPUT "Indtast anden brøks tæller og nævner: ":DIVIDEND2,DIVISOR2«, l3=0x48}
0x269…276 Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x276…2be Line {l1=0x46, l2=»0210 PRINT DIVIDEND1;"/ ";DIVISOR1;"+ ";DIVIDEND2;"/ ";DIVISOR2;" = ";«, l3=0x46}
0x2be…2f4 Line {l1=0x34, l2=»0220 DIVIDEND:=DIVIDEND1*DIVISOR2+DIVIDEND2*DIVISOR1«, l3=0x34}
0x2f4…315 Line {l1=0x1f, l2=»0230 DIVISOR:=DIVISOR1*DIVISOR2«, l3=0x1f}
0x315…31f Line {l1=0x08, l2=»0240 // «, l3=0x08}
0x31f…344 Line {l1=0x23, l2=»0250 EXEC FORKORT(DIVIDEND,DIVISOR)«, l3=0x23}
0x344…34e Line {l1=0x08, l2=»0260 // «, l3=0x08}
0x34e…367 Line {l1=0x17, l2=»0270 IF DIVISOR=1 THEN «, l3=0x17}
0x367…37c Line {l1=0x13, l2=»0280 PRINT DIVIDEND«, l3=0x13}
0x37c…388 Line {l1=0x0a, l2=»0290 ELSE «, l3=0x0a}
0x388…3aa Line {l1=0x20, l2=»0300 PRINT DIVIDEND;"/ ";DIVISOR«, l3=0x20}
0x3aa…3b7 Line {l1=0x0b, l2=»0310 ENDIF «, l3=0x0b}
0x3b7…3d2 Line {l1=0x19, l2=»=548 // DIVIDEND,DIVISOR)«, l3=0x19}
0x3d2…3e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccc┆