|
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: »RUMFANG2.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG2.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG2.K«
0010 // ------------------------ rumfang2 --------------------------- 0020 // Udregner forskellige rumfang v/CASE - WHEN - ENDCASE 0030 CLEAR 0040 PRINT "Dette program udskriver rumfanget af:" 0050 PRINT "-------------------------------------" 0060 PRINT 0070 PRINT "1. Kasse." 0080 PRINT "2. Pyramide." 0090 PRINT "3. Pyramidestub." 0100 PRINT "4. Cylinder." 0110 PRINT "5. Kegle." 0120 PRINT "6. Keglestub." 0130 PRINT "7. Kugle." 0140 PRINT 0150 PRINT 0160 PRINT 0170 PRINT 0180 PRINT "Indtast det ønskede nummer for rumfang:"; 0190 INPUT ØNSKE 0200 // --------------------------------------------------------------- 0210 CASE ØNSKE OF 0220 WHEN 1 0230 INPUT "Indtast længde: ":LÆNGDE 0240 INPUT "Indtast bredde: ":BREDDE 0250 INPUT "Indtast højde: ":HØJDE 0260 PRINT 0270 PRINT "Rumfanget af kassen: ",LÆNGDE*BREDDE*HØJDE 0280 WHEN 2 0290 INPUT "Indtast længde: ":LÆNGDE 0300 INPUT "Indtast bredde: ":BREDDE 0310 INPUT "Indtast højde: ":HØJDE 0320 PRINT 0330 RUMFANG:=(LÆNGDE*BREDDE*HØJDE)/3 0340 PRINT "Rumfanget af denne pyramide: ",RUMFANG 0350 WHEN 3 0360 INPUT "Indtast længden i bundfladen: ":L1 0370 INPUT "Indtast bredden i bundfladen: ":B1 0380 INPUT "Indtast længden i øverste flade: ":L2 0390 INPUT "Indtast bredden i øverste flade: ":B2 0400 INPUT "Indtast pyramidestubbens højde: ":HØJDE 0410 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2)) 0420 PRINT 0430 PRINT "Rumfanget af denne pyramidestub: ",RUMFANG 0440 WHEN 4 0450 INPUT "Indtast cylinderens radius: ":RADIUS 0460 INPUT "Indtast cylinderens højde: ":HØJDE 0470 RUMFANG:=(3.14*RADIUS*RADIUS*HØJDE) 0480 PRINT "Rumfanget af denne cylinder: ",RUMFANG 0490 WHEN 5 0500 INPUT "Indtast keglens radius: ":RADIUS 0510 INPUT "Indtast keglens højde: ":HØJDE 0520 RUMFANG:=(3.14*RADIUS**2*HØJDE)/3 0530 PRINT "Rumfanget af denne kegle: ",RUMFANG 0540 WHEN 6 0550 INPUT "Indtast keglestubbens nederste radius: ":R1 0560 INPUT "Indtast keglestubbens øverste radius: ":R2 0570 INPUT "Indtast keglestubbens højde: ":HØJDE 0580 RUMFANG:=(3.14*HØJDE)/3*(R1**2+R2**2+R1*R2) 0590 PRINT "Rumfanget af denne keglestub: ",RUMFANG 0600 WHEN 7 0610 INPUT "Indtast kuglens radius: ":RADIUS 0620 RUMFANG:=(4*3.14*RADIUS**3)/3 0630 PRINT "Rumfanget af denne kugle: ",RUMFANG 0640 OTHERWISE 0650 CURSOR 1,21 0660 PRINT "Du har tastet et forkert nummer. Prøv igen." 0670 ENDCASE
0x0000…0047 Line {l1=0x45, l2=»0010 // ------------------------ rumfang2 ---------------------------«, l3=0x45}
0x0047…0085 Line {l1=0x3c, l2=»0020 // Udregner forskellige rumfang v/CASE - WHEN - ENDCASE«, l3=0x3c}
0x0085…0092 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x0092…00c6 Line {l1=0x32, l2=»0040 PRINT "Dette program udskriver rumfanget af:"«, l3=0x32}
0x00c6…00fa Line {l1=0x32, l2=»0050 PRINT "-------------------------------------"«, l3=0x32}
0x00fa…0107 Line {l1=0x0b, l2=»0060 PRINT «, l3=0x0b}
0x0107…011f Line {l1=0x16, l2=»0070 PRINT "1. Kasse."«, l3=0x16}
0x011f…013a Line {l1=0x19, l2=»0080 PRINT "2. Pyramide."«, l3=0x19}
0x013a…0159 Line {l1=0x1d, l2=»0090 PRINT "3. Pyramidestub."«, l3=0x1d}
0x0159…0174 Line {l1=0x19, l2=»0100 PRINT "4. Cylinder."«, l3=0x19}
0x0174…018c Line {l1=0x16, l2=»0110 PRINT "5. Kegle."«, l3=0x16}
0x018c…01a8 Line {l1=0x1a, l2=»0120 PRINT "6. Keglestub."«, l3=0x1a}
0x01a8…01c0 Line {l1=0x16, l2=»0130 PRINT "7. Kugle."«, l3=0x16}
0x01c0…01cd Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x01cd…01da Line {l1=0x0b, l2=»0150 PRINT «, l3=0x0b}
0x01da…01e7 Line {l1=0x0b, l2=»0160 PRINT «, l3=0x0b}
0x01e7…01f4 Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x01f4…022b Line {l1=0x35, l2=»0180 PRINT "Indtast det ønskede nummer for rumfang:";«, l3=0x35}
0x022b…023d Line {l1=0x10, l2=»0190 INPUT ØNSKE«, l3=0x10}
0x023d…0286 Line {l1=0x47, l2=»0200 // ---------------------------------------------------------------«, l3=0x47}
0x0286…029b Line {l1=0x13, l2=»0210 CASE ØNSKE OF «, l3=0x13}
0x029b…02a8 Line {l1=0x0b, l2=»0220 WHEN 1«, l3=0x0b}
0x02a8…02e0 Line {l1=0x36, l2=»0230 INPUT "Indtast længde: ":LÆNGDE«, l3=0x36}
0x02e0…0318 Line {l1=0x36, l2=»0240 INPUT "Indtast bredde: ":BREDDE«, l3=0x36}
0x0318…034f Line {l1=0x35, l2=»0250 INPUT "Indtast højde: ":HØJDE«, l3=0x35}
0x034f…035c Line {l1=0x0b, l2=»0260 PRINT «, l3=0x0b}
0x035c…03a1 Line {l1=0x43, l2=»0270 PRINT "Rumfanget af kassen: ",LÆNGDE*BREDDE*HØJDE«, l3=0x43}
0x03a1…03ae Line {l1=0x0b, l2=»0280 WHEN 2«, l3=0x0b}
0x03ae…03e6 Line {l1=0x36, l2=»0290 INPUT "Indtast længde: ":LÆNGDE«, l3=0x36}
0x03e6…041e Line {l1=0x36, l2=»0300 INPUT "Indtast bredde: ":BREDDE«, l3=0x36}
0x041e…0455 Line {l1=0x35, l2=»0310 INPUT "Indtast højde: ":HØJDE«, l3=0x35}
0x0455…0462 Line {l1=0x0b, l2=»0320 PRINT «, l3=0x0b}
0x0462…0489 Line {l1=0x25, l2=»0330 RUMFANG:=(LÆNGDE*BREDDE*HØJDE)/3«, l3=0x25}
0x0489…04c2 Line {l1=0x37, l2=»0340 PRINT "Rumfanget af denne pyramide: ",RUMFANG«, l3=0x37}
0x04c2…04cf Line {l1=0x0b, l2=»0350 WHEN 3«, l3=0x0b}
0x04cf…0503 Line {l1=0x32, l2=»0360 INPUT "Indtast længden i bundfladen: ":L1«, l3=0x32}
0x0503…0537 Line {l1=0x32, l2=»0370 INPUT "Indtast bredden i bundfladen: ":B1«, l3=0x32}
0x0537…056b Line {l1=0x32, l2=»0380 INPUT "Indtast længden i øverste flade: ":L2«, l3=0x32}
0x056b…059f Line {l1=0x32, l2=»0390 INPUT "Indtast bredden i øverste flade: ":B2«, l3=0x32}
0x059f…05d6 Line {l1=0x35, l2=»0400 INPUT "Indtast pyramidestubbens højde: ":HØJDE«, l3=0x35}
0x05d6…060e Line {l1=0x36, l2=»0410 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2))«, l3=0x36}
0x060e…061b Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x061b…0654 Line {l1=0x37, l2=»0430 PRINT "Rumfanget af denne pyramidestub: ",RUMFANG«, l3=0x37}
0x0654…0661 Line {l1=0x0b, l2=»0440 WHEN 4«, l3=0x0b}
0x0661…0699 Line {l1=0x36, l2=»0450 INPUT "Indtast cylinderens radius: ":RADIUS«, l3=0x36}
0x0699…06d0 Line {l1=0x35, l2=»0460 INPUT "Indtast cylinderens højde: ":HØJDE«, l3=0x35}
0x06d0…06fa Line {l1=0x28, l2=»0470 RUMFANG:=(3.14*RADIUS*RADIUS*HØJDE)«, l3=0x28}
0x06fa…0733 Line {l1=0x37, l2=»0480 PRINT "Rumfanget af denne cylinder: ",RUMFANG«, l3=0x37}
0x0733…0740 Line {l1=0x0b, l2=»0490 WHEN 5«, l3=0x0b}
0x0740…0778 Line {l1=0x36, l2=»0500 INPUT "Indtast keglens radius: ":RADIUS«, l3=0x36}
0x0778…07af Line {l1=0x35, l2=»0510 INPUT "Indtast keglens højde: ":HØJDE«, l3=0x35}
0x07af…07d7 Line {l1=0x26, l2=»0520 RUMFANG:=(3.14*RADIUS**2*HØJDE)/3«, l3=0x26}
0x07d7…0810 Line {l1=0x37, l2=»0530 PRINT "Rumfanget af denne kegle: ",RUMFANG«, l3=0x37}
0x0810…081d Line {l1=0x0b, l2=»0540 WHEN 6«, l3=0x0b}
0x081d…0858 Line {l1=0x39, l2=»0550 INPUT "Indtast keglestubbens nederste radius: ":R1«, l3=0x39}
0x0858…0893 Line {l1=0x39, l2=»0560 INPUT "Indtast keglestubbens øverste radius: ":R2«, l3=0x39}
0x0893…08d1 Line {l1=0x3c, l2=»0570 INPUT "Indtast keglestubbens højde: ":HØJDE«, l3=0x3c}
0x08d1…0903 Line {l1=0x30, l2=»0580 RUMFANG:=(3.14*HØJDE)/3*(R1**2+R2**2+R1*R2)«, l3=0x30}
0x0903…0943 Line {l1=0x3e, l2=»0590 PRINT "Rumfanget af denne keglestub: ",RUMFANG«, l3=0x3e}
0x0943…0950 Line {l1=0x0b, l2=»0600 WHEN 7«, l3=0x0b}
0x0950…098f Line {l1=0x3d, l2=»0610 INPUT "Indtast kuglens radius: ":RADIUS«, l3=0x3d}
0x098f…09b3 Line {l1=0x22, l2=»0620 RUMFANG:=(4*3.14*RADIUS**3)/3«, l3=0x22}
0x09b3…09f3 Line {l1=0x3e, l2=»0630 PRINT "Rumfanget af denne kugle: ",RUMFANG«, l3=0x3e}
0x09f3…0a04 Line {l1=0x0f, l2=»0640 OTHERWISE «, l3=0x0f}
0x0a04…0a16 Line {l1=0x10, l2=»0650 CURSOR 1,21«, l3=0x10}
0x0a16…0a50 Line {l1=0x38, l2=»0660 PRINT "Du har tastet et forkert nummer. Prøv igen."«, l3=0x38}
0x0a50…0a5f Line {l1=0x0d, l2=»0670 ENDCASE «, l3=0x0d}
0x0a5f…0a60 00 ┆ ┆
0x0a60…0a80 00 41 53 45 3c 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 32 30 30 34 30 20 50 52 49 4e 54 20 22 44 ┆ ASE< 0030 CLEAR 20040 PRINT "D┆
0x0a80…0aa0 65 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 ┆ette program udskriver rumfanget┆
0x0aa0…0ac0 20 61 66 3a 22 32 32 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ af:"220050 PRINT "-------------┆
0x0ac0…0ae0 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┆
[…0x47…]