|
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: 1248 (0x4e0)
Notes: Mikados TextFile, Mikados_K
Names: »KEGLE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KEGLE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KEGLE«
0010 // ------------------------ Kegle ------------------------- 0020 // Programmet udregner rumfang og overflade af en kegle. 0030 EXEC INDDATA 0040 EXEC BEREGNING 0050 EXEC UDDATA 0060 // -------------------------------------------------------- 0070 PROC INDDATA 0080 CLEAR 0085 PRINT 0090 INPUT "Indtast keglens radius: ":RADIUS 0100 INPUT "Indtast keglens højde: ":HØJDE 0110 ENDPROC INDDATA 0120 // -------------------------------------------------------- 0130 PROC BEREGNING 0140 RUMFANG:=1/3*3.14159*RADIUS**2*HØJDE 0150 SIDEN:=(RADIUS**2+HØJDE**2)**(1/2) 0160 KRUMMEOVERFLADE:=3.14159*HØJDE*RADIUS 0170 TOTALOVERFLADE:=3.14159*SIDEN*(SIDEN+RADIUS) 0180 ENDPROC BEREGNING 0190 // -------------------------------------------------------- 0200 PROC UDDATA 0210 PRINT 0220 PRINT USING "Keglens radius: #######.## ":RADIUS 0230 PRINT USING "Keglens højde: #######.## ":HØJDE 0240 PRINT USING "Keglens rumfang: #######.## ":RUMFANG 0250 PRINT USING "Keglens krumme overflade: #######.## ":KRUMMEOVERFLADE 0260 PRINT USING "Keglens samlede overflade: #######.## ":TOTALOVERFLADE 0270 ENDPROC UDDATA