[lesya_ya]

помогите реализовать плиз:

в коде где-то ошибка, а вот где понять не могу:

Код:

procedure TForm1.ToBuild(x1,y,x2:integer);
var ax1,bx1,ax2,bx2:integer;
begin
  image1.Canvas.MoveTo(x1,y);
  image1.Canvas.LineTo(x2,y);
  ax1:=x1;
  bx1:=x1+round((x2-x1)/3);
  ax2:=x2-round((x2-x1)/3);
  bx2:=x2;
if round((x2-x1)/3)>=1 then exit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ToBuild(5,20,605);
end;
end.

Админ: Пользуемся тегами для оформления кода!

[Pilot_Red]

что-то не наблюдаю рекурсивный вызов функции........

[lesya_ya]

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

что-то не наблюдаю рекурсивный вызов функции........

это???

Код:

if round((x2-x1)/3)>=1 then
  begin
   ToBuild(ax1,y+50,bx1);
   ToBuild(ax2,y+50,bx2);
  end;

можно как-нибудь заменить???

[Pilot_Red]

типа, того...
В смысле заменить???

[lesya_ya]

по иному это же прописать нужно...так не принимает препод...

[Pilot_Red]

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

по иному это же прописать нужно...так не принимает препод...

как понять по иному, т.е. не используя рекурсивный мЭтод???