программа для вычисления квадратного корня, почему-то не работает.

[pavlan]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
j:real;
code:integer; a,b,c:integer; x1,x2,d:real;

begin
val(Edit1.Text,j,code);
if code <>0 then ShowMessage('Error number'+IntToStr(code));

val(Edit3.Text,j,code);
if code <>0 then ShowMessage('Error number'+IntToStr(code));

val(Edit2.Text,j,code);
if code <>0 then ShowMessage('Error number'+IntToStr(code));

d:=sqr(b)-4*a*c;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);


x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
label2.Caption:='âòîðîé êîðåíü: x1 = '+FloatToStr(x1);
label3.Caption:='ïåðâûé êîðåíü: x2 = '+FloatToStrt(x2);


end;

end.



где ошибка? помогите!

[GetMax]

d:=sqr(b)-4*a*c;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);

А почему это вы сначала считаете дискриминант, а уж потом присваиваете переменным значения. Наоборот должно быть

a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=sqr(b)-4*a*c;

[pavlan]

все, спасибо, заработало

[bananasus]

Это ты в этой программе не квадратный корень вычисляешь, а находишь корни квадратного уравнения... Не путай...

[pavlan]

та ладно разобрались уже, просто че-то заболел походу херово. короч удаляйте тему проблемма решена.