DataMuseum.dk

top - metrics - download

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

└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OVERFL2« 

Text

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