|
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 - download
Length: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »TREKANT8.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT8.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TREKANT8.K«
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 // -----------------------------------------------------------
0x000…045 Line {l1=0x43, l2=»0010 // ------------------------- trekant8 ------------------------«, l3=0x43}
0x045…08b Line {l1=0x44, l2=»0020 // Programmet udregner den sidste side i en retvinklet trekant,«, l3=0x44}
0x08b…0b9 Line {l1=0x2c, l2=»0030 // når man indtaster de to andre sider.«, l3=0x2c}
0x0b9…0fe Line {l1=0x43, l2=»0040 // -----------------------------------------------------------«, l3=0x43}
0x0fe…10b Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x10b…11c Line {l1=0x0f, l2=»0060 CURSOR 1,6«, l3=0x0f}
0x11c…168 Line {l1=0x4a, l2=»0070 INPUT "Indtast de to sider: ":SIDE1,SIDE2«, l3=0x4a}
0x168…175 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x175…1bb Line {l1=0x44, l2=»0090 INPUT "Drejer det sig om to kateter? 1:ja 2:nej ":SVAR«, l3=0x44}
0x1bb…200 Line {l1=0x43, l2=»0100 // -----------------------------------------------------------«, l3=0x43}
0x200…21e Line {l1=0x1c, l2=»0110 IF SVAR=1 THEN EXEC HYP«, l3=0x1c}
0x21e…23f Line {l1=0x1f, l2=»0120 IF SVAR=2 THEN EXEC KATETE«, l3=0x1f}
0x23f…284 Line {l1=0x43, l2=»0130 // -----------------------------------------------------------«, l3=0x43}
0x284…293 Line {l1=0x0d, l2=»0140 PROC HYP«, l3=0x0d}
0x293…2bd Line {l1=0x28, l2=»0150 HYPOTENUSEN:=SQR(SIDE1**2+SIDE2**2)«, l3=0x28}
0x2bd…2cf Line {l1=0x10, l2=»0160 CURSOR 8,12«, l3=0x10}
0x2cf…31e Line {l1=0x4d, l2=»0170 PRINT USING "Hypotenusen ######.## ":HYPOTENUSEN«, l3=0x4d}
0x31e…330 Line {l1=0x10, l2=»0180 CURSOR 5,13«, l3=0x10}
0x330…37b Line {l1=0x49, l2=»0190 PRINT "------------------------------------------------------------"«, l3=0x49}
0x37b…38d Line {l1=0x10, l2=»0200 ENDPROC HYP«, l3=0x10}
0x38d…3d2 Line {l1=0x43, l2=»0210 // -----------------------------------------------------------«, l3=0x43}
0x3d2…3e4 Line {l1=0x10, l2=»0220 PROC KATETE«, l3=0x10}
0x3e4…3f6 Line {l1=0x10, l2=»0230 CURSOR 1,12«, l3=0x10}
0x3f6…411 Line {l1=0x19, l2=»0240 IF SIDE1>SIDE2 THEN «, l3=0x19}
0x411…439 Line {l1=0x26, l2=»0250 KATETE1:=(SQR(SIDE1**2-SIDE2**2))«, l3=0x26}
0x439…445 Line {l1=0x0a, l2=»0260 ELSE «, l3=0x0a}
0x445…46d Line {l1=0x26, l2=»0270 KATETE1:=(SQR(SIDE2**2-SIDE1**2))«, l3=0x26}
0x46d…47a Line {l1=0x0b, l2=»0280 ENDIF «, l3=0x0b}
0x47a…48c Line {l1=0x10, l2=»0290 CURSOR 8,12«, l3=0x10}
0x48c…4db Line {l1=0x4d, l2=»0300 PRINT USING "Den ene katete: ######.## ":KATETE1«, l3=0x4d}
0x4db…4ed Line {l1=0x10, l2=»0310 CURSOR 5,13«, l3=0x10}
0x4ed…538 Line {l1=0x49, l2=»0320 PRINT "------------------------------------------------------------"«, l3=0x49}
0x538…54d Line {l1=0x13, l2=»0330 ENDPROC KATETE«, l3=0x13}
0x54d…592 Line {l1=0x43, l2=»0340 // -----------------------------------------------------------«, l3=0x43}
0x592…5a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccc┆
0x5a0…5c0 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┆
[…0x1…]
C0010 // ------------------------- trekant8 ------------------------CD0020 // Programmet udregner den sidste side i en retvinklet trekant,D,0030 // når man indtaster de to andre sider.,C0040 // -----------------------------------------------------------C▶0b◀0050 CLEAR ▶0b◀▶0f◀0060 CURSOR 1,6▶0f◀J0070 INPUT "Indtast de to sider: ":SIDE1,SIDE2J▶0b◀0080 PRINT ▶0b◀D0090 INPUT "Drejer det sig om to kateter? 1:ja 2:nej ":SVARDC0100 // -----------------------------------------------------------C▶1c◀0110 IF SVAR=1 THEN EXEC HYP▶1c◀▶1f◀0120 IF SVAR=2 THEN EXEC KATETE▶1f◀C0130 // -----------------------------------------------------------C\r0140 PROC HYP\r(0150 HYPOTENUSEN:=SQR(SIDE1**2+SIDE2**2)(▶10◀0160 CURSOR 8,12▶10◀M0170 PRINT USING "Hypotenusen ######.## ":HYPOTENUSENM▶10◀0180 CURSOR 5,13▶10◀I0190 PRINT "------------------------------------------------------------"I▶10◀0200 ENDPROC HYP▶10◀C0210 // -----------------------------------------------------------C▶10◀0220 PROC KATETE▶10◀▶10◀0230 CURSOR 1,12▶10◀▶19◀0240 IF SIDE1>SIDE2 THEN ▶19◀&0250 KATETE1:=(SQR(SIDE1**2-SIDE2**2))& 0260 ELSE &0270 KATETE1:=(SQR(SIDE2**2-SIDE1**2))&▶0b◀0280 ENDIF ▶0b◀▶10◀0290 CURSOR 8,12▶10◀M0300 PRINT USING "Den ene katete: ######.## ":KATETE1M▶10◀0310 CURSOR 5,13▶10◀I0320 PRINT "------------------------------------------------------------"I▶13◀0330 ENDPROC KATETE▶13◀C0340 // -----------------------------------------------------------C▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc