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

⟦5c88083f8⟧ TextFile

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

Derivation

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

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 

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