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

⟦7a224858d⟧

    Length: 736 (0x2e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »CIRKEL«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »CIRKEL« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »CIRKEL«

Text

0010 // -------------------------- Cirkel --------------------------
0020 CLEAR 
0030 INPUT "Indtast radius i cirkel:                      ":RADIUS
0040 AREAL:=3.14159*RADIUS**2
0050 OMKREDS:=3.14159*2*RADIUS
0060 PRINT 
0070 PRINT USING "Radius:                                 #####.## ":RADIUS
0080 PRINT USING "Areal:                                  #####.## ":AREAL
0090 PRINT USING "Omkreds:                                #####.## ":OMKREDS