|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »ANDENGR2.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANDENGR2.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANDENGR2.K«
0010 // -------------------------- andengr2 ---------------------- 0020 // Andengradsligningen med CASE - ENDCASE 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 PRINT 0160 PRINT " Ligningen har ingen reelle rødder." 0170 WHEN DISKRIMI=0 0180 X:=-B/2/A 0190 PRINT 0200 PRINT USING " Ligningen har dobbeltroden: ###.## ":X 0210 PRINT 0220 WHEN DISKRIMI>0 0230 PRINT " Ligningen har to rødder: " 0240 PRINT 0250 X1:=(-B+SQR(DISKRIMI))/2/A 0260 PRINT USING " xl = ###.## ":X1 0270 X2:=(-B-SQR(DISKRIMI))/2/A 0280 PRINT USING " x2 = ###.## ":X2 0290 ENDCASE 0300 CURSOR 1,21
0x000…044 Line {l1=0x42, l2=»0010 // -------------------------- andengr2 ----------------------«, l3=0x42}
0x044…074 Line {l1=0x2e, l2=»0020 // Andengradsligningen med CASE - ENDCASE«, l3=0x2e}
0x074…08d Line {l1=0x17, l2=»0025 INTEGER TRUE,FALSE«, l3=0x17}
0x08d…0a4 Line {l1=0x15, l2=»0026 TRUE:=1;FALSE:=0«, l3=0x15}
0x0a4…0b1 Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x0b1…0c2 Line {l1=0x0f, l2=»0040 CURSOR 1,6«, l3=0x0f}
0x0c2…0f9 Line {l1=0x35, l2=»0050 PRINT " Andengradsligningen Ax2 + Bx + C = 0 "«, l3=0x35}
0x0f9…134 Line {l1=0x39, l2=»0060 PRINT "--------------------------------------------"«, l3=0x39}
0x134…168 Line {l1=0x32, l2=»0070 INPUT " Indtast A: ":A«, l3=0x32}
0x168…19c Line {l1=0x32, l2=»0080 INPUT " Indtast B: ":B«, l3=0x32}
0x19c…1d0 Line {l1=0x32, l2=»0090 INPUT " Indtast C: ":C«, l3=0x32}
0x1d0…21c Line {l1=0x4a, l2=»0100 // ------------------------------------------------------------------«, l3=0x4a}
0x21c…237 Line {l1=0x19, l2=»0110 DISKRIMI:=B**2-4*A*C«, l3=0x19}
0x237…283 Line {l1=0x4a, l2=»0120 // ------------------------------------------------------------------«, l3=0x4a}
0x283…297 Line {l1=0x12, l2=»0130 CASE TRUE OF «, l3=0x12}
0x297…2ad Line {l1=0x14, l2=»0140 WHEN DISKRIMI<0«, l3=0x14}
0x2ad…2ba Line {l1=0x0b, l2=»0150 PRINT «, l3=0x0b}
0x2ba…2ec Line {l1=0x30, l2=»0160 PRINT " Ligningen har ingen reelle rødder."«, l3=0x30}
0x2ec…302 Line {l1=0x14, l2=»0170 WHEN DISKRIMI=0«, l3=0x14}
0x302…312 Line {l1=0x0e, l2=»0180 X:=-B/2/A«, l3=0x0e}
0x312…31f Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x31f…35e Line {l1=0x3d, l2=»0200 PRINT USING " Ligningen har dobbeltroden: ###.## ":X«, l3=0x3d}
0x35e…36b Line {l1=0x0b, l2=»0210 PRINT «, l3=0x0b}
0x36b…381 Line {l1=0x14, l2=»0220 WHEN DISKRIMI>0«, l3=0x14}
0x381…3aa Line {l1=0x27, l2=»0230 PRINT " Ligningen har to rødder: "«, l3=0x27}
0x3aa…3b7 Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x3b7…3d8 Line {l1=0x1f, l2=»0250 X1:=(-B+SQR(DISKRIMI))/2/A«, l3=0x1f}
0x3d8…418 Line {l1=0x3e, l2=»0260 PRINT USING " xl = ###.## ":X1«, l3=0x3e}
0x418…439 Line {l1=0x1f, l2=»0270 X2:=(-B-SQR(DISKRIMI))/2/A«, l3=0x1f}
0x439…479 Line {l1=0x3e, l2=»0280 PRINT USING " x2 = ###.## ":X2«, l3=0x3e}
0x479…488 Line {l1=0x0d, l2=»0290 ENDCASE «, l3=0x0d}
0x488…49a Line {l1=0x10, l2=»0300 CURSOR 1,21«, l3=0x10}
0x49a…4a0 00 00 63 63 63 63 ┆ cccc┆
0x4a0…4c0 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┆
[…0x9…]