|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »OVERFL2.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OVERFL2.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OVERFL2.K«
0010 // ---------------------- overfl_2 ----------------------- 0020 // Udregner forskellige overflader CASE - OTHERWISE -ENDCASE 0030 CLEAR 0040 PRINT "Dette program udskriver den samlede overflade af:" 0050 PRINT "-------------------------------------------------" 0060 PRINT "1. Kasse." 0070 PRINT "2. Cylinder." 0080 PRINT "3. Kegle." 0090 PRINT "4. Keglestub." 0100 PRINT "5. Kugle." 0110 PRINT 0120 PRINT 0130 PRINT 0140 PRINT "Indtast det ønskede nummer for overflade:"; 0150 INPUT ØNSKE 0160 // ------------------------------------------------------- 0170 // Nu findes de forskellige rumfang ved en CASE - OTHERWISE - 0180 // ENDCASE. 0190 CLEAR 0195 PRINT 0200 CASE ØNSKE OF 0210 WHEN 1 0220 PRINT 0230 PRINT "Den samlede overflade af en kasse:" 0240 PRINT 0250 INPUT "Indtast længde: ":LÆNGDE 0260 INPUT "Indtast bredde: ":BREDDE 0270 INPUT "Indtast højde: ":HØJDE 0280 PRINT 0290 PRINT 0300 OVERFLADE:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2 0310 PRINT "Den samlede overflade af kassen: ",OVERFLADE 0320 WHEN 2 0330 PRINT "Den samlede overflade af en cylinder:" 0340 PRINT 0350 PRINT 0360 INPUT "Indtast cylinderens radius: ":RADIUS 0370 PRINT 0380 INPUT "Indtast cylinderens højde: ":HØJDE 0390 PRINT 0400 PRINT 0410 OVERFLADE:=2*3.14*RADIUS*(HØJDE+RADIUS) 0420 PRINT 0430 PRINT "Den totale overflade: ",OVERFLADE 0440 WHEN 3 0450 PRINT "Totaloverfladen af en kegle:" 0460 PRINT 0470 INPUT "Indtast keglens radius: ":RADIUS 0480 INPUT "Indtast keglens højde: ":HØJDE 0490 SIDEN:=SQR(HØJDE**2+RADIUS**2) 0500 OVERFLADE:=3.14*RADIUS**2+3.14*RADIUS*SIDEN 0510 PRINT 0520 PRINT 0530 PRINT "Totaloverfladen af en kegle: " 0540 PRINT "Radius: ",RADIUS 0550 PRINT "Højden: ",HØJDE 0560 PRINT "Overfladen: ",OVERFLADE 0570 WHEN 4 0580 PRINT "Totaloverfladen af en keglestub:" 0590 PRINT 0600 PRINT 0610 INPUT "Indtast keglestubbens nederste radius: ":R1 0620 INPUT "Indtast keglestubbens øverste radius: ":R2 0630 INPUT "Indtast keglestubbens højde: ":HØJDE 0640 PRINT 0650 SIDEN:=INT((SQR((R2-R1)**2+HØJDE**2)*100))/100 0660 OVERFLADEN:=INT(3.14*(R1**2+R2**2)+3.14*SIDEN*(R1+R2)*100)/100 0670 PRINT 0680 PRINT "Radius i den nederste grundflade: ",R1 0690 PRINT "Radius i den øverste flade: ",R2 0700 PRINT "Sidelinien: ",SIDEN 0710 PRINT "Keglestubbens højde: ",HØJDE 0720 PRINT "Totaloverfladen: ",OVERFLADEN 0730 PRINT 0740 WHEN 5 0750 PRINT "Overfladen af en kugle." 0760 PRINT 0770 INPUT "Indtast kuglens radius: ":RADIUS 0780 OVERFLADEN:=4*RADIUS**2*3.14 0790 PRINT 0800 PRINT "Overfladen af denne kugle er: ",OVERFLADEN 0810 PRINT 0820 OTHERWISE 0830 CURSOR 10,21 0840 PRINT "Du har indtastet et forkert nummer. Prøv igen." 0850 ENDCASE
0x0000…0041 Line {l1=0x3f, l2=»0010 // ---------------------- overfl_2 -----------------------«, l3=0x3f}
0x0041…0084 Line {l1=0x41, l2=»0020 // Udregner forskellige overflader CASE - OTHERWISE -ENDCASE«, l3=0x41}
0x0084…0091 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x0091…00d1 Line {l1=0x3e, l2=»0040 PRINT "Dette program udskriver den samlede overflade af:"«, l3=0x3e}
0x00d1…0111 Line {l1=0x3e, l2=»0050 PRINT "-------------------------------------------------"«, l3=0x3e}
0x0111…012b Line {l1=0x18, l2=»0060 PRINT "1. Kasse."«, l3=0x18}
0x012b…0148 Line {l1=0x1b, l2=»0070 PRINT "2. Cylinder."«, l3=0x1b}
0x0148…0162 Line {l1=0x18, l2=»0080 PRINT "3. Kegle."«, l3=0x18}
0x0162…0180 Line {l1=0x1c, l2=»0090 PRINT "4. Keglestub."«, l3=0x1c}
0x0180…019a Line {l1=0x18, l2=»0100 PRINT "5. Kugle."«, l3=0x18}
0x019a…01a7 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x01a7…01b4 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x01b4…01c1 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x01c1…01fa Line {l1=0x37, l2=»0140 PRINT "Indtast det ønskede nummer for overflade:";«, l3=0x37}
0x01fa…020c Line {l1=0x10, l2=»0150 INPUT ØNSKE«, l3=0x10}
0x020c…024d Line {l1=0x3f, l2=»0160 // -------------------------------------------------------«, l3=0x3f}
0x024d…0291 Line {l1=0x42, l2=»0170 // Nu findes de forskellige rumfang ved en CASE - OTHERWISE -«, l3=0x42}
0x0291…02a3 Line {l1=0x10, l2=»0180 // ENDCASE.«, l3=0x10}
0x02a3…02b0 Line {l1=0x0b, l2=»0190 CLEAR «, l3=0x0b}
0x02b0…02bd Line {l1=0x0b, l2=»0195 PRINT «, l3=0x0b}
0x02bd…02d2 Line {l1=0x13, l2=»0200 CASE ØNSKE OF «, l3=0x13}
0x02d2…02df Line {l1=0x0b, l2=»0210 WHEN 1«, l3=0x0b}
0x02df…02ec Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x02ec…031d Line {l1=0x2f, l2=»0230 PRINT "Den samlede overflade af en kasse:"«, l3=0x2f}
0x031d…032a Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x032a…035e Line {l1=0x32, l2=»0250 INPUT "Indtast længde: ":LÆNGDE«, l3=0x32}
0x035e…0392 Line {l1=0x32, l2=»0260 INPUT "Indtast bredde: ":BREDDE«, l3=0x32}
0x0392…03c5 Line {l1=0x31, l2=»0270 INPUT "Indtast højde: ":HØJDE«, l3=0x31}
0x03c5…03d2 Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x03d2…03df Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x03df…041c Line {l1=0x3b, l2=»0300 OVERFLADE:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2«, l3=0x3b}
0x041c…0457 Line {l1=0x39, l2=»0310 PRINT "Den samlede overflade af kassen: ",OVERFLADE«, l3=0x39}
0x0457…0464 Line {l1=0x0b, l2=»0320 WHEN 2«, l3=0x0b}
0x0464…0498 Line {l1=0x32, l2=»0330 PRINT "Den samlede overflade af en cylinder:"«, l3=0x32}
0x0498…04a5 Line {l1=0x0b, l2=»0340 PRINT «, l3=0x0b}
0x04a5…04b2 Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x04b2…04e8 Line {l1=0x34, l2=»0360 INPUT "Indtast cylinderens radius: ":RADIUS«, l3=0x34}
0x04e8…04f5 Line {l1=0x0b, l2=»0370 PRINT «, l3=0x0b}
0x04f5…052a Line {l1=0x33, l2=»0380 INPUT "Indtast cylinderens højde: ":HØJDE«, l3=0x33}
0x052a…0537 Line {l1=0x0b, l2=»0390 PRINT «, l3=0x0b}
0x0537…0544 Line {l1=0x0b, l2=»0400 PRINT «, l3=0x0b}
0x0544…0572 Line {l1=0x2c, l2=»0410 OVERFLADE:=2*3.14*RADIUS*(HØJDE+RADIUS)«, l3=0x2c}
0x0572…057f Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x057f…05bc Line {l1=0x3b, l2=»0430 PRINT "Den totale overflade: ",OVERFLADE«, l3=0x3b}
0x05bc…05c9 Line {l1=0x0b, l2=»0440 WHEN 3«, l3=0x0b}
0x05c9…05f4 Line {l1=0x29, l2=»0450 PRINT "Totaloverfladen af en kegle:"«, l3=0x29}
0x05f4…0601 Line {l1=0x0b, l2=»0460 PRINT «, l3=0x0b}
0x0601…0637 Line {l1=0x34, l2=»0470 INPUT "Indtast keglens radius: ":RADIUS«, l3=0x34}
0x0637…066c Line {l1=0x33, l2=»0480 INPUT "Indtast keglens højde: ":HØJDE«, l3=0x33}
0x066c…0691 Line {l1=0x23, l2=»0490 SIDEN:=SQR(HØJDE**2+RADIUS**2)«, l3=0x23}
0x0691…06c3 Line {l1=0x30, l2=»0500 OVERFLADE:=3.14*RADIUS**2+3.14*RADIUS*SIDEN«, l3=0x30}
0x06c3…06d0 Line {l1=0x0b, l2=»0510 PRINT «, l3=0x0b}
0x06d0…06dd Line {l1=0x0b, l2=»0520 PRINT «, l3=0x0b}
0x06dd…070c Line {l1=0x2d, l2=»0530 PRINT "Totaloverfladen af en kegle: "«, l3=0x2d}
0x070c…0742 Line {l1=0x34, l2=»0540 PRINT "Radius: ",RADIUS«, l3=0x34}
0x0742…0777 Line {l1=0x33, l2=»0550 PRINT "Højden: ",HØJDE«, l3=0x33}
0x0777…07b0 Line {l1=0x37, l2=»0560 PRINT "Overfladen: ",OVERFLADE«, l3=0x37}
0x07b0…07bd Line {l1=0x0b, l2=»0570 WHEN 4«, l3=0x0b}
0x07bd…07ec Line {l1=0x2d, l2=»0580 PRINT "Totaloverfladen af en keglestub:"«, l3=0x2d}
0x07ec…07f9 Line {l1=0x0b, l2=»0590 PRINT «, l3=0x0b}
0x07f9…0806 Line {l1=0x0b, l2=»0600 PRINT «, l3=0x0b}
0x0806…0841 Line {l1=0x39, l2=»0610 INPUT "Indtast keglestubbens nederste radius: ":R1«, l3=0x39}
0x0841…087c Line {l1=0x39, l2=»0620 INPUT "Indtast keglestubbens øverste radius: ":R2«, l3=0x39}
0x087c…08ba Line {l1=0x3c, l2=»0630 INPUT "Indtast keglestubbens højde: ":HØJDE«, l3=0x3c}
0x08ba…08c7 Line {l1=0x0b, l2=»0640 PRINT «, l3=0x0b}
0x08c7…08fc Line {l1=0x33, l2=»0650 SIDEN:=INT((SQR((R2-R1)**2+HØJDE**2)*100))/100«, l3=0x33}
0x08fc…0941 Line {l1=0x43, l2=»0660 OVERFLADEN:=INT(3.14*(R1**2+R2**2)+3.14*SIDEN*(R1+R2)*100)/100«, l3=0x43}
0x0941…094e Line {l1=0x0b, l2=»0670 PRINT «, l3=0x0b}
0x094e…098d Line {l1=0x3d, l2=»0680 PRINT "Radius i den nederste grundflade: ",R1«, l3=0x3d}
0x098d…09cc Line {l1=0x3d, l2=»0690 PRINT "Radius i den øverste flade: ",R2«, l3=0x3d}
0x09cc…0a0e Line {l1=0x40, l2=»0700 PRINT "Sidelinien: ",SIDEN«, l3=0x40}
0x0a0e…0a50 Line {l1=0x40, l2=»0710 PRINT "Keglestubbens højde: ",HØJDE«, l3=0x40}
0x0a50…0a97 Line {l1=0x45, l2=»0720 PRINT "Totaloverfladen: ",OVERFLADEN«, l3=0x45}
0x0a97…0aa4 Line {l1=0x0b, l2=»0730 PRINT «, l3=0x0b}
0x0aa4…0ab1 Line {l1=0x0b, l2=»0740 WHEN 5«, l3=0x0b}
0x0ab1…0ad7 Line {l1=0x24, l2=»0750 PRINT "Overfladen af en kugle."«, l3=0x24}
0x0ad7…0ae4 Line {l1=0x0b, l2=»0760 PRINT «, l3=0x0b}
0x0ae4…0b23 Line {l1=0x3d, l2=»0770 INPUT "Indtast kuglens radius: ":RADIUS«, l3=0x3d}
0x0b23…0b46 Line {l1=0x21, l2=»0780 OVERFLADEN:=4*RADIUS**2*3.14«, l3=0x21}
0x0b46…0b53 Line {l1=0x0b, l2=»0790 PRINT «, l3=0x0b}
0x0b53…0b96 Line {l1=0x41, l2=»0800 PRINT "Overfladen af denne kugle er: ",OVERFLADEN«, l3=0x41}
0x0b96…0ba3 Line {l1=0x0b, l2=»0810 PRINT «, l3=0x0b}
0x0ba3…0bb4 Line {l1=0x0f, l2=»0820 OTHERWISE «, l3=0x0f}
0x0bb4…0bc7 Line {l1=0x11, l2=»0830 CURSOR 10,21«, l3=0x11}
0x0bc7…0c04 Line {l1=0x3b, l2=»0840 PRINT "Du har indtastet et forkert nummer. Prøv igen."«, l3=0x3b}
0x0c04…0c13 Line {l1=0x0d, l2=»0850 ENDCASE «, l3=0x0d}
0x0c13…0c20 00 00 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccc┆
0x0c20…0c40 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┆
[…0x3c…]