|
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: 3008 (0xbc0)
Types: TextFile
Notes: Mikados_K
Names: »ANDENGR3.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANDENGR3.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANDENGR3.K«
0010 // -------------------------- andengr3 ---------------------- 0020 // Andengradsligningen med CASE - ENDCASE samt PROCEDURER 0025 INTEGER TRUE,FALSE 0026 TRUE:=1;FALSE:=0 0030 CLEAR 0040 CURSOR 1,6 0050 PRINT " Andengradsligningen Ax2 + Bx + C = 0 " 0060 PRINT "--------------------------------------------" 0070 INPUT " Indtast A: ":A 0080 INPUT " Indtast B: ":B 0090 INPUT " Indtast C: ":C 0100 // ------------------------------------------------------------------ 0110 DISKRIMI:=B**2-4*A*C 0120 // ------------------------------------------------------------------ 0130 CASE TRUE OF 0140 WHEN DISKRIMI<0 0150 EXEC INGEN 0160 WHEN DISKRIMI=0 0170 EXEC EN_ROD 0180 WHEN DISKRIMI>0 0190 EXEC TO_RØDDER 0200 ENDCASE 0210 // ----------------------------------------------------------------- 0220 PROC INGEN 0230 PRINT 0240 PRINT " Ligningen har ingen reelle rødder." 0250 ENDPROC INGEN 0260 // ----------------------------------------------------------------- 0270 PROC EN_ROD 0280 X:=-B/2/A 0290 PRINT 0300 PRINT USING " Ligningen har dobbeltroden: ####.## ":X 0310 ENDPROC EN_ROD 0320 // ---------------------------------------------------------------- 0330 PROC TO_RØDDER 0340 PRINT 0350 PRINT " Ligningen har to rødder:" 0360 X1:=(-B+SQR(DISKRIMI))/2/A 0370 X2:=(-B-SQR(DISKRIMI))/2/A 0380 PRINT USING " x1 = ####.## ":X1 0390 PRINT USING " x2 = ####.## ":X2 0400 ENDPROC TO_RØDDER
0x000…044 Line {l1=0x42, l2=»0010 // -------------------------- andengr3 ----------------------«, l3=0x42}
0x044…084 Line {l1=0x3e, l2=»0020 // Andengradsligningen med CASE - ENDCASE samt PROCEDURER«, l3=0x3e}
0x084…09d Line {l1=0x17, l2=»0025 INTEGER TRUE,FALSE«, l3=0x17}
0x09d…0b4 Line {l1=0x15, l2=»0026 TRUE:=1;FALSE:=0«, l3=0x15}
0x0b4…0c1 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x0c1…0d2 Line {l1=0x0f, l2=»0040 CURSOR 1,6«, l3=0x0f}
0x0d2…109 Line {l1=0x35, l2=»0050 PRINT " Andengradsligningen Ax2 + Bx + C = 0 "«, l3=0x35}
0x109…144 Line {l1=0x39, l2=»0060 PRINT "--------------------------------------------"«, l3=0x39}
0x144…178 Line {l1=0x32, l2=»0070 INPUT " Indtast A: ":A«, l3=0x32}
0x178…1ac Line {l1=0x32, l2=»0080 INPUT " Indtast B: ":B«, l3=0x32}
0x1ac…1e0 Line {l1=0x32, l2=»0090 INPUT " Indtast C: ":C«, l3=0x32}
0x1e0…22c Line {l1=0x4a, l2=»0100 // ------------------------------------------------------------------«, l3=0x4a}
0x22c…247 Line {l1=0x19, l2=»0110 DISKRIMI:=B**2-4*A*C«, l3=0x19}
0x247…293 Line {l1=0x4a, l2=»0120 // ------------------------------------------------------------------«, l3=0x4a}
0x293…2a7 Line {l1=0x12, l2=»0130 CASE TRUE OF «, l3=0x12}
0x2a7…2bd Line {l1=0x14, l2=»0140 WHEN DISKRIMI<0«, l3=0x14}
0x2bd…2ce Line {l1=0x0f, l2=»0150 EXEC INGEN«, l3=0x0f}
0x2ce…2e4 Line {l1=0x14, l2=»0160 WHEN DISKRIMI=0«, l3=0x14}
0x2e4…2f6 Line {l1=0x10, l2=»0170 EXEC EN_ROD«, l3=0x10}
0x2f6…30c Line {l1=0x14, l2=»0180 WHEN DISKRIMI>0«, l3=0x14}
0x30c…321 Line {l1=0x13, l2=»0190 EXEC TO_RØDDER«, l3=0x13}
0x321…330 Line {l1=0x0d, l2=»0200 ENDCASE «, l3=0x0d}
0x330…37b Line {l1=0x49, l2=»0210 // -----------------------------------------------------------------«, l3=0x49}
0x37b…38c Line {l1=0x0f, l2=»0220 PROC INGEN«, l3=0x0f}
0x38c…399 Line {l1=0x0b, l2=»0230 PRINT «, l3=0x0b}
0x399…3cb Line {l1=0x30, l2=»0240 PRINT " Ligningen har ingen reelle rødder."«, l3=0x30}
0x3cb…3df Line {l1=0x12, l2=»0250 ENDPROC INGEN«, l3=0x12}
0x3df…42a Line {l1=0x49, l2=»0260 // -----------------------------------------------------------------«, l3=0x49}
0x42a…43c Line {l1=0x10, l2=»0270 PROC EN_ROD«, l3=0x10}
0x43c…44c Line {l1=0x0e, l2=»0280 X:=-B/2/A«, l3=0x0e}
0x44c…459 Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x459…499 Line {l1=0x3e, l2=»0300 PRINT USING " Ligningen har dobbeltroden: ####.## ":X«, l3=0x3e}
0x499…4ae Line {l1=0x13, l2=»0310 ENDPROC EN_ROD«, l3=0x13}
0x4ae…4f8 Line {l1=0x48, l2=»0320 // ----------------------------------------------------------------«, l3=0x48}
0x4f8…50d Line {l1=0x13, l2=»0330 PROC TO_RØDDER«, l3=0x13}
0x50d…51a Line {l1=0x0b, l2=»0340 PRINT «, l3=0x0b}
0x51a…542 Line {l1=0x26, l2=»0350 PRINT " Ligningen har to rødder:"«, l3=0x26}
0x542…563 Line {l1=0x1f, l2=»0360 X1:=(-B+SQR(DISKRIMI))/2/A«, l3=0x1f}
0x563…584 Line {l1=0x1f, l2=»0370 X2:=(-B-SQR(DISKRIMI))/2/A«, l3=0x1f}
0x584…5c5 Line {l1=0x3f, l2=»0380 PRINT USING " x1 = ####.## ":X1«, l3=0x3f}
0x5c5…606 Line {l1=0x3f, l2=»0390 PRINT USING " x2 = ####.## ":X2«, l3=0x3f}
0x606…61e Line {l1=0x16, l2=»0400 ENDPROC TO_RØDDER«, l3=0x16}
0x61e…620 00 00 ┆ ┆
0x620…640 2d 2d 2d 42 3e 30 30 32 30 20 2f 2f 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e ┆---B>0020 // Andengradsligningen┆
0x640…660 20 6d 65 64 20 43 41 53 45 20 2d 20 45 4e 44 43 41 53 45 20 73 61 6d 74 20 50 52 4f 43 45 44 55 ┆ med CASE - ENDCASE samt PROCEDU┆
0x660…680 52 45 52 3e 17 30 30 32 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 ┆RER> 0025 INTEGER TRUE,FALSE 00┆
0x680…6a0 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 ┆26 TRUE:=1;FALSE:=0 0030 CLEAR ┆
0x6a0…6c0 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 35 30 30 35 30 20 50 52 49 4e 54 20 22 20 ┆ 0040 CURSOR 1,6 50050 PRINT " ┆
0x6c0…6e0 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┆
[…0x27…]