|
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: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »CIRKEL.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »CIRKEL.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »CIRKEL.K«
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
0x000…046 Line {l1=0x44, l2=»0010 // -------------------------- Cirkel --------------------------«, l3=0x44}
0x046…053 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x053…097 Line {l1=0x42, l2=»0030 INPUT "Indtast radius i cirkel: ":RADIUS«, l3=0x42}
0x097…0b6 Line {l1=0x1d, l2=»0040 AREAL:=3.14159*RADIUS**2«, l3=0x1d}
0x0b6…0d6 Line {l1=0x1e, l2=»0050 OMKREDS:=3.14159*2*RADIUS«, l3=0x1e}
0x0d6…0e3 Line {l1=0x0b, l2=»0060 PRINT «, l3=0x0b}
0x0e3…130 Line {l1=0x4b, l2=»0070 PRINT USING "Radius: #####.## ":RADIUS«, l3=0x4b}
0x130…17c Line {l1=0x4a, l2=»0080 PRINT USING "Areal: #####.## ":AREAL«, l3=0x4a}
0x17c…1ca Line {l1=0x4c, l2=»0090 PRINT USING "Omkreds: #####.## ":OMKREDS«, l3=0x4c}
0x1ca…1e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccc┆
0x1e0…200 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┆
[…0x7…]