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

⟦5b3e43a09⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »TERNING2«

Derivation

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

Text

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