Курсовая работа: Розробка засобами Delphi дидактичного ілюстративного матеріалу для розвязання задачі з аналітичної

yC:=StrToFloat(Edit6.Text);

xD:=StrToFloat(Edit7.Text);

yD:=StrToFloat(Edit8.Text);

c:=0;

repeat

begin

case c of

0:begin Xn:=xA;Yn:=yA;end;

1:begin Xn:=xB;Yn:=yB;end;

2:begin Xn:=xC;Yn:=yC;end;

3:begin Xn:=xD;Yn:=yD;end;

end;

c1:=0;

repeat

begin

case c1 of

0:begin Xn1:=xA;Yn1:=yA;end;

1:begin Xn1:=xB;Yn1:=yB;end;

2:begin Xn1:=xC;Yn1:=yC;end;

3:begin Xn1:=xD;Yn1:=yD;end;

end;

if c<>c1 then

begin

If Xn=Xn1 then

begin

if Yn=Yn1 then

begin

ShowMessage('Найдены были одинаковые координаты двух точек.'+#13+

'Пожалуйста откорректируйте введенные координаты.',);