|
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: 1504 (0x5e0)
Notes: Mikados TextFile, Mikados_K
Names: »KUGLE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KUGLE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KUGLE«
0010 // ------------------------ Kugle ------------------------- 0020 // Programmet udregner rumfang og overflade af en kugle ved 0030 // procedurer med 1 parameter. 0040 // -------------------------------------------------------- 0050 CLEAR 0060 NUMMER:=0 0070 PRINT "Kugle nummer: 1. " 0080 INPUT "Indtast kuglens radius: ":RADIUS1 0090 PRINT "Kugle nummer: 2. " 0100 INPUT "Indtast kuglens radius: ":RADIUS2 0110 PRINT "Kugle nummer: 3." 0120 INPUT "Indtast kuglens radius: ":RADIUS3 0130 // -------------------------------------------------------- 0140 PRINT "--------------------------------------------------------" 0150 CLEAR 0160 EXEC KUGLE(RADIUS1) 0170 EXEC KUGLE(RADIUS2) 0180 EXEC KUGLE(RADIUS3) 0190 // -------------------------------------------------------- 0200 PROC KUGLE(RADIUS) 0210 RUMFANG:=4/3*3.14*RADIUS**3 0220 OVERFLADE:=4*3.14*RADIUS**2 0230 EXEC UDSKRIFT 0240 ENDPROC KUGLE 0250 // -------------------------------------------------------- 0260 PROC UDSKRIFT 0270 PRINT 0275 NUMMER:=NUMMER+1 0280 PRINT USING "Nummer ### ":NUMMER 0290 PRINT USING "Kuglens radius: #######.## cm. ":RADIUS 0300 PRINT USING "Kuglens rumfang: #######.## cm3. ":RUMFANG 0310 PRINT USING "Kuglens overflade: #######.## cm2. ":OVERFLADE 0320 PRINT "-------------------------------------------------------" 0330 ENDPROC UDSKRIFT