|
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: 7584 (0x1da0)
Notes: Mikados TextFile, Mikados_K
Names: »RUMFANG3«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG3«
0010 // ------------------------ rumfang3 --------------------------- 0020 // Udregner forskellige rumfang v/IF-sætninger samt procedurer. 0030 DIM SV$ OF 3 0040 REPEAT 0050 CLEAR 0060 CURSOR 10,3 0070 PRINT "Dette program udskriver rumfanget af:" 0080 CURSOR 10,4 0090 PRINT "-------------------------------------" 0100 PRINT 0110 CURSOR 10,6 0120 PRINT "Kasse.....................................Tast 1" 0130 CURSOR 10,8 0140 PRINT "Pyramide..................................Tast 2" 0150 CURSOR 10,10 0160 PRINT "Pyramidestub..............................Tast 3" 0170 CURSOR 10,12 0180 PRINT "Cylinder..................................Tast 4" 0190 CURSOR 10,14 0200 PRINT "Kegle.....................................Tast 5" 0210 CURSOR 10,16 0220 PRINT "Keglestub.................................Tast 6" 0230 CURSOR 10,18 0240 PRINT "Kugle.....................................Tast 7" 0250 CURSOR 10,20 0260 PRINT "Stop......................................Tast 8" 0270 CURSOR 10,16 0280 PRINT 0290 PRINT 0300 CURSOR 10,22 0310 PRINT "Indtast det ønskede nummer for rumfang:"; 0320 INPUT ØNSKE 0330 // --------------------------------------------------------------- 0340 PRINT 0350 IF ØNSKE=1 THEN EXEC KASSE 0360 IF ØNSKE=2 THEN EXEC PYRAMIDE 0370 IF ØNSKE=3 THEN EXEC PYRAMIDESTUB 0380 IF ØNSKE=4 THEN EXEC CYLINDER 0390 IF ØNSKE=5 THEN EXEC KEGLE 0400 IF ØNSKE=6 THEN EXEC KEGLESTUB 0410 IF ØNSKE=7 THEN EXEC KUGLE 0420 CURSOR 68,22 0430 PRINT "Return!"; 0440 IF ØNSKE=8 THEN EXEC SLUT 0450 INPUT SV$ 0460 UNTIL ØNSKE=8 0470 // -------------------------------------------------------------------- 0480 PROC KASSE 0490 CLEAR 0500 CURSOR 1,6 0510 PRINT " K A S S E . " 0520 PRINT "________________________________________________________________" 0530 CURSOR 1,10 0540 INPUT "Indtast længde: ":LÆNGDE 0550 PRINT 0560 INPUT "Indtast bredde: ":BREDDE 0570 PRINT 0580 INPUT "Indtast højde: ":HØJDE 0590 PRINT 0600 PRINT 0610 RUMFANG:=LÆNGDE*BREDDE*HØJDE 0620 PRINT "Rumfanget af kassen: ";RUMFANG 0630 ENDPROC KASSE 0640 // ------------------------------------------------------------------ 0650 PROC PYRAMIDE 0660 CLEAR 0670 CURSOR 1,5 0680 PRINT " P Y R A M I D E ." 0690 PRINT "________________________________________________________________" 0700 CURSOR 1,10 0710 INPUT "Indtast længde: ":LÆNGDE 0720 PRINT 0730 INPUT "Indtast bredde: ":BREDDE 0740 PRINT 0750 INPUT "Indtast højde: ":HØJDE 0760 RUMFANG:=INT(1/3*HØJDE*BREDDE*LÆNGDE*100)/100 0770 PRINT 0780 PRINT "Rumfanget af en pyramide med de ønskede mål: ";RUMFANG 0790 ENDPROC PYRAMIDE 0800 // ------------------------------------------------------------------ 0810 PROC PYRAMIDESTUB 0820 CLEAR 0830 CURSOR 1,5 0840 PRINT " P Y R A M I D E S T U B . " 0850 PRINT "________________________________________________________________" 0860 CURSOR 1,10 0870 INPUT "Indtast længden i bundfladen: ":L1 0880 PRINT 0890 INPUT "Indtast bredden i bundfladen: ":B1 0900 PRINT 0910 INPUT "Indtast længden i den øverste flade: ":L2 0920 PRINT 0930 INPUT "Indtast bredden i den øverste flade: ":B2 0940 PRINT 0950 INPUT "Indtast pyramidestubbens højde: ":HØJDE 0960 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2)) 0970 PRINT 0980 PRINT 0990 PRINT "Rumfanget af en pyramidestub med de ønskede mål: ";RUMFAN 1000 ENDPROC PYRAMIDESTUB 1010 // ------------------------------------------------------------------ 1020 PROC CYLINDER 1030 CLEAR 1040 CURSOR 1,5 1050 PRINT " C Y L I N D E R . " 1060 PRINT "________________________________________________________________" 1070 CURSOR 1,10 1080 INPUT "Indtast cylinderens radius: ":RADIUS 1090 PRINT 1100 INPUT "Indtast cylinderens højde: ":HØJDE 1110 RUMFANG:=INT(3.14159*HØJDE*RADIUS**2*100)/100 1120 PRINT 1130 PRINT 1140 PRINT "Cylinderens rumfang med de ønskede mål: ";RUMFANG 1150 ENDPROC CYLINDER 1160 // ------------------------------------------------------------------ 1170 PROC KEGLE 1180 CLEAR 1190 CURSOR 1,5 1200 PRINT " K E G L E . " 1210 PRINT "________________________________________________________________" 1220 CURSOR 1,10 1230 INPUT "Indtast keglens radius: ":RADIUS 1240 PRINT 1250 INPUT "Indtast keglens højde: ":HØJDE 1260 RUMFANG:=1/3*HØJDE*RADIUS**2 1270 PRINT 1280 PRINT 1290 PRINT "Keglens rumfang med de ønskede mål: ";RUMFANG 1300 ENDPROC KEGLE 1310 // ------------------------------------------------------------------ 1320 PROC KEGLESTUB 1330 CLEAR 1340 CURSOR 1,5 1350 PRINT " K E G L E S T U B . " 1360 PRINT "________________________________________________________________" 1370 PRINT 1380 CURSOR 1,10 1390 INPUT "Indtast keglestubbens nederste radius: ":R1 1400 PRINT 1410 INPUT "Indtast keglestubbens øverste radius: ":R2 1420 PRINT 1430 INPUT "Indtast keglestubbens højde: ":HØJDE 1440 PRINT 1450 RUMFANG:=1/3*3.14159*HØJDE*(R1**2+R2**2+R1*R2) 1460 PRINT 1470 PRINT "Rumfanget af en keglestub med de ønskede mål: ";RUMFANG 1480 ENDPROC KEGLESTUB 1490 // ----------------------------------------------------------------- 1500 PROC KUGLE 1510 CLEAR 1520 CURSOR 1,5 1530 PRINT " K U G L E . " 1540 PRINT "________________________________________________________________" 1550 CURSOR 1,10 1560 INPUT "Indtast kuglens radius: ":RADIUS 1570 RUMFANG:=4/3*3.14159*RADIUS**3 1580 CURSOR 1,16 1590 PRINT "Rumfanget af en kugle, hvor radius er: "; 1595 PRINT RADIUS;" = ";INT(RUMFANG*100)/100 1600 ENDPROC KUGLE 1610 // ------------------------------------------------------------------ 1620 PROC SLUT 1630 CLEAR 1640 CURSOR 15,12 1650 PRINT "Det var så en del nye rumfang. Tak for nu. " 1660 CURSOR 1,21 1670 END 1680 ENDPROC SLUT