|
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: 480 (0x1e0)
Types: TextFile
Notes: Mikados_K
Names: »KVADRATT.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KVADRATT.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KVADRATT.K«
0010 // --------------------- kvadrattal ------------------- 0020 // Programmet undersøger, om et givet tal er et kvadrattal. 0025 // Fungerer ikke i denne COMAL-vers. p.g.a. funktionernes unøjagtighed
0x000…03e Line {l1=0x3c, l2=»0010 // --------------------- kvadrattal -------------------«, l3=0x3c}
0x03e…080 Line {l1=0x40, l2=»0020 // Programmet undersøger, om et givet tal er et kvadrattal.«, l3=0x40}
0x080…0cd Line {l1=0x4b, l2=»0025 // Fungerer ikke i denne COMAL-vers. p.g.a. funktionernes unøjagtighed«, l3=0x4b}
0x0cd…0e0 00 00 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 ┆ 030 CLEAR 0035 ┆
0x0e0…100 50 52 49 4e 54 20 0b 2a 30 30 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 70 ┆PRINT *0040 INPUT "Indtast et p┆
0x100…120 6f 73 69 74 69 76 74 20 74 61 6c 3a 20 22 3a 54 41 4c 2a 0b 30 30 35 30 20 50 52 49 4e 54 20 0b ┆ositivt tal: ":TAL* 0050 PRINT ┆
0x120…140 24 30 30 36 30 20 49 46 20 53 51 52 28 54 41 4c 29 3d 49 4e 54 28 53 51 52 28 54 41 4c 29 29 20 ┆$0060 IF SQR(TAL)=INT(SQR(TAL)) ┆
0x140…160 54 48 45 4e 20 24 2b 30 30 37 30 20 50 52 49 4e 54 20 54 41 4c 2c 22 20 65 72 20 6b 76 61 64 72 ┆THEN $+0070 PRINT TAL," er kvadr┆
0x160…180 61 74 65 74 20 70 7d 20 22 2c 53 51 52 28 54 41 4c 29 2b 0a 30 30 38 30 20 45 4c 53 45 20 0a 2a ┆atet på ",SQR(TAL)+ 0080 ELSE *┆
0x180…1a0 30 30 39 30 20 50 52 49 4e 54 20 54 41 4c 2c 22 20 65 72 20 69 6b 6b 65 20 6e 6f 67 65 74 20 6b ┆0090 PRINT TAL," er ikke noget k┆
0x1a0…1c0 76 61 64 72 61 74 74 61 6c 22 2a 0b 30 31 30 30 20 45 4e 44 49 46 20 0b 00 00 63 63 63 63 63 63 ┆vadrattal"* 0100 ENDIF cccccc┆
0x1c0…1e0 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┆
<0010 // --------------------- kvadrattal -------------------<@0020 // Programmet undersøger, om et givet tal er et kvadrattal.@K0025 // Fungerer ikke i denne COMAL-vers. p.g.a. funktionernes unøjagtighedK▶00◀▶00◀030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀*0040 INPUT "Indtast et positivt tal: ":TAL*▶0b◀0050 PRINT ▶0b◀$0060 IF SQR(TAL)=INT(SQR(TAL)) THEN $+0070 PRINT TAL," er kvadratet på ",SQR(TAL)+ 0080 ELSE *0090 PRINT TAL," er ikke noget kvadrattal"*▶0b◀0100 ENDIF ▶0b◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccc