|
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: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »TOPPKT1.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TOPPKT1.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TOPPKT1.K«
0010 // ------------------------- toppunkt1 --------------------------
0020 // Udregner toppunktets koordinater i en parabel.
0030 CLEAR
0040 CURSOR 1,6
0050 PRINT " Andengradspolynomiet y = Ax2 + Bx + C "
0060 PRINT "---------------------------------------- "
0070 PRINT
0080 INPUT " Indtast A: ":A
0090 PRINT
0100 INPUT " Indtast B: ":B
0110 PRINT
0120 INPUT " Indtast C: ":C
0130 DISKRIMI:=B**2-4*A*C
0140 PRINT
0150 X:=-B/2/A;Y:=-DISKRIMI/4/A
0160 PRINT
0170 PRINT "Toppunktet for y = Ax2 + Bx + C : (";X;",";Y;")"
0x000…048 Line {l1=0x46, l2=»0010 // ------------------------- toppunkt1 --------------------------«, l3=0x46}
0x048…080 Line {l1=0x36, l2=»0020 // Udregner toppunktets koordinater i en parabel.«, l3=0x36}
0x080…08d Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x08d…09e Line {l1=0x0f, l2=»0040 CURSOR 1,6«, l3=0x0f}
0x09e…0d9 Line {l1=0x39, l2=»0050 PRINT " Andengradspolynomiet y = Ax2 + Bx + C "«, l3=0x39}
0x0d9…114 Line {l1=0x39, l2=»0060 PRINT "---------------------------------------- "«, l3=0x39}
0x114…121 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x121…155 Line {l1=0x32, l2=»0080 INPUT " Indtast A: ":A«, l3=0x32}
0x155…162 Line {l1=0x0b, l2=»0090 PRINT «, l3=0x0b}
0x162…196 Line {l1=0x32, l2=»0100 INPUT " Indtast B: ":B«, l3=0x32}
0x196…1a3 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x1a3…1d7 Line {l1=0x32, l2=»0120 INPUT " Indtast C: ":C«, l3=0x32}
0x1d7…1f2 Line {l1=0x19, l2=»0130 DISKRIMI:=B**2-4*A*C«, l3=0x19}
0x1f2…1ff Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x1ff…220 Line {l1=0x1f, l2=»0150 X:=-B/2/A;Y:=-DISKRIMI/4/A«, l3=0x1f}
0x220…22d Line {l1=0x0b, l2=»0160 PRINT «, l3=0x0b}
0x22d…26d Line {l1=0x3e, l2=»0170 PRINT "Toppunktet for y = Ax2 + Bx + C : (";X;",";Y;")"«, l3=0x3e}
0x26d…280 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccc┆
0x280…2a0 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┆
[…0x2…]