⟦551aa7d15⟧

Mikados K File

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

Mikados K File

0x0000…0041 Line {l1=0x3f, l2=»0010 // ---------------------- overfl_1 -----------------------«, l3=0x3f}
0x0041…007b Line {l1=0x38, l2=»0020 // Udregner forskellige overflader v/multiforgrenet«, l3=0x38}
0x007b…0090 Line {l1=0x13, l2=»0030 // IF-sætning.«, l3=0x13}
0x0090…009d Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x009d…00dd Line {l1=0x3e, l2=»0050 PRINT "Dette program udskriver den samlede overflade af:"«, l3=0x3e}
0x00dd…011d Line {l1=0x3e, l2=»0060 PRINT "-------------------------------------------------"«, l3=0x3e}
0x011d…0137 Line {l1=0x18, l2=»0070 PRINT "1.   Kasse."«, l3=0x18}
0x0137…0154 Line {l1=0x1b, l2=»0080 PRINT "2.   Cylinder."«, l3=0x1b}
0x0154…016e Line {l1=0x18, l2=»0090 PRINT "3.   Kegle."«, l3=0x18}
0x016e…018c Line {l1=0x1c, l2=»0100 PRINT "4.   Keglestub."«, l3=0x1c}
0x018c…01a6 Line {l1=0x18, l2=»0110 PRINT "5.   Kugle."«, l3=0x18}
0x01a6…01b3 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x01b3…01c0 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x01c0…01cd Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x01cd…0206 Line {l1=0x37, l2=»0150 PRINT "Indtast det ønskede nummer for overflade:";«, l3=0x37}
0x0206…0218 Line {l1=0x10, l2=»0160 INPUT ØNSKE«, l3=0x10}
0x0218…0259 Line {l1=0x3f, l2=»0170 // -------------------------------------------------------«, l3=0x3f}
0x0259…0299 Line {l1=0x3e, l2=»0180 // Nu findes de forskellige rumfang ved en multiforgrenet«, l3=0x3e}
0x0299…02ae Line {l1=0x13, l2=»0190 // IF-sætning.«, l3=0x13}
0x02ae…02bb Line {l1=0x0b, l2=»0200 CLEAR «, l3=0x0b}
0x02bb…02d2 Line {l1=0x15, l2=»0210 IF ØNSKE=1 THEN «, l3=0x15}
0x02d2…02df Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x02df…0310 Line {l1=0x2f, l2=»0230 PRINT "Den samlede overflade af en kasse:"«, l3=0x2f}
0x0310…031d Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x031d…0351 Line {l1=0x32, l2=»0250 INPUT "Indtast længde:               ":LÆNGDE«, l3=0x32}
0x0351…0385 Line {l1=0x32, l2=»0260 INPUT "Indtast bredde:               ":BREDDE«, l3=0x32}
0x0385…03b8 Line {l1=0x31, l2=»0270 INPUT "Indtast højde:                ":HØJDE«, l3=0x31}
0x03b8…03c5 Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x03c5…03d2 Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x03d2…040f Line {l1=0x3b, l2=»0300 OVERFLADE:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2«, l3=0x3b}
0x040f…044a Line {l1=0x39, l2=»0310 PRINT "Den samlede overflade af kassen:  ",OVERFLADE«, l3=0x39}
0x044a…0456 Line {l1=0x0a, l2=»0320 ELSE «, l3=0x0a}
0x0456…046d Line {l1=0x15, l2=»0325 IF ØNSKE=2 THEN «, l3=0x15}
0x046d…04a1 Line {l1=0x32, l2=»0330 PRINT "Den samlede overflade af en cylinder:"«, l3=0x32}
0x04a1…04ae Line {l1=0x0b, l2=»0340 PRINT «, l3=0x0b}
0x04ae…04bb Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x04bb…04f1 Line {l1=0x34, l2=»0360 INPUT "Indtast cylinderens radius:     ":RADIUS«, l3=0x34}
0x04f1…04fe Line {l1=0x0b, l2=»0370 PRINT «, l3=0x0b}
0x04fe…0533 Line {l1=0x33, l2=»0380 INPUT "Indtast cylinderens højde:      ":HØJDE«, l3=0x33}
0x0533…0540 Line {l1=0x0b, l2=»0390 PRINT «, l3=0x0b}
0x0540…054d Line {l1=0x0b, l2=»0400 PRINT «, l3=0x0b}
0x054d…057b Line {l1=0x2c, l2=»0410 OVERFLADE:=2*3.14*RADIUS*(HØJDE+RADIUS)«, l3=0x2c}
0x057b…0588 Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x0588…05c5 Line {l1=0x3b, l2=»0430 PRINT "Den totale overflade:               ",OVERFLADE«, l3=0x3b}
0x05c5…05d1 Line {l1=0x0a, l2=»0440 ELSE «, l3=0x0a}
0x05d1…05e8 Line {l1=0x15, l2=»0445 IF ØNSKE=3 THEN «, l3=0x15}
0x05e8…0613 Line {l1=0x29, l2=»0450 PRINT "Totaloverfladen af en kegle:"«, l3=0x29}
0x0613…0620 Line {l1=0x0b, l2=»0460 PRINT «, l3=0x0b}
0x0620…0656 Line {l1=0x34, l2=»0470 INPUT "Indtast keglens radius:         ":RADIUS«, l3=0x34}
0x0656…068b Line {l1=0x33, l2=»0480 INPUT "Indtast keglens højde:          ":HØJDE«, l3=0x33}
0x068b…06b0 Line {l1=0x23, l2=»0490 SIDEN:=SQR(HØJDE**2+RADIUS**2)«, l3=0x23}
0x06b0…06e2 Line {l1=0x30, l2=»0500 OVERFLADE:=3.14*RADIUS**2+3.14*RADIUS*SIDEN«, l3=0x30}
0x06e2…06ef Line {l1=0x0b, l2=»0510 PRINT «, l3=0x0b}
0x06ef…06fc Line {l1=0x0b, l2=»0520 PRINT «, l3=0x0b}
0x06fc…072b Line {l1=0x2d, l2=»0530 PRINT "Totaloverfladen af en kegle:    "«, l3=0x2d}
0x072b…0761 Line {l1=0x34, l2=»0540 PRINT "Radius:                         ",RADIUS«, l3=0x34}
0x0761…0796 Line {l1=0x33, l2=»0550 PRINT "Højden:                         ",HØJDE«, l3=0x33}
0x0796…07cf Line {l1=0x37, l2=»0560 PRINT "Overfladen:                     ",OVERFLADE«, l3=0x37}
0x07cf…07db Line {l1=0x0a, l2=»0570 ELSE «, l3=0x0a}
0x07db…07f2 Line {l1=0x15, l2=»0575 IF ØNSKE=4 THEN «, l3=0x15}
0x07f2…0821 Line {l1=0x2d, l2=»0580 PRINT "Totaloverfladen af en keglestub:"«, l3=0x2d}
0x0821…082e Line {l1=0x0b, l2=»0590 PRINT «, l3=0x0b}
0x082e…083b Line {l1=0x0b, l2=»0600 PRINT «, l3=0x0b}
0x083b…0876 Line {l1=0x39, l2=»0610 INPUT "Indtast keglestubbens nederste radius:   ":R1«, l3=0x39}
0x0876…08b1 Line {l1=0x39, l2=»0620 INPUT "Indtast keglestubbens øverste radius:    ":R2«, l3=0x39}
0x08b1…08ef Line {l1=0x3c, l2=»0630 INPUT "Indtast keglestubbens højde:             ":HØJDE«, l3=0x3c}
0x08ef…08fc Line {l1=0x0b, l2=»0640 PRINT «, l3=0x0b}
0x08fc…0931 Line {l1=0x33, l2=»0650 SIDEN:=INT((SQR((R2-R1)**2+HØJDE**2)*100))/100«, l3=0x33}
0x0931…0976 Line {l1=0x43, l2=»0660 OVERFLADEN:=INT(3.14*(R1**2+R2**2)+3.14*SIDEN*(R1+R2)*100)/100«, l3=0x43}
0x0976…0983 Line {l1=0x0b, l2=»0670 PRINT «, l3=0x0b}
0x0983…09c2 Line {l1=0x3d, l2=»0680 PRINT "Radius i den nederste grundflade:            ",R1«, l3=0x3d}
0x09c2…0a01 Line {l1=0x3d, l2=»0690 PRINT "Radius i den øverste flade:                  ",R2«, l3=0x3d}
0x0a01…0a43 Line {l1=0x40, l2=»0700 PRINT "Sidelinien:                                  ",SIDEN«, l3=0x40}
0x0a43…0a85 Line {l1=0x40, l2=»0710 PRINT "Keglestubbens højde:                         ",HØJDE«, l3=0x40}
0x0a85…0acc Line {l1=0x45, l2=»0720 PRINT "Totaloverfladen:                             ",OVERFLADEN«, l3=0x45}
0x0acc…0ad9 Line {l1=0x0b, l2=»0730 PRINT «, l3=0x0b}
0x0ad9…0ae5 Line {l1=0x0a, l2=»0740 ELSE «, l3=0x0a}
0x0ae5…0afc Line {l1=0x15, l2=»0745 IF ØNSKE=5 THEN «, l3=0x15}
0x0afc…0b22 Line {l1=0x24, l2=»0750 PRINT "Overfladen af en kugle."«, l3=0x24}
0x0b22…0b2f Line {l1=0x0b, l2=»0760 PRINT «, l3=0x0b}
0x0b2f…0b6e Line {l1=0x3d, l2=»0770 INPUT "Indtast kuglens radius:                  ":RADIUS«, l3=0x3d}
0x0b6e…0b91 Line {l1=0x21, l2=»0780 OVERFLADEN:=4*RADIUS**2*3.14«, l3=0x21}
0x0b91…0b9e Line {l1=0x0b, l2=»0790 PRINT «, l3=0x0b}
0x0b9e…0be1 Line {l1=0x41, l2=»0800 PRINT "Overfladen af denne kugle er:            ",OVERFLADEN«, l3=0x41}
0x0be1…0bee Line {l1=0x0b, l2=»0810 PRINT «, l3=0x0b}
0x0bee…0bfa Line {l1=0x0a, l2=»0820 ELSE «, l3=0x0a}
0x0bfa…0c0d Line {l1=0x11, l2=»0830 CURSOR 10,21«, l3=0x11}
0x0c0d…0c4a Line {l1=0x3b, l2=»0840 PRINT "Du har indtastet et forkert nummer. Prøv igen."«, l3=0x3b}
0x0c4a…0c57 Line {l1=0x0b, l2=»0850 ENDIF «, l3=0x0b}
0x0c57…0c64 Line {l1=0x0b, l2=»0851 ENDIF «, l3=0x0b}
0x0c64…0c71 Line {l1=0x0b, l2=»0852 ENDIF «, l3=0x0b}
0x0c71…0c7e Line {l1=0x0b, l2=»0853 ENDIF «, l3=0x0b}
0x0c7e…0c80 00 00                                                                                             ┆  ┆
0x0c80…0ca0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
            […0x39…]

TextFile

?0010 // ---------------------- overfl_1 -----------------------?80020 // Udregner forskellige overflader v/multiforgrenet8▶13◀0030 // IF-sætning.▶13◀▶0b◀0040 CLEAR ▶0b◀>0050 PRINT "Dette program udskriver den samlede overflade af:">>0060 PRINT "-------------------------------------------------">▶18◀0070 PRINT "1.   Kasse."▶18◀▶1b◀0080 PRINT "2.   Cylinder."▶1b◀▶18◀0090 PRINT "3.   Kegle."▶18◀▶1c◀0100 PRINT "4.   Keglestub."▶1c◀▶18◀0110 PRINT "5.   Kugle."▶18◀▶0b◀0120 PRINT ▶0b◀▶0b◀0130 PRINT ▶0b◀▶0b◀0140 PRINT ▶0b◀70150 PRINT "Indtast det ønskede nummer for overflade:";7▶10◀0160 INPUT ØNSKE▶10◀?0170 // -------------------------------------------------------?>0180 // Nu findes de forskellige rumfang ved en multiforgrenet>▶13◀0190 // IF-sætning.▶13◀▶0b◀0200 CLEAR ▶0b◀▶15◀0210 IF ØNSKE=1 THEN ▶15◀▶0b◀0220 PRINT ▶0b◀/0230 PRINT "Den samlede overflade af en kasse:"/▶0b◀0240 PRINT ▶0b◀20250 INPUT "Indtast længde:               ":LÆNGDE220260 INPUT "Indtast bredde:               ":BREDDE210270 INPUT "Indtast højde:                ":HØJDE1▶0b◀0280 PRINT ▶0b◀▶0b◀0290 PRINT ▶0b◀;0300 OVERFLADE:=(LÆNGDE*BREDDE+BREDDE*HØJDE+HØJDE*LÆNGDE)*2;90310 PRINT "Den samlede overflade af kassen:  ",OVERFLADE9
0320 ELSE 
▶15◀0325 IF ØNSKE=2 THEN ▶15◀20330 PRINT "Den samlede overflade af en cylinder:"2▶0b◀0340 PRINT ▶0b◀▶0b◀0350 PRINT ▶0b◀40360 INPUT "Indtast cylinderens radius:     ":RADIUS4▶0b◀0370 PRINT ▶0b◀30380 INPUT "Indtast cylinderens højde:      ":HØJDE3▶0b◀0390 PRINT ▶0b◀▶0b◀0400 PRINT ▶0b◀,0410 OVERFLADE:=2*3.14*RADIUS*(HØJDE+RADIUS),▶0b◀0420 PRINT ▶0b◀;0430 PRINT "Den totale overflade:               ",OVERFLADE;
0440 ELSE 
▶15◀0445 IF ØNSKE=3 THEN ▶15◀)0450 PRINT "Totaloverfladen af en kegle:")▶0b◀0460 PRINT ▶0b◀40470 INPUT "Indtast keglens radius:         ":RADIUS430480 INPUT "Indtast keglens højde:          ":HØJDE3#0490 SIDEN:=SQR(HØJDE**2+RADIUS**2)#00500 OVERFLADE:=3.14*RADIUS**2+3.14*RADIUS*SIDEN0▶0b◀0510 PRINT ▶0b◀▶0b◀0520 PRINT ▶0b◀-0530 PRINT "Totaloverfladen af en kegle:    "-40540 PRINT "Radius:                         ",RADIUS430550 PRINT "Højden:                         ",HØJDE370560 PRINT "Overfladen:                     ",OVERFLADE7
0570 ELSE 
▶15◀0575 IF ØNSKE=4 THEN ▶15◀-0580 PRINT "Totaloverfladen af en keglestub:"-▶0b◀0590 PRINT ▶0b◀▶0b◀0600 PRINT ▶0b◀90610 INPUT "Indtast keglestubbens nederste radius:   ":R1990620 INPUT "Indtast keglestubbens øverste radius:    ":R29<0630 INPUT "Indtast keglestubbens højde:             ":HØJDE<▶0b◀0640 PRINT ▶0b◀30650 SIDEN:=INT((SQR((R2-R1)**2+HØJDE**2)*100))/1003C0660 OVERFLADEN:=INT(3.14*(R1**2+R2**2)+3.14*SIDEN*(R1+R2)*100)/100C▶0b◀0670 PRINT ▶0b◀=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@E0720 PRINT "Totaloverfladen:                             ",OVERFLADENE▶0b◀0730 PRINT ▶0b◀
0740 ELSE 
▶15◀0745 IF ØNSKE=5 THEN ▶15◀$0750 PRINT "Overfladen af en kugle."$▶0b◀0760 PRINT ▶0b◀=0770 INPUT "Indtast kuglens radius:                  ":RADIUS=!0780 OVERFLADEN:=4*RADIUS**2*3.14!▶0b◀0790 PRINT ▶0b◀A0800 PRINT "Overfladen af denne kugle er:            ",OVERFLADENA▶0b◀0810 PRINT ▶0b◀
0820 ELSE 
▶11◀0830 CURSOR 10,21▶11◀;0840 PRINT "Du har indtastet et forkert nummer. Prøv igen.";▶0b◀0850 ENDIF ▶0b◀▶0b◀0851 ENDIF ▶0b◀▶0b◀0852 ENDIF ▶0b◀▶0b◀0853 ENDIF ▶0b◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

DataMuseum.dk

MIKADOS

⟦551aa7d15⟧ TextFile

Derivation

Mikados K File

Mikados K File

TextFile

Reduced view