$a = c("edit1")->text;
$b = c("edit2")->text;
$c = c("edit3")->text;
$D = $b*$b - 4*$a*$c;
$E = 0;
If($D<$E)
{
c("memo3")->text="d=b^2-4ac";
c("memo4")->text=$D;
c("memo5")->text="Ò.ê. d<0, òî óðàâíåíèå íå èìååò êîðíåé";
c("memo1")->text="-";
c("memo2")->text="-";
}
elseif ($D=$E)
{
echo $x1=-$b/2*$a;
c("memo1")->text=$X1;
c("memo2")->text="-";
c("memo3")->text="d=b^2-4ac";
c("memo4")->text=$D;
c("memo5")->text="Ò.ê. d=0, òî óðàâíåíèå èìååò 1 êîðåíü";
c("memo6")->text="x=-b/2a";
c("memo7")->text=$x1;
}
else
{
echo
$x1=(-$b - sqrt($D))/(2*$a);
$x2=(-$b + sqrt($D))/(2*$a);
c("memo1")->text=$X1;
c("memo2")->text=$X2;
c("memo3")->text="d=b^2-4ac";
c("memo4")->text=$D;
c("memo5")->text="Ò.ê. d>0, òî óðàâíåíèå èìååò 2 êîðíÿ";
c("memo6")->text="x1=(-b - root(D))/(2*a)";
c("memo7")->text=$x1;
c("memo8")->text="x2=(-b + root(D))/(2*a)";
c("memo9")->text=$x2;
}