Координаты в Delphi

[echo1337]

Помогите с задачкой.
Точки A(x1,y1), B(x2,y2) лежат на окружности радиуса r.
Является ли отрезок AB диаметром, если да то найти координаты середины отрезка AB.

[mss]

т.Пифагора проходят чуть ли не в 3-м классе ЦПШ)
Стыдно и позорно не знать ее)

[echo1337]

я решил почти ее. не знаю как вывести координаты отрезка AB.
Формула то легкая x=(x1+x2)/2 y=(y1+y2)/2 а как записать ее в одну строчку...?

[mss]

Write(x, ' ', y);

[echo1337]

Сообщение от mss

Write(x, ' ', y);

да формулы как вбить в одну строчку?

[mss]

Ну как ?
По правилам Паскаля - как же еще ?)
x:=(x1+x2)/2; y:=(y1+y2)/2;

[echo1337]

var
x1,x2,y1,y2,x,y:real;

begin
x1:=strtofloat(edt1.Text);
y1:=strtofloat(edt2.Text);
x2:=strtofloat(edt3.Text);
y2:=strtofloat(edt4.Text);
r:=strtofloat(edt5.Text);

if 2*r=Sqrt(Sqr(x2-x1)+sqr(y2-y1)) then x:=(x2+x1)/2; y:=(y2+y1)/2;
Edt6.text:=floattostr(x);
Edt7.text:=floattostr(y)
end;
end;

Сделал вот так, но не работает. в чем ошибка?
PS на edt не обращать внимания.

[Mad_Cat]

if 2*r=Sqrt(Sqr(x2-x1)+sqr(y2-y1)) then begin x:=(x2+x1)/2; y:=(y2+y1)/2;
Edt6.text:=floattostr(x);
Edt7.text:=floattostr(y);
end
else edt8.text:='AB не диаметр';

[echo1337]

Сообщение от Mad_Cat

if 2*r=Sqrt(Sqr(x2-x1)+sqr(y2-y1)) then begin x:=(x2+x1)/2; y:=(y2+y1)/2;end;

спасибо, а как еще вбить else edt8.text:='AB не диаметр' ??

[echo1337]

Сообщение от Mad_Cat

if 2*r=Sqrt(Sqr(x2-x1)+sqr(y2-y1)) then begin x:=(x2+x1)/2; y:=(y2+y1)/2;
Edt6.text:=floattostr(x);
Edt7.text:=floattostr(y);
end
else edt8.text:='AB не диаметр';

Ох, спасибо, большое!!!!