|
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: »TERNING2.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TERNING2.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TERNING2.K«
0010 // -------------------- terning2 ----------------------- 0020 // Udregner siden i en terning ved indtastning af 0030 // terningens rumfang. 0040 // 0050 INPUT "Terningens rumfang: ":RUMFANG 0060 SIDEN:=INT(RUMFANG**(1/3)*100+0.5)/100 0070 PRINT 0080 PRINT "Terningens rumfang: ";RUMFANG 0090 PRINT "Terningens side: ";SIDEN
0x000…03f Line {l1=0x3d, l2=»0010 // -------------------- terning2 -----------------------«, l3=0x3d}
0x03f…077 Line {l1=0x36, l2=»0020 // Udregner siden i en terning ved indtastning af«, l3=0x36}
0x077…094 Line {l1=0x1b, l2=»0030 // terningens rumfang.«, l3=0x1b}
0x094…09e Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x09e…0cd Line {l1=0x2d, l2=»0050 INPUT "Terningens rumfang: ":RUMFANG«, l3=0x2d}
0x0cd…0fa Line {l1=0x2b, l2=»0060 SIDEN:=INT(RUMFANG**(1/3)*100+0.5)/100«, l3=0x2b}
0x0fa…107 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x107…13a Line {l1=0x31, l2=»0080 PRINT "Terningens rumfang: ";RUMFANG«, l3=0x31}
0x13a…16b Line {l1=0x2f, l2=»0090 PRINT "Terningens side: ";SIDEN«, l3=0x2f}
0x16b…180 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x180…1a0 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┆
[…0x2…]