|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »KUGLE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KUGLE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KUGLE.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ------------------------ Kugle -------------------------«, l3=0x40}
0x042…084 Line {l1=0x40, l2=»0020 // Programmet udregner rumfang og overflade af en kugle ved«, l3=0x40}
0x084…0a9 Line {l1=0x23, l2=»0030 // procedurer med 1 parameter.«, l3=0x23}
0x0a9…0eb Line {l1=0x40, l2=»0040 // --------------------------------------------------------«, l3=0x40}
0x0eb…0f8 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0f8…108 Line {l1=0x0e, l2=»0060 NUMMER:=0«, l3=0x0e}
0x108…128 Line {l1=0x1e, l2=»0070 PRINT "Kugle nummer: 1. "«, l3=0x1e}
0x128…168 Line {l1=0x3e, l2=»0080 INPUT "Indtast kuglens radius: ":RADIUS1«, l3=0x3e}
0x168…188 Line {l1=0x1e, l2=»0090 PRINT "Kugle nummer: 2. "«, l3=0x1e}
0x188…1c8 Line {l1=0x3e, l2=»0100 INPUT "Indtast kuglens radius: ":RADIUS2«, l3=0x3e}
0x1c8…1e7 Line {l1=0x1d, l2=»0110 PRINT "Kugle nummer: 3."«, l3=0x1d}
0x1e7…227 Line {l1=0x3e, l2=»0120 INPUT "Indtast kuglens radius: ":RADIUS3«, l3=0x3e}
0x227…269 Line {l1=0x40, l2=»0130 // --------------------------------------------------------«, l3=0x40}
0x269…2b0 Line {l1=0x45, l2=»0140 PRINT "--------------------------------------------------------"«, l3=0x45}
0x2b0…2bd Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x2bd…2d7 Line {l1=0x18, l2=»0160 EXEC KUGLE(RADIUS1)«, l3=0x18}
0x2d7…2f1 Line {l1=0x18, l2=»0170 EXEC KUGLE(RADIUS2)«, l3=0x18}
0x2f1…30b Line {l1=0x18, l2=»0180 EXEC KUGLE(RADIUS3)«, l3=0x18}
0x30b…34d Line {l1=0x40, l2=»0190 // --------------------------------------------------------«, l3=0x40}
0x34d…366 Line {l1=0x17, l2=»0200 PROC KUGLE(RADIUS)«, l3=0x17}
0x366…388 Line {l1=0x20, l2=»0210 RUMFANG:=4/3*3.14*RADIUS**3«, l3=0x20}
0x388…3aa Line {l1=0x20, l2=»0220 OVERFLADE:=4*3.14*RADIUS**2«, l3=0x20}
0x3aa…3be Line {l1=0x12, l2=»0230 EXEC UDSKRIFT«, l3=0x12}
0x3be…3d2 Line {l1=0x12, l2=»0240 ENDPROC KUGLE«, l3=0x12}
0x3d2…414 Line {l1=0x40, l2=»0250 // --------------------------------------------------------«, l3=0x40}
0x414…428 Line {l1=0x12, l2=»0260 PROC UDSKRIFT«, l3=0x12}
0x428…435 Line {l1=0x0b, l2=»0270 PRINT «, l3=0x0b}
0x435…44c Line {l1=0x15, l2=»0275 NUMMER:=NUMMER+1«, l3=0x15}
0x44c…497 Line {l1=0x49, l2=»0280 PRINT USING "Nummer ### ":NUMMER«, l3=0x49}
0x497…4e2 Line {l1=0x49, l2=»0290 PRINT USING "Kuglens radius: #######.## cm. ":RADIUS«, l3=0x49}
0x4e2…52e Line {l1=0x4a, l2=»0300 PRINT USING "Kuglens rumfang: #######.## cm3. ":RUMFANG«, l3=0x4a}
0x52e…57c Line {l1=0x4c, l2=»0310 PRINT USING "Kuglens overflade: #######.## cm2. ":OVERFLADE«, l3=0x4c}
0x57c…5c2 Line {l1=0x44, l2=»0320 PRINT "-------------------------------------------------------"«, l3=0x44}
0x5c2…5d9 Line {l1=0x15, l2=»0330 ENDPROC UDSKRIFT«, l3=0x15}
0x5d9…5e0 00 00 63 63 63 63 63 ┆ ccccc┆