дана цепочка, нужно ее нарисовать в делфи 7

[xJohnx]

Думаю вот на фото будет всю понятно, просто побыстрому рисовал...http://www.programmersforum.ru/attac...1&d=1284920575
From Stilet: За кросспосты буду наказывать!

[Прик]

Один из вариантов:

var
  W : Integer = 30;  //ширина цепочки
  H : Integer = 50;  //высота вертикальной линии цепочки
  C : Integer = 3;   //количество звеньев

procedure TForm1.FormPaint(Sender: TObject);
var
  I, Offs : Integer;

  procedure _ChainLoop(Y : Integer);
  begin
    with Canvas do begin
      MoveTo(20, Y);
      LineTo(20+W, Y+W);
      LineTo(20+W, Y+W+H);
      MoveTo(20+W, Y);
      LineTo(20, Y+W);
      LineTo(20, Y+W+H);
    end;
  end;

begin
  Offs := 20; //начало цепочки от верхнего края формы
  for I := 1 to C do begin
    _ChainLoop(Offs);
    Inc(Offs, W+H);
  end;
end;

[xJohnx]

procedure TForm1.FormPaint[formpaint- что это за компонент и как приминить?](Sender: TObject);


procedure _ChainLoop[- тоже не понятно](Y : Integer);


Offs := 20; //начало цепочки от верхнего края формы
for I := 1 to C do begin
_ChainLoop(Offs); - что это?
Inc(Offs, W+H);-?

[Rin]

procedure TForm1.FormPaint[formpaint- что это за компонент и как приминить?](Sender: TObject);

--->щёлкни на форму один разок. Далее в объектном инспекторе(такая табличка слева внизу) выбери вкладку Events. Найди там строку OnPaint и напротив этой строки(там где пустая клеточка) левой кнопкой мыши шёлкни два раза А отвечает этот "компонент"(правильней будет процедура) за прорисовку твоей формы.


procedure _ChainLoop[- тоже не понятно](Y : Integer);

---> блин, пройди понятие процедуры и функции. Их структуру, чем отличаются друг от друга, как вызывать.



Offs := 20; //начало цепочки от верхнего края формы
for I := 1 to C do begin
_ChainLoop(Offs); - что это?

---> это процедура, которую "ты" описал раньше. В общем прочти про процедуры и поймёшь, что это.

Inc(Offs, W+H); стандартная процедура , которая увеличивает первый параметр\переменную на величину, указанную во втором параметре\переменной. Если второй параметр не указан: "inc(offs)" - , то увеличивает на 1.

если ты на прогера учиться пошёл , то завязывай х** пинать и учись, а то протрёшь штаны 5 лет, а толку от этого нуль. Если не внемлешь щас, сам жалеть будешь. Я сам проверял))))