DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦7268bb2c9⟧ TextFile

    Length: 480 (0x1e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »DIVISORE.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »DIVISORE.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »DIVISORE.K« 

0010 // ---------------------- divisor --------------------
0020 // Finder samtlige divisorer i et givet tal.
0025 INTEGER TAL,D
0030 INPUT "Indtast et tal (større end 1):  ":TAL
0040 D:=2
0050 PRINT TAL;" har følgende divisorer:    "
0060 REPEAT 
0070 IF TAL MOD D=0 THEN 
0080 PRINT D;
0090 IF D<>TAL/D THEN PRINT CHR$(TAL/D,5)
0100 ENDIF 
0110 D:=D+1
0120 UNTIL D>SQR(TAL)
0130 PRINT TAL

0x000…03d Line {l1=0x3b, l2=»0010 // ---------------------- divisor --------------------«, l3=0x3b}
0x03d…070 Line {l1=0x31, l2=»0020 // Finder samtlige divisorer i et givet tal.«, l3=0x31}
0x070…084 Line {l1=0x12, l2=»0025 INTEGER TAL,D«, l3=0x12}
0x084…0b7 Line {l1=0x31, l2=»0030 INPUT "Indtast et tal (større end 1):  ":TAL«, l3=0x31}
0x0b7…0c2 Line {l1=0x09, l2=»0040 D:=2«, l3=0x09}
0x0c2…0f1 Line {l1=0x2d, l2=»0050 PRINT TAL;" har følgende divisorer:    "«, l3=0x2d}
0x0f1…0ff Line {l1=0x0c, l2=»0060 REPEAT «, l3=0x0c}
0x0ff…11a Line {l1=0x19, l2=»0070 IF TAL MOD D=0 THEN «, l3=0x19}
0x11a…129 Line {l1=0x0d, l2=»0080 PRINT D;«, l3=0x0d}
0x129…154 Line {l1=0x29, l2=»0090 IF D<>TAL/D THEN PRINT CHR$(TAL/D,5)«, l3=0x29}
0x154…161 Line {l1=0x0b, l2=»0100 ENDIF «, l3=0x0b}
0x161…16e Line {l1=0x0b, l2=»0110 D:=D+1«, l3=0x0b}
0x16e…185 Line {l1=0x15, l2=»0120 UNTIL D>SQR(TAL)«, l3=0x15}
0x185…195 Line {l1=0x0e, l2=»0130 PRINT TAL«, l3=0x0e}
0x195…1a0 00 00 63 63 63 63 63 63 63 63 63                                                                  ┆  ccccccccc┆
0x1a0…1c0 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┆
          […0x1…]

Reduced view