|
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: 1984 (0x7c0)
Notes: Mikados TextFile, Mikados_K
Names: »KASSE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KASSE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KASSE«
0010 // ------------------------- kasse ------------------------------ 0020 // Udregner rumfang og overflade af en kasse, når man 0030 // indtaster kassens højde, bredde & længde. 0040 0050 CLEAR 0060 INPUT "Indtast længde: ":LÆNGDE 0070 INPUT "Indtast bredde: ":BREDDE 0080 INPUT "Indtast højde: ":HØJDE 0090 0100 EXEC RUMFANG 0110 EXEC OVERFLADE 0120 EXEC UDSKRIFT 0130 0140 PROC RUMFANG 0150 RUMF:=LÆNGDE*BREDDE*HØJDE 0160 ENDPROC RUMFANG 0170 0180 PROC OVERFLADE 0190 TOTALOVERFLADEN:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2 0200 ENDPROC OVERFLADE 0210 0220 PROC UDSKRIFT 0230 PRINT 0240 PRINT USING "Længde: ################.## cm. ":LÆNGDE 0250 PRINT USING "Bredde: ################.## cm. ":BREDDE 0260 PRINT USING "Højde: ################.## cm. ":HØJDE 0270 PRINT USING "Rumfang: ################.## cm3. ":RUMF 0280 PRINT USING "Samlede overflade: ##############.## cm2.":TOTALOVERFLADEN 0290 ENDPROC UDSKRIFT