DataMuseum.dk

top - metrics - download

    Length: 3014 (0xbc6)
    Notes: Mikados TextFile, Mikados_K
    Names: »OVERFL1«

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

Text

0010 // ---------------------- overfl_1 -----------------------
0020 // Udregner forskellige overflader v/multiforgrenet
0030 // IF-sætning.
0040 CLEAR 
0050 PRINT "Dette program udskriver den samlede overflade af:"
0060 PRINT "-------------------------------------------------"
0070 PRINT "1.   Kasse."
0080 PRINT "2.   Cylinder."
0090 PRINT "3.   Kegle."
0100 PRINT "4.   Keglestub."
0110 PRINT "5.   Kugle."
0120 PRINT 
0130 PRINT 
0140 PRINT 
0150 PRINT "Indtast det ønskede nummer for overflade:";
0160 INPUT ØNSKE
0170 // -------------------------------------------------------
0180 // Nu findes de forskellige rumfang ved en multiforgrenet
0190 // IF-sætning.
0200 CLEAR 
0210 IF ØNSKE=1 THEN 
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 ELSE 
0325 IF ØNSKE=2 THEN 
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 ELSE 
0445 IF ØNSKE=3 THEN 
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 ELSE 
0575 IF ØNSKE=4 THEN 
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 ELSE 
0745 IF ØNSKE=5 THEN 
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 ELSE 
0830 CURSOR 10,21
0840 PRINT "Du har indtastet et forkert nummer. Prøv igen."
0850 ENDIF 
0851 ENDIF 
0852 ENDIF 
0853 ENDIF