DataMuseum.dk Presents historical artifacts from the history of: MIKADOS

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦f902f77d9⟧ TextFile

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

Derivation

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

0010 // ------------------------ rumfang1 ---------------------------
0020 // Udregner forskellige rumfang v/multiforgrenet IF-sætning.
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 PRINT 
0220 IF ØNSKE=1 THEN 
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 ELSE 
0285 IF ØNSKE=2 THEN 
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 ELSE 
0355 IF ØNSKE=3 THEN 
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 ELSE 
0445 IF ØNSKE=4 THEN 
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 ELSE 
0495 IF ØNSKE=5 THEN 
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 ELSE 
0550 INPUT "Indtast keglestubbens nederste radius:   ":R1
0555 IF ØNSKE=6 THEN 
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 ELSE 
0605 IF ØNSKE=7 THEN 
0610 INPUT "Indtast kuglens radius:                  ":RADIUS
0620 RUMFANG:=(4*3.14*RADIUS**3)/3
0630 PRINT "Rumfanget af denne kugle:                ",RUMFANG
0640 ELSE 
0650 CURSOR 1,21
0660 PRINT "Du har tastet et forkert nummer. Prøv igen."
0670 ENDIF 
0671 ENDIF 
0672 ENDIF 
0673 ENDIF 
0674 ENDIF 
0675 ENDIF 
0676 ENDIF 

E0010 // ------------------------ rumfang1 ---------------------------EA0020 // Udregner forskellige rumfang v/multiforgrenet IF-sætning.A▶0b◀0030 CLEAR ▶0b◀20040 PRINT "Dette program udskriver rumfanget af:"220050 PRINT "-------------------------------------"2▶0b◀0060 PRINT ▶0b◀▶16◀0070 PRINT "1. Kasse."▶16◀▶19◀0080 PRINT "2. Pyramide."▶19◀▶1d◀0090 PRINT "3. Pyramidestub."▶1d◀▶19◀0100 PRINT "4. Cylinder."▶19◀▶16◀0110 PRINT "5. Kegle."▶16◀▶1a◀0120 PRINT "6. Keglestub."▶1a◀▶16◀0130 PRINT "7. Kugle."▶16◀▶0b◀0140 PRINT ▶0b◀▶0b◀0150 PRINT ▶0b◀▶0b◀0160 PRINT ▶0b◀▶0b◀0170 PRINT ▶0b◀50180 PRINT "Indtast det ønskede nummer for rumfang:";5▶10◀0190 INPUT ØNSKE▶10◀G0200 // ---------------------------------------------------------------G▶0b◀0210 PRINT ▶0b◀▶15◀0220 IF ØNSKE=1 THEN ▶15◀60230 INPUT "Indtast længde:                   ":LÆNGDE660240 INPUT "Indtast bredde:                   ":BREDDE650250 INPUT "Indtast højde:                    ":HØJDE5▶0b◀0260 PRINT ▶0b◀C0270 PRINT "Rumfanget af kassen:              ",LÆNGDE*BREDDE*HØJDEC
0280 ELSE 
▶15◀0285 IF ØNSKE=2 THEN ▶15◀60290 INPUT "Indtast længde:                   ":LÆNGDE660300 INPUT "Indtast bredde:                   ":BREDDE650310 INPUT "Indtast højde:                    ":HØJDE5▶0b◀0320 PRINT ▶0b◀%0330 RUMFANG:=(LÆNGDE*BREDDE*HØJDE)/3%70340 PRINT "Rumfanget af denne pyramide:      ",RUMFANG7
0350 ELSE 
▶15◀0355 IF ØNSKE=3 THEN ▶15◀20360 INPUT "Indtast længden i bundfladen:     ":L1220370 INPUT "Indtast bredden i bundfladen:     ":B1220380 INPUT "Indtast længden i øverste flade:  ":L2220390 INPUT "Indtast bredden i øverste flade:  ":B2250400 INPUT "Indtast pyramidestubbens højde:   ":HØJDE560410 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2))6▶0b◀0420 PRINT ▶0b◀70430 PRINT "Rumfanget af denne pyramidestub:  ",RUMFANG7
0440 ELSE 
▶15◀0445 IF ØNSKE=4 THEN ▶15◀60450 INPUT "Indtast cylinderens radius:       ":RADIUS650460 INPUT "Indtast cylinderens højde:        ":HØJDE5(0470 RUMFANG:=(3.14*RADIUS*RADIUS*HØJDE)(70480 PRINT "Rumfanget af denne cylinder:      ",RUMFANG7
0490 ELSE 
▶15◀0495 IF ØNSKE=5 THEN ▶15◀60500 INPUT "Indtast keglens radius:           ":RADIUS650510 INPUT "Indtast keglens højde:            ":HØJDE5&0520 RUMFANG:=(3.14*RADIUS**2*HØJDE)/3&70530 PRINT "Rumfanget af denne kegle:         ",RUMFANG7
0540 ELSE 
90550 INPUT "Indtast keglestubbens nederste radius:   ":R19▶15◀0555 IF ØNSKE=6 THEN ▶15◀90560 INPUT "Indtast keglestubbens øverste radius:    ":R29<0570 INPUT "Indtast keglestubbens højde:             ":HØJDE<00580 RUMFANG:=(3.14*HØJDE)/3*(R1**2+R2**2+R1*R2)0>0590 PRINT "Rumfanget af denne keglestub:            ",RUMFANG>
0600 ELSE 
▶15◀0605 IF ØNSKE=7 THEN ▶15◀=0610 INPUT "Indtast kuglens radius:                  ":RADIUS="0620 RUMFANG:=(4*3.14*RADIUS**3)/3">0630 PRINT "Rumfanget af denne kugle:                ",RUMFANG>
0640 ELSE 
▶10◀0650 CURSOR 1,21▶10◀80660 PRINT "Du har tastet et forkert nummer. Prøv igen."8▶0b◀0670 ENDIF ▶0b◀▶0b◀0671 ENDIF ▶0b◀▶0b◀0672 ENDIF ▶0b◀▶0b◀0673 ENDIF ▶0b◀▶0b◀0674 ENDIF ▶0b◀▶0b◀0675 ENDIF ▶0b◀▶0b◀0676 ENDIF ▶0b◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc