|
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 - download
Length: 4032 (0xfc0)
Types: TextFile
Notes: Mikados_K
Names: »HERON3.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HERON3.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HERON3.K«
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 // ---------------------------------------------------------------------
0x000…044 Line {l1=0x42, l2=»0010 // ------------------------ heron3 --------------------------«, l3=0x42}
0x044…08c Line {l1=0x46, l2=»0020 // Programmet udregner omkreds & areal af en trekant ved hjælp af«, l3=0x46}
0x08c…0b3 Line {l1=0x25, l2=»0030 // procedurer med tre parametre.«, l3=0x25}
0x0b3…0c0 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0c0…0e0 Line {l1=0x1e, l2=»0050 PRINT "Trekant nummer 1."«, l3=0x1e}
0x0e0…12d Line {l1=0x4b, l2=»0060 INPUT "Indtast de tre sider i trekanten: ":SIDEA1,SIDEB1,SIDEC1«, l3=0x4b}
0x12d…13a Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x13a…176 Line {l1=0x3a, l2=»0080 PRINT "Trekant nummer 2. "«, l3=0x3a}
0x176…1c3 Line {l1=0x4b, l2=»0090 INPUT "indtast de tre sider i trekanten: ":SIDEA2,SIDEB2,SIDEC2«, l3=0x4b}
0x1c3…1d0 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x1d0…208 Line {l1=0x36, l2=»0110 PRINT "Trekant nummer 3. "«, l3=0x36}
0x208…254 Line {l1=0x4a, l2=»0120 INPUT "Indtast de tre sider i trekanten: ":SIDEA3,SIDEB3,SIDEC3«, l3=0x4a}
0x254…2a3 Line {l1=0x4d, l2=»0130 // ---------------------------------------------------------------------«, l3=0x4d}
0x2a3…2b0 Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x2b0…2c0 Line {l1=0x0e, l2=»0150 NUMMER:=1«, l3=0x0e}
0x2c0…2e7 Line {l1=0x25, l2=»0160 EXEC AREAL(SIDEA1,SIDEB1,SIDEC1)«, l3=0x25}
0x2e7…2f7 Line {l1=0x0e, l2=»0170 NUMMER:=2«, l3=0x0e}
0x2f7…31e Line {l1=0x25, l2=»0180 EXEC AREAL(SIDEA2,SIDEB2,SIDEC2)«, l3=0x25}
0x31e…32e Line {l1=0x0e, l2=»0190 NUMMER:=3«, l3=0x0e}
0x32e…33b Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x33b…362 Line {l1=0x25, l2=»0210 EXEC AREAL(SIDEA3,SIDEB3,SIDEC3)«, l3=0x25}
0x362…3b1 Line {l1=0x4d, l2=»0220 // ---------------------------------------------------------------------«, l3=0x4d}
0x3b1…3d5 Line {l1=0x22, l2=»0230 PROC AREAL(SIDEA,SIDEB,SIDEC)«, l3=0x22}
0x3d5…420 Line {l1=0x49, l2=»0240 IF SIDEA+SIDEB<SIDEC OR SIDEB+SIDEC<SIDEA OR SIDEA+SIDEC<SIDEB THEN «, l3=0x49}
0x420…435 Line {l1=0x13, l2=»0250 EXEC UDSKRIFT1«, l3=0x13}
0x435…441 Line {l1=0x0a, l2=»0260 ELSE «, l3=0x0a}
0x441…460 Line {l1=0x1d, l2=»0270 S:=(SIDEA+SIDEB+SIDEC)/2«, l3=0x1d}
0x460…498 Line {l1=0x36, l2=»0280 AREALET:=(S*(S-SIDEA)*(S-SIDEB)*(S-SIDEC))**(1/2)«, l3=0x36}
0x498…4b9 Line {l1=0x1f, l2=»0290 OMKREDS:=SIDEA+SIDEB+SIDEC«, l3=0x1f}
0x4b9…4ce Line {l1=0x13, l2=»0300 EXEC UDSKRIFT2«, l3=0x13}
0x4ce…4db Line {l1=0x0b, l2=»0310 ENDIF «, l3=0x0b}
0x4db…4ef Line {l1=0x12, l2=»0320 ENDPROC AREAL«, l3=0x12}
0x4ef…53e Line {l1=0x4d, l2=»0330 // ---------------------------------------------------------------------«, l3=0x4d}
0x53e…553 Line {l1=0x13, l2=»0340 PROC UDSKRIFT1«, l3=0x13}
0x553…560 Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x560…5ad Line {l1=0x4b, l2=»0360 PRINT USING "Nummer ### ":NUMMER«, l3=0x4b}
0x5ad…5f3 Line {l1=0x44, l2=»0370 PRINT "Denne trekant eksisterer ikke, så du må nok prøve igen."«, l3=0x44}
0x5f3…60b Line {l1=0x16, l2=»0380 ENDPROC UDSKRIFT1«, l3=0x16}
0x60b…65a Line {l1=0x4d, l2=»0390 // ---------------------------------------------------------------------«, l3=0x4d}
0x65a…66f Line {l1=0x13, l2=»0400 PROC UDSKRIFT2«, l3=0x13}
0x66f…67c Line {l1=0x0b, l2=»0410 PRINT «, l3=0x0b}
0x67c…6c9 Line {l1=0x4b, l2=»0420 PRINT USING "Nummer ### ":NUMMER«, l3=0x4b}
0x6c9…717 Line {l1=0x4c, l2=»0430 PRINT USING "Siden a: ####.## ":SIDEA«, l3=0x4c}
0x717…765 Line {l1=0x4c, l2=»0440 PRINT USING "Siden b: ####.## ":SIDEB«, l3=0x4c}
0x765…7b3 Line {l1=0x4c, l2=»0450 PRINT USING "Siden c: ####.## ":SIDEC«, l3=0x4c}
0x7b3…800 Line {l1=0x4b, l2=»0460 PRINT USING "Omkredsen af trekanten: ####.##":OMKREDS«, l3=0x4b}
0x800…84e Line {l1=0x4c, l2=»0470 PRINT USING "Arealet af trekanten: ####.## ":AREALET«, l3=0x4c}
0x84e…866 Line {l1=0x16, l2=»0480 ENDPROC UDSKRIFT2«, l3=0x16}
0x866…8b5 Line {l1=0x4d, l2=»0490 // ---------------------------------------------------------------------«, l3=0x4d}
0x8b5…8c0 00 00 4d 00 00 72 20 31 2e 22 1e ┆ M r 1." ┆
0x8c0…8e0 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┆
[…0x37…]
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