|
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: 1472 (0x5c0)
Types: TextFile
Notes: Mikados_K
Names: »PRIMTAL.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PRIMTAL.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PRIMTAL.K«
0010 // ------------------- prim ------------------------ 0015 INTEGER TRUE,FALSE,TAL 0016 TRUE:=1;FALSE:=0 0020 // 0030 CLEAR 0035 PRINT 0040 INPUT "Hvilket tal skal undersøges: ":TAL 0050 PRINT 0060 PRIMTAL:=FALSE 0070 IF TAL>1 AND TAL=INT(TAL) THEN 0080 PRIMTAL:=TRUE 0090 GRÆNSE:=SQR(TAL)+0.5 0100 IF TAL/2=INT(TAL/2) AND TAL>2 THEN 0110 PRIMTAL:=FALSE 0120 PRINT TAL," er et lige tal" 0130 ENDIF 0140 DIVISOR:=1 0150 IF TAL<>3 THEN 0160 WHILE PRIMTAL=TRUE AND DIVISOR<=GRÆNSE DO 0170 DIVISOR:=DIVISOR+2 0180 IF TAL-(INT(TAL/DIVISOR))*DIVISOR=0 THEN TEST:=FALSE 0190 IF NOT PRIMTAL THEN PRINT TAL," har ",DIVISOR," som divisor" 0200 ENDWHILE 0210 ENDIF 0220 ENDIF 0230 IF PRIMTAL THEN 0240 PRINT TAL;" er et primtal" 0250 ELSE 0260 PRINT TAL;" er ikke et primtal" 0270 ENDIF
0x000…03b Line {l1=0x39, l2=»0010 // ------------------- prim ------------------------«, l3=0x39}
0x03b…058 Line {l1=0x1b, l2=»0015 INTEGER TRUE,FALSE,TAL«, l3=0x1b}
0x058…06f Line {l1=0x15, l2=»0016 TRUE:=1;FALSE:=0«, l3=0x15}
0x06f…079 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x079…086 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x086…093 Line {l1=0x0b, l2=»0035 PRINT «, l3=0x0b}
0x093…0c3 Line {l1=0x2e, l2=»0040 INPUT "Hvilket tal skal undersøges: ":TAL«, l3=0x2e}
0x0c3…0d0 Line {l1=0x0b, l2=»0050 PRINT «, l3=0x0b}
0x0d0…0e5 Line {l1=0x13, l2=»0060 PRIMTAL:=FALSE«, l3=0x13}
0x0e5…10b Line {l1=0x24, l2=»0070 IF TAL>1 AND TAL=INT(TAL) THEN «, l3=0x24}
0x10b…11f Line {l1=0x12, l2=»0080 PRIMTAL:=TRUE«, l3=0x12}
0x11f…13a Line {l1=0x19, l2=»0090 GRÆNSE:=SQR(TAL)+0.5«, l3=0x19}
0x13a…164 Line {l1=0x28, l2=»0100 IF TAL/2=INT(TAL/2) AND TAL>2 THEN «, l3=0x28}
0x164…179 Line {l1=0x13, l2=»0110 PRIMTAL:=FALSE«, l3=0x13}
0x179…19b Line {l1=0x20, l2=»0120 PRINT TAL," er et lige tal"«, l3=0x20}
0x19b…1a8 Line {l1=0x0b, l2=»0130 ENDIF «, l3=0x0b}
0x1a8…1b9 Line {l1=0x0f, l2=»0140 DIVISOR:=1«, l3=0x0f}
0x1b9…1cf Line {l1=0x14, l2=»0150 IF TAL<>3 THEN «, l3=0x14}
0x1cf…200 Line {l1=0x2f, l2=»0160 WHILE PRIMTAL=TRUE AND DIVISOR<=GRÆNSE DO «, l3=0x2f}
0x200…219 Line {l1=0x17, l2=»0170 DIVISOR:=DIVISOR+2«, l3=0x17}
0x219…254 Line {l1=0x39, l2=»0180 IF TAL-(INT(TAL/DIVISOR))*DIVISOR=0 THEN TEST:=FALSE«, l3=0x39}
0x254…297 Line {l1=0x41, l2=»0190 IF NOT PRIMTAL THEN PRINT TAL," har ",DIVISOR," som divisor"«, l3=0x41}
0x297…2a7 Line {l1=0x0e, l2=»0200 ENDWHILE «, l3=0x0e}
0x2a7…2b4 Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x2b4…2c1 Line {l1=0x0b, l2=»0220 ENDIF «, l3=0x0b}
0x2c1…2d8 Line {l1=0x15, l2=»0230 IF PRIMTAL THEN «, l3=0x15}
0x2d8…2f9 Line {l1=0x1f, l2=»0240 PRINT TAL;" er et primtal"«, l3=0x1f}
0x2f9…305 Line {l1=0x0a, l2=»0250 ELSE «, l3=0x0a}
0x305…32b Line {l1=0x24, l2=»0260 PRINT TAL;" er ikke et primtal"«, l3=0x24}
0x32b…338 Line {l1=0x0b, l2=»0270 ENDIF «, l3=0x0b}
0x338…340 00 00 54 52 55 45 3a 3d ┆ TRUE:=┆
0x340…360 31 3b 46 41 4c 53 45 3a 3d 30 15 08 30 30 32 30 20 2f 2f 20 08 0b 30 30 33 30 20 43 4c 45 41 52 ┆1;FALSE:=0 0020 // 0030 CLEAR┆
0x360…380 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 2e 30 30 34 30 20 49 4e 50 55 54 20 22 48 76 69 6c ┆ 0035 PRINT .0040 INPUT "Hvil┆
0x380…3a0 6b 65 74 20 74 61 6c 20 73 6b 61 6c 20 75 6e 64 65 72 73 7c 67 65 73 3a 20 22 3a 54 41 4c 2e 0b ┆ket tal skal undersøges: ":TAL. ┆
0x3a0…3c0 30 30 35 30 20 50 52 49 4e 54 20 0b 13 30 30 36 30 20 50 52 49 4d 54 41 4c 3a 3d 46 41 4c 53 45 ┆0050 PRINT 0060 PRIMTAL:=FALSE┆
0x3c0…3e0 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┆
[…0xf…]
90010 // ------------------- prim ------------------------9▶1b◀0015 INTEGER TRUE,FALSE,TAL▶1b◀▶15◀0016 TRUE:=1;FALSE:=0▶15◀▶08◀0020 // ▶08◀▶0b◀0030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀.0040 INPUT "Hvilket tal skal undersøges: ":TAL.▶0b◀0050 PRINT ▶0b◀▶13◀0060 PRIMTAL:=FALSE▶13◀$0070 IF TAL>1 AND TAL=INT(TAL) THEN $▶12◀0080 PRIMTAL:=TRUE▶12◀▶19◀0090 GRÆNSE:=SQR(TAL)+0.5▶19◀(0100 IF TAL/2=INT(TAL/2) AND TAL>2 THEN (▶13◀0110 PRIMTAL:=FALSE▶13◀ 0120 PRINT TAL," er et lige tal" ▶0b◀0130 ENDIF ▶0b◀▶0f◀0140 DIVISOR:=1▶0f◀▶14◀0150 IF TAL<>3 THEN ▶14◀/0160 WHILE PRIMTAL=TRUE AND DIVISOR<=GRÆNSE DO /▶17◀0170 DIVISOR:=DIVISOR+2▶17◀90180 IF TAL-(INT(TAL/DIVISOR))*DIVISOR=0 THEN TEST:=FALSE9A0190 IF NOT PRIMTAL THEN PRINT TAL," har ",DIVISOR," som divisor"A▶0e◀0200 ENDWHILE ▶0e◀▶0b◀0210 ENDIF ▶0b◀▶0b◀0220 ENDIF ▶0b◀▶15◀0230 IF PRIMTAL THEN ▶15◀▶1f◀0240 PRINT TAL;" er et primtal"▶1f◀ 0250 ELSE $0260 PRINT TAL;" er ikke et primtal"$▶0b◀0270 ENDIF ▶0b◀▶00◀▶00◀TRUE:=1;FALSE:=0▶15◀▶08◀0020 // ▶08◀▶0b◀0030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀.0040 INPUT "Hvilket tal skal undersøges: ":TAL.▶0b◀0050 PRINT ▶0b◀▶13◀0060 PRIMTAL:=FALSEcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc