|
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: 1358 (0x54e)
Notes: Mikados TextFile, Mikados_K
Names: »TREKANT8«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT8«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT8«
0010 // ------------------------- trekant8 ------------------------ 0020 // Programmet udregner den sidste side i en retvinklet trekant, 0030 // når man indtaster de to andre sider. 0040 // ----------------------------------------------------------- 0050 CLEAR 0060 CURSOR 1,6 0070 INPUT "Indtast de to sider: ":SIDE1,SIDE2 0080 PRINT 0090 INPUT "Drejer det sig om to kateter? 1:ja 2:nej ":SVAR 0100 // ----------------------------------------------------------- 0110 IF SVAR=1 THEN EXEC HYP 0120 IF SVAR=2 THEN EXEC KATETE 0130 // ----------------------------------------------------------- 0140 PROC HYP 0150 HYPOTENUSEN:=SQR(SIDE1**2+SIDE2**2) 0160 CURSOR 8,12 0170 PRINT USING "Hypotenusen ######.## ":HYPOTENUSEN 0180 CURSOR 5,13 0190 PRINT "------------------------------------------------------------" 0200 ENDPROC HYP 0210 // ----------------------------------------------------------- 0220 PROC KATETE 0230 CURSOR 1,12 0240 IF SIDE1>SIDE2 THEN 0250 KATETE1:=(SQR(SIDE1**2-SIDE2**2)) 0260 ELSE 0270 KATETE1:=(SQR(SIDE2**2-SIDE1**2)) 0280 ENDIF 0290 CURSOR 8,12 0300 PRINT USING "Den ene katete: ######.## ":KATETE1 0310 CURSOR 5,13 0320 PRINT "------------------------------------------------------------" 0330 ENDPROC KATETE 0340 // -----------------------------------------------------------