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

D:=X1*Y2-Y1*X2;

If D<>0 then

begin

xO:=(Z1*Y2-Y1*Z2)/D;

yO:=(X1*Z2-Z1*X2)/D;

OB:=sqrt(sqr(xO-xB)+sqr(yO-yB));

OD:=sqrt(sqr(xO-xD)+sqr(yO-yD));

BD:=sqrt(sqr(xB-xD)+sqr(yB-yD));

OBP:=round(OB*(100/BD));

ODP:=100-OBP;

label5.Caption:='OB='+FloatToStrF(OB,fffixed,4,2)+' '+IntToStr(OBP)+'%'+#13

+'OD='+FloatToStrF(OD,fffixed,4,2)+' '+intToStr(ODP)+'%';

Font.Color:=clRed;

textOut(ekrX(xO)+6,ekrY(yO)-6,'O');

end

else

begin

label5.Caption:='';

ShowMessage('Исправте координаты точек');

end;

Case Combobox1.ItemIndex of

0:w:=1;

1:w:=2;

end;

Pen.Width:=w;

Pen.Style:=psSolid;

Pen.Color:=Colorbox4.Selected;

MoveTo(ekrX(xa),ekrY(ya));

LineTo(ekrX(xb),ekrY(yb));