|
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: 587 (0x24b)
Notes: Mikados TextFile, Mikados_K
Names: »TOPPKT1«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »TOPPKT1«
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;")"