Высоты треугольника Опции

[Глюк]

Здравствуйте. Здесь часть программки,которая рисует треугольник и его высоты. Проблема в одном: там строчка выделена. Почему,когда g1=l она не переходит к выполнению условия??? Все пробую....скажите,где ошибка???Заранее благадарю!

Код

procedure TForm1.Button3Click(Sender: TObject);
const picScale = 10;
var
ma_x, ma_y, mb_x, mb_y, mc_x, mc_y: integer;
ha_x, ha_y, hb_x, hb_y, hc_x, hc_y: integer;
ba_x, ba_y, bb_x, bb_y, bc_x, bc_y: integer;
i,j,m:integer;
          k1,k2,k3,z1,z2,z3:integer;   {integer}
          p,a,b,c:real;
          g1,g2,l:{extended}real;
          Xh, Yh, Zh: integer;

begin
  with paintbox1.Canvas do begin
    pen.Color := clBlack;
    moveto(picScale*strtoint(edit1.Text), picScale*strtoint(edit2.Text));
    lineto(picScale*strtoint(edit3.Text), picScale*strtoint(edit4.Text));
    lineto(picScale*strtoint(edit5.Text), picScale*strtoint(edit6.Text));
    lineto(picScale*strtoint(edit1.Text), picScale*strtoint(edit2.Text));
pen.Color := clGreen;
    k1:=10*strtoint(edit1.Text);
   k2:=10*strtoint(edit3.text);
    k3:=10*strtoint(edit5.text);
  z1:=10*strtoint(edit2.text);
   z2:=10*strtoint(edit4.text);
    z3:=10*strtoint(edit6.text);
  a:= sqrt(sqr(k1-k2)+sqr(z1-z2));
  b:= sqrt(sqr(k2-k3)+sqr(z2-z3));
  c:= sqrt(sqr(k1-k3)+sqr(z1-z3));
  p:=(a+b+c)/2;


{g1:= abs(sqrt(sqr(i-k2)+sqr(j-z2))); }
  g2:= (2*sqrt(p*(p-a)*(p-b)*(p-c)))/c;
  l:=abs(g2);
    for i:=k1 to k3 do
    begin
    for j:=z1 to z3 do
    begin
     g1:= sqrt(sqr(i-k2)+sqr(j-z2));
      if (g1=l) then   {почему,когда g1=l она не переходит к выполнению условия???}
       begin
        Xh := i;
        Yh := j;  
       end;
       end; end;
       moveto(10*strtoint(edit3.Text), picScale*strtoint(edit4.Text));
    lineto(Xh, Yh);

Сообщение отредактировано: Глюк - 22.04.2007 21:07

[Глюк]

Ещё я этот же способ применил и для рисования биссектрис-ВСЁ получается!!!
Спасиб ещё раз!

[Lapp]

Ещё я этот же способ применил и для рисования биссектрис-ВСЁ получается!!!

Приятно слышать! Просто бальзам по сердцу.. Поздравляю!
Не знаю, нужно ли тебе, но у меня совет по дальнейшему улучшению и развитию.. Я бы сделал что-то типа такого..
Делаешь примерно такую структуру:

type
  tPoint=record   {тип точка}
    x,y      {координаты}
  end;
  tTriangle=record    {тип треугольник}
    Body:array[1..3]of record     {тело}
      Top,Hight,Bis,Med:tPoint;    {вершины!! и основания высот, биссектрис, медиан}
      l:real      {длина стороны}
    end;
    s,p:   {площадь, периметр}
  end;

var
   A,B: tTriangle;

Для задания треугольника необходимы только поля вершин.
После этого все вычисления проводишь в цикле по вершинам и т.п. Вывод графики тоже в цикле..
Успехов!