DataMuseum.dk

top - metrics - download

    Length: 5056 (0x13c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »RUMFANG2«

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RUMFANG2« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RUMFANG2« 

Text

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