[izunad]

Поправьте меня Арккосинус нечитает

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
var
x2,x3,x4,x5:integer;
y2,y3,y4,y5:integer;
d2,d3,d4,d5:real;
dx2,dx3,dx4,dx5:real;
dy2,dy3,dy4,dy5:real;
A1,A2,A3:real;
B1,B2,B3:real;
begin
x2:=StrToint(Edit4.Text); y2:=StrToint(Edit5.Text);
x3:=StrToint(Edit6.Text); y3:=StrToint(Edit7.Text);
x4:=StrToint(Edit8.Text); y4:=StrToint(Edit9.Text);
x5:=StrToint(Edit10.Text); y5:=StrToint(Edit11.Text);
dx2:=x5-x2; dy2:=y5-y2;
d2:=Sqrt(Sqr(dx2)+Sqr(dy2));
B1:=(dx2/d2);
A1:=ArcCos(B1);
label17.Caption :='Дальность: '+FloatToStrF(d2,ffFixed,4,2)
+#13+FloatToStrF(A1,ffFixed,4,2);


end;

end.

Заранее спс