|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »OVERFL1«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OVERFL1«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OVERFL1«
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
?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