[Darken]

i - шаг координатной сетки лежащей под фигурой

PHP код:

procedure TForm3.setTri1;  //рисует треугольник
begin
  x3:= Round(StrToFloat(sEdit8.Text)*i+i); //основание
  y3:= Round(StrToFloat(sEdit6.Text)*i+i); //скат А
  z3:= Round(StrToFloat(sEdit9.Text)*i+i); //высота
  z3_1:= Round((StrToFloat(sEdit8.Text)*i+i)/2); //половина основания


  if l=8 then //боковые стороны равны
    begin
      setPenRed;
      Image1.Canvas.MoveTo(i,z3);
      Image1.Canvas.LineTo(x3,z3);
      image1.Canvas.MoveTo(z3_1, i);
      Image1.Canvas.LineTo(z3_1,z3);
    end;
end;

procedure TForm3.sBitBtn23Click(Sender: TObject); //рисуем треугольник
begin
  //есть один скат и основание значит скаты равны - считаем высоту фигуры
  if ((sEdit6.Text<>'0') or (sEdit6.Text<>'')) and ((sEdit7.Text<>'0') or (sEdit7.Text<>''))and
     ((sEdit8.Text<>'0') or (sEdit8.Text<>'')) and ((sEdit9.Text='0') or (sEdit9.Text='')) then
     begin
     sEdit9.Text:= FloatToStrF((sqrt((sqr(StrToFloat(sEdit6.Text)))- (sqr(StrToFloat(sEdit8.Text)/2)))),ffFixed,4,2);
     end;

  setTri1;
end; 


ну не чертит он у меня из середины основания ((( , если основание 6 -он чертит (судя по координатной сетке) из 2,5, а должен из 3.
Посмотрите не замыленным взглядом, в чем ошибка?

[Darken]

вопрос решил так:

PHP код:

z3_1:= (Round((StrToFloat(sEdit8.Text)*i)/2))+i; //половина основания