求用Delphi解y=ax2+bx+c方程之程式

Question

先判断系数a，b，c是否满足有解条件，然后根据数学公式计算就搞定了。

Answer 1

根据数据上的两个解去算了，
判断一下，如果没有就告诉无解，如果有就是
(-b+sqrt(b^2-4*a*c))/2a
(-b-sqrt(b^2-4*a*c))/2a
了

Answer 2

这个太easy了吧
楼上说的对

Answer 3

我的意思是知道y和x的值，求a、b、c

Answer 4

我的意思是知道y和x的值，求a、b、c有可能吗？可不可以具本点？

Answer 5

当然了，知道了y，x的值求解a，b，c的方法有很多，但是最为有效的方法是化二次方程为线性方程。只要把a初始化为0就把方程变为线性方程y＝
bx＋c，b、c解为一条直线。

Answer 6

你自己算一个了，
根据(x1,y1),(x2,y2),(x3,y3)
可以解出a、b、c，算出公式，只要随便给3个参数，就可以算出a、b、c
这完全是数据问题。

Answer 7

其实并不难的,你先自己把这个方程组解出来不就行了.算了我帮你解了.
首先有3对数据{x1,y1},{x2,y2},{x3,y3}.
设几个变量:
int A,B,C,D,E,F
A=x1^2-x2^2;    B=x1-x2;    C=x1^2-x3^2;   D=x1-x3;
E=y1-y2;        F=y1-y3;
b=(F/C-F/A)/(D/C-B/A);
a=E/A-b*B/A;
C=y1-a*x1^2-b*x1;
这样就行了.

Answer 8

多谢irlyo(寒若冰) ，我现在出差，过两天回来测试一下，如果可以就给分。