|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »KEGLE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KEGLE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KEGLE.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ------------------------ Kegle -------------------------«, l3=0x40}
0x042…081 Line {l1=0x3d, l2=»0020 // Programmet udregner rumfang og overflade af en kegle.«, l3=0x3d}
0x081…094 Line {l1=0x11, l2=»0030 EXEC INDDATA«, l3=0x11}
0x094…0a9 Line {l1=0x13, l2=»0040 EXEC BEREGNING«, l3=0x13}
0x0a9…0bb Line {l1=0x10, l2=»0050 EXEC UDDATA«, l3=0x10}
0x0bb…0fd Line {l1=0x40, l2=»0060 // --------------------------------------------------------«, l3=0x40}
0x0fd…110 Line {l1=0x11, l2=»0070 PROC INDDATA«, l3=0x11}
0x110…11d Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x11d…12a Line {l1=0x0b, l2=»0085 PRINT «, l3=0x0b}
0x12a…165 Line {l1=0x39, l2=»0090 INPUT "Indtast keglens radius: ":RADIUS«, l3=0x39}
0x165…19f Line {l1=0x38, l2=»0100 INPUT "Indtast keglens højde: ":HØJDE«, l3=0x38}
0x19f…1b5 Line {l1=0x14, l2=»0110 ENDPROC INDDATA«, l3=0x14}
0x1b5…1f7 Line {l1=0x40, l2=»0120 // --------------------------------------------------------«, l3=0x40}
0x1f7…20c Line {l1=0x13, l2=»0130 PROC BEREGNING«, l3=0x13}
0x20c…237 Line {l1=0x29, l2=»0140 RUMFANG:=1/3*3.14159*RADIUS**2*HØJDE«, l3=0x29}
0x237…260 Line {l1=0x27, l2=»0150 SIDEN:=(RADIUS**2+HØJDE**2)**(1/2)«, l3=0x27}
0x260…28c Line {l1=0x2a, l2=»0160 KRUMMEOVERFLADE:=3.14159*HØJDE*RADIUS«, l3=0x2a}
0x28c…2bf Line {l1=0x31, l2=»0170 TOTALOVERFLADE:=3.14159*SIDEN*(SIDEN+RADIUS)«, l3=0x31}
0x2bf…2d7 Line {l1=0x16, l2=»0180 ENDPROC BEREGNING«, l3=0x16}
0x2d7…319 Line {l1=0x40, l2=»0190 // --------------------------------------------------------«, l3=0x40}
0x319…32b Line {l1=0x10, l2=»0200 PROC UDDATA«, l3=0x10}
0x32b…338 Line {l1=0x0b, l2=»0210 PRINT «, l3=0x0b}
0x338…37d Line {l1=0x43, l2=»0220 PRINT USING "Keglens radius: #######.## ":RADIUS«, l3=0x43}
0x37d…3c1 Line {l1=0x42, l2=»0230 PRINT USING "Keglens højde: #######.## ":HØJDE«, l3=0x42}
0x3c1…407 Line {l1=0x44, l2=»0240 PRINT USING "Keglens rumfang: #######.## ":RUMFANG«, l3=0x44}
0x407…455 Line {l1=0x4c, l2=»0250 PRINT USING "Keglens krumme overflade: #######.## ":KRUMMEOVERFLADE«, l3=0x4c}
0x455…4a2 Line {l1=0x4b, l2=»0260 PRINT USING "Keglens samlede overflade: #######.## ":TOTALOVERFLADE«, l3=0x4b}
0x4a2…4b7 Line {l1=0x13, l2=»0270 ENDPROC UDDATA«, l3=0x13}
0x4b7…4c0 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆
0x4c0…4e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆