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 - download

⟦5c88083f8⟧ TextFile

    Length: 1504 (0x5e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »FUNC_HER.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »FUNC_HER.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »FUNC_HER.K« 

0010 // ------------------------- Func_heron -----------------------
0020 // 
0025 TRUE:=1;FALSE:=0
0030 PROC FNTREKANT_OK(A,B,C)
0040 OK:=TRUE
0050 IF A+B<=C OR B+C<=A THEN OK:=FALSE
0060 FNTREKANT_OK:=OK
0070 ENDPROC FNTREKANT_OK
0080 // 
0090 PROC FNAREAL(A,B,C)
0100 S:=(A+B+C)/2
0110 FNAREAL:=SQR(S*(S-A)*(S-B)*(S-C))
0120 ENDPROC FNAREAL
0130 // 
0140 CLEAR 
0145 PRINT 
0150 INPUT "Indtast de tre sider i en trekant:   ":SIDE1,SIDE2,SIDE3
0160 PRINT USING "Siderne er: ####.## - ####.## - ####.##":SIDE1;SIDE2;SIDE3
0170 IF FNTREKANT_OK(SIDE1,SIDE2,SIDE3) THEN 
0180 PRINT USING "Trekantens areal er: #####.##":FNAREAL(SIDE1,SIDE2,SIDE3)
0190 ELSE 
0200 PRINT "Trekanten eksisterer ikke."
0210 ENDIF 

0x000…046 Line {l1=0x44, l2=»0010 // ------------------------- Func_heron -----------------------«, l3=0x44}
0x046…050 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x050…067 Line {l1=0x15, l2=»0025 TRUE:=1;FALSE:=0«, l3=0x15}
0x067…086 Line {l1=0x1d, l2=»0030 PROC FNTREKANT_OK(A,B,C)«, l3=0x1d}
0x086…095 Line {l1=0x0d, l2=»0040 OK:=TRUE«, l3=0x0d}
0x095…0be Line {l1=0x27, l2=»0050 IF A+B<=C OR B+C<=A THEN OK:=FALSE«, l3=0x27}
0x0be…0d5 Line {l1=0x15, l2=»0060 FNTREKANT_OK:=OK«, l3=0x15}
0x0d5…0f0 Line {l1=0x19, l2=»0070 ENDPROC FNTREKANT_OK«, l3=0x19}
0x0f0…0fa Line {l1=0x08, l2=»0080 // «, l3=0x08}
0x0fa…114 Line {l1=0x18, l2=»0090 PROC FNAREAL(A,B,C)«, l3=0x18}
0x114…127 Line {l1=0x11, l2=»0100 S:=(A+B+C)/2«, l3=0x11}
0x127…14f Line {l1=0x26, l2=»0110 FNAREAL:=SQR(S*(S-A)*(S-B)*(S-C))«, l3=0x26}
0x14f…165 Line {l1=0x14, l2=»0120 ENDPROC FNAREAL«, l3=0x14}
0x165…16f Line {l1=0x08, l2=»0130 // «, l3=0x08}
0x16f…17c Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x17c…189 Line {l1=0x0b, l2=»0145 PRINT «, l3=0x0b}
0x189…1cf Line {l1=0x44, l2=»0150 INPUT "Indtast de tre sider i en trekant:   ":SIDE1,SIDE2,SIDE3«, l3=0x44}
0x1cf…21d Line {l1=0x4c, l2=»0160 PRINT USING "Siderne er: ####.## - ####.## - ####.##":SIDE1;SIDE2;SIDE3«, l3=0x4c}
0x21d…24c Line {l1=0x2d, l2=»0170 IF FNTREKANT_OK(SIDE1,SIDE2,SIDE3) THEN «, l3=0x2d}
0x24c…299 Line {l1=0x4b, l2=»0180 PRINT USING "Trekantens areal er: #####.##":FNAREAL(SIDE1,SIDE2,SIDE3)«, l3=0x4b}
0x299…2a5 Line {l1=0x0a, l2=»0190 ELSE «, l3=0x0a}
0x2a5…2ce Line {l1=0x27, l2=»0200 PRINT "Trekanten eksisterer ikke."«, l3=0x27}
0x2ce…2db Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x2db…2e0 00 00 63 63 63                                                                                    ┆  ccc┆
0x2e0…300 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┆
          […0x17…]

D0010 // ------------------------- Func_heron -----------------------D▶08◀0020 // ▶08◀▶15◀0025 TRUE:=1;FALSE:=0▶15◀▶1d◀0030 PROC FNTREKANT_OK(A,B,C)▶1d◀\r0040 OK:=TRUE\r'0050 IF A+B<=C OR B+C<=A THEN OK:=FALSE'▶15◀0060 FNTREKANT_OK:=OK▶15◀▶19◀0070 ENDPROC FNTREKANT_OK▶19◀▶08◀0080 // ▶08◀▶18◀0090 PROC FNAREAL(A,B,C)▶18◀▶11◀0100 S:=(A+B+C)/2▶11◀&0110 FNAREAL:=SQR(S*(S-A)*(S-B)*(S-C))&▶14◀0120 ENDPROC FNAREAL▶14◀▶08◀0130 // ▶08◀▶0b◀0140 CLEAR ▶0b◀▶0b◀0145 PRINT ▶0b◀D0150 INPUT "Indtast de tre sider i en trekant:   ":SIDE1,SIDE2,SIDE3DL0160 PRINT USING "Siderne er: ####.## - ####.## - ####.##":SIDE1;SIDE2;SIDE3L-0170 IF FNTREKANT_OK(SIDE1,SIDE2,SIDE3) THEN -K0180 PRINT USING "Trekantens areal er: #####.##":FNAREAL(SIDE1,SIDE2,SIDE3)K
0190 ELSE 
'0200 PRINT "Trekanten eksisterer ikke."'▶0b◀0210 ENDIF ▶0b◀▶00◀▶00◀ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view