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 - metrics - download

⟦5afe944c7⟧ TextFile

    Length: 1472 (0x5c0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »PRIMTAL«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »PRIMTAL« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »PRIMTAL« 

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 

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