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

⟦3c510a944⟧ TextFile

    Length: 1504 (0x5e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »TREKANT8«

Derivation

└─⟦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 // -----------------------------------------------------------

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