Цитата:
|
Сообщение от zhenya20091
d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/2a;
x2:=(-b - Sqrt(diskrim))/2a;
вот так ?
|
Ну допустим d=diskrim
Тогда:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,x1,x2:real;
begin
if (edit1.text='')or(edit2.text='')or(edit3.text='') then
begin
ShowMessage ('Где данные?)');
end
else
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
d:=b*b-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
label1.Caption:='x1 = '+floattostr(x1)+';';
label2.Caption:='x2 = '+floattostr(x2)+';';
label3.Caption:='Проверка №1 : '+floattostr(x1*x1*a+b*x1+c)+' = 0;';
label4.Caption:='Проверка №2 : '+floattostr(x2*x2*a+b*x2+c)+' = 0;';
end
else
begin
label1.Caption:='d<0!';
label2.Caption:='';
label3.Caption:='';
label4.Caption:='';
end;
end;
end;
О оптимизации не думал - в учебных целях ведь.
Закинь на форму 3 Edit и 4 label-ки.
Edit-ы соответственно а, б, с.