|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »FÆLLESDI.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FÆLLESDI.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FÆLLESDI.K«
0010 // ----------------------- fællesdiv ---------------------- 0020 // Finder største fælles divisor til to givne tal. 0025 INTEGER N,N1,K,R,K1 0030 INPUT "Indtast to tal, større end 2: ":N,K 0040 N1:=N;K1:=K 0050 REPEAT 0060 R:=N-INT(N/K)*K 0070 N:=K;K:=R 0080 UNTIL R=0 0090 PRINT N;"er største fælles divisor til ";N1;" og ";K1
0x000…042 Line {l1=0x40, l2=»0010 // ----------------------- fællesdiv ----------------------«, l3=0x40}
0x042…07b Line {l1=0x37, l2=»0020 // Finder største fælles divisor til to givne tal.«, l3=0x37}
0x07b…095 Line {l1=0x18, l2=»0025 INTEGER N,N1,K,R,K1«, l3=0x18}
0x095…0c9 Line {l1=0x32, l2=»0030 INPUT "Indtast to tal, større end 2: ":N,K«, l3=0x32}
0x0c9…0db Line {l1=0x10, l2=»0040 N1:=N;K1:=K«, l3=0x10}
0x0db…0e9 Line {l1=0x0c, l2=»0050 REPEAT «, l3=0x0c}
0x0e9…0ff Line {l1=0x14, l2=»0060 R:=N-INT(N/K)*K«, l3=0x14}
0x0ff…10f Line {l1=0x0e, l2=»0070 N:=K;K:=R«, l3=0x0e}
0x10f…11f Line {l1=0x0e, l2=»0080 UNTIL R=0«, l3=0x0e}
0x11f…15b Line {l1=0x3a, l2=»0090 PRINT N;"er største fælles divisor til ";N1;" og ";K1«, l3=0x3a}
0x15b…160 00 00 63 63 63 ┆ ccc┆
0x160…180 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x43…]