|
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: 4032 (0xfc0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »HERON3«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HERON3«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HERON3«
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 // ---------------------------------------------------------------------
B0010 // ------------------------ heron3 --------------------------BF0020 // Programmet udregner omkreds & areal af en trekant ved hjælp afF%0030 // procedurer med tre parametre.%▶0b◀0040 CLEAR ▶0b◀▶1e◀0050 PRINT "Trekant nummer 1."▶1e◀K0060 INPUT "Indtast de tre sider i trekanten: ":SIDEA1,SIDEB1,SIDEC1K▶0b◀0070 PRINT ▶0b◀:0080 PRINT "Trekant nummer 2. ":K0090 INPUT "indtast de tre sider i trekanten: ":SIDEA2,SIDEB2,SIDEC2K▶0b◀0100 PRINT ▶0b◀60110 PRINT "Trekant nummer 3. "6J0120 INPUT "Indtast de tre sider i trekanten: ":SIDEA3,SIDEB3,SIDEC3JM0130 // ---------------------------------------------------------------------M▶0b◀0140 CLEAR ▶0b◀▶0e◀0150 NUMMER:=1▶0e◀%0160 EXEC AREAL(SIDEA1,SIDEB1,SIDEC1)%▶0e◀0170 NUMMER:=2▶0e◀%0180 EXEC AREAL(SIDEA2,SIDEB2,SIDEC2)%▶0e◀0190 NUMMER:=3▶0e◀▶0b◀0200 PRINT ▶0b◀%0210 EXEC AREAL(SIDEA3,SIDEB3,SIDEC3)%M0220 // ---------------------------------------------------------------------M"0230 PROC AREAL(SIDEA,SIDEB,SIDEC)"I0240 IF SIDEA+SIDEB<SIDEC OR SIDEB+SIDEC<SIDEA OR SIDEA+SIDEC<SIDEB THEN I▶13◀0250 EXEC UDSKRIFT1▶13◀ 0260 ELSE ▶1d◀0270 S:=(SIDEA+SIDEB+SIDEC)/2▶1d◀60280 AREALET:=(S*(S-SIDEA)*(S-SIDEB)*(S-SIDEC))**(1/2)6▶1f◀0290 OMKREDS:=SIDEA+SIDEB+SIDEC▶1f◀▶13◀0300 EXEC UDSKRIFT2▶13◀▶0b◀0310 ENDIF ▶0b◀▶12◀0320 ENDPROC AREAL▶12◀M0330 // ---------------------------------------------------------------------M▶13◀0340 PROC UDSKRIFT1▶13◀▶0b◀0350 PRINT ▶0b◀K0360 PRINT USING "Nummer ### ":NUMMERKD0370 PRINT "Denne trekant eksisterer ikke, så du må nok prøve igen."D▶16◀0380 ENDPROC UDSKRIFT1▶16◀M0390 // ---------------------------------------------------------------------M▶13◀0400 PROC UDSKRIFT2▶13◀▶0b◀0410 PRINT ▶0b◀K0420 PRINT USING "Nummer ### ":NUMMERKL0430 PRINT USING "Siden a: ####.## ":SIDEALL0440 PRINT USING "Siden b: ####.## ":SIDEBLL0450 PRINT USING "Siden c: ####.## ":SIDECLK0460 PRINT USING "Omkredsen af trekanten: ####.##":OMKREDSKL0470 PRINT USING "Arealet af trekanten: ####.## ":AREALETL▶16◀0480 ENDPROC UDSKRIFT2▶16◀M0490 // ---------------------------------------------------------------------M▶00◀▶00◀M▶00◀▶00◀r 1."▶1e◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc