|
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: 685 (0x2ad)
Notes: Mikados TextFile, Mikados_K
Names: »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