DataMuseum.dk

top - metrics - download

    Length: 2131 (0x853)
    Notes: Mikados TextFile, Mikados_K
    Names: »HERON3«

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

Text

0010 // ------------------------ heron3 --------------------------
0020 // Programmet udregner omkreds & areal af en trekant ved hjælp af
0030 // procedurer med tre parametre.
0040 CLEAR 
0050 PRINT "Trekant nummer 1."
0060 INPUT "Indtast de tre sider i trekanten:        ":SIDEA1,SIDEB1,SIDEC1
0070 PRINT 
0080 PRINT "Trekant nummer 2.                            "
0090 INPUT "indtast de tre sider i trekanten:        ":SIDEA2,SIDEB2,SIDEC2
0100 PRINT 
0110 PRINT "Trekant nummer 3.                        "
0120 INPUT "Indtast de tre sider i trekanten:       ":SIDEA3,SIDEB3,SIDEC3
0130 // ---------------------------------------------------------------------
0140 CLEAR 
0150 NUMMER:=1
0160 EXEC AREAL(SIDEA1,SIDEB1,SIDEC1)
0170 NUMMER:=2
0180 EXEC AREAL(SIDEA2,SIDEB2,SIDEC2)
0190 NUMMER:=3
0200 PRINT 
0210 EXEC AREAL(SIDEA3,SIDEB3,SIDEC3)
0220 // ---------------------------------------------------------------------
0230 PROC AREAL(SIDEA,SIDEB,SIDEC)
0240 IF SIDEA+SIDEB<SIDEC OR SIDEB+SIDEC<SIDEA OR SIDEA+SIDEC<SIDEB THEN 
0250 EXEC UDSKRIFT1
0260 ELSE 
0270 S:=(SIDEA+SIDEB+SIDEC)/2
0280 AREALET:=(S*(S-SIDEA)*(S-SIDEB)*(S-SIDEC))**(1/2)
0290 OMKREDS:=SIDEA+SIDEB+SIDEC
0300 EXEC UDSKRIFT2
0310 ENDIF 
0320 ENDPROC AREAL
0330 // ---------------------------------------------------------------------
0340 PROC UDSKRIFT1
0350 PRINT 
0360 PRINT USING "Nummer  ###                                      ":NUMMER
0370 PRINT "Denne trekant eksisterer ikke, så du må nok prøve igen."
0380 ENDPROC UDSKRIFT1
0390 // ---------------------------------------------------------------------
0400 PROC UDSKRIFT2
0410 PRINT 
0420 PRINT USING "Nummer  ###                                      ":NUMMER
0430 PRINT USING "Siden a:                                 ####.##   ":SIDEA
0440 PRINT USING "Siden b:                                 ####.##   ":SIDEB
0450 PRINT USING "Siden c:                                 ####.##   ":SIDEC
0460 PRINT USING "Omkredsen af trekanten:                  ####.##":OMKREDS
0470 PRINT USING "Arealet af trekanten:                    ####.## ":AREALET
0480 ENDPROC UDSKRIFT2
0490 // ---------------------------------------------------------------------