Как правильно вбить в делфи выражение?

[Kat.]

Как правильно вбить в делфи выражение?
xc3:=(sqrt(sqr(x3)+ sqr(y3))-1)*cos(arctаg((acy-y3)/(acx-x3))) ;
у меня пишет ошибку в этой строке...(переменные все описаны)

[raxp]

...прикупил по случаю агрегат для телепатического наблюдения


...не-а, все равно плохо видно ...весь код в студию или код ошибки, скорее с типом данных наворотили

[Kat.]

procedure TForm1.Button1Click(Sender: TObject);

    var x1,x2,x3,y1,y2,y3,acx,bcx,ccx,acy,bcy,ccy,xc3,yc3,xc2,yc2,xc1,yc1:integer;
begin
x1:=StrToInt(Edit1.Text);
y1:=StrToInt(Edit2.Text);
x2:=StrToInt(Edit3.Text);
y2:=StrToInt(Edit4.Text);
x3:=StrToInt(Edit5.Text);
y3:=StrToInt(Edit6.Text);
acx:=((x1+x2) div 2);
 acy:=((y1+y2) div 2);
bcx:=((x3+x2) div 2); bcy:=((y3+y2) div 2);
ccx:=((x1+x3) div 2); ccy:=((y1+y3) div 2);
xc3:=(sqrt(sqr(x3)+ sqr(y3))-1)*cos(arctan((acy-y3)/(acx-x3))) ;
Label4.Caption:=IntToStr(xc3);
end;

end.

[Kat.]

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

[Mandrivnyk]

Библиотеки (в частности Math) подключены?

[execom]

Может тебе поробывать использовать тип double ответ то полюбому будет дробный)))) ну и соответственно вместо div - /

[Serge_Bliznykov]

Kat.
А Вы слышали, бывают целые числа и вещественные? Знаете, чем они отличаются?
А как Вы думаете функции деления, вычисления корня, косинуса и т.п. какое значение возвращают?! Подсказываю - ВЕЩЕСТВЕННОЕ (это которое имеет дробную часть...)

пробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
  x1, x2, x3, y1, y2, y3, acx, bcx, ccx, acy, bcy, ccy, yc3, xc2, yc2, xc1, yc1: integer;
  xc3: extended; // (или можно взять тип double или даже real )
begin
..............
  bcx:=((x3+x2) div 2); bcy:=((y3+y2) div 2);
  ccx:=((x1+x3) div 2); ccy:=((y1+y3) div 2);

  try
    xc3 := (sqrt(sqr(x3) + sqr(y3)) - 1) * cos(arctan((acy - y3) / (acx - x3)));
    Label4.Caption := FloatToStr(xc3);
  except
    Label4.Caption := 'невозможно вычислить - ошибки в задании исх.данных!'
  end;

[Kat.]

Ребята, спасибо огромное!!!!!!!!!!