|
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 - metrics - download
Length: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »OVERFLAD«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OVERFLAD«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OVERFLAD«
0010 // --------------------- overflade ------------------------- 0020 // Udregner overfladen af en kasse, når man indtaster 0030 // kassens længde, bredde & højde. 0040 // 0050 INPUT "Indtast kassens bredde: ":BREDDE 0060 INPUT "Indtast kassens længde: ":LÆNGDE 0070 INPUT "Indtast kassens højde: ":HØJDE 0080 // 0090 OVERFLADEN:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2 0100 // 0110 PRINT USING "Bredden: #####.## cm.":BREDDE 0120 PRINT USING "Længden: #####.## cm.":LÆNGDE 0130 PRINT USING "Højden: #####.## cm.":HØJDE 0140 PRINT USING "Overfladen:######.## cm3.":OVERFLADEN