[Asira]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

uses graph; procedure st(a,b,c:integer;var w,r:integer); var x,y,z,q,e:integer; begin x:=220; y:=340; r:=x; z:=10; w:=x+b; q:=y; line(x,y,w,q); a:=a-1; e:=c; while a>0 do begin x:=w; y:=q-z; e:=e+c; w:=x+e; q:=y; line(x,y,w,q); a:=a-1; end; end;

[NIch]

Решу твою задачу так и быть)))

[Страдалецъ]

Так устроит?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm43.LadderDraw(StepCount,MinStep,Delta: Integer); var   d,i,x,y: Integer; begin  x := 0; y := 0;  PaintBox1.Canvas.Pen.Color := clRed;  PaintBox1.Canvas.MoveTo(x,y);  for i := 1 to StepCount  do begin     Inc(x,MinStep); PaintBox1.Canvas.LineTo(x,y);     Inc(y,MinStep); PaintBox1.Canvas.LineTo(x,y);     Inc(MinStep,Delta);     end; end;   procedure TForm43.PaintBox1Paint(Sender: TObject); begin  LadderDraw(10,4,3); end;

[Asira]

Спасиб!! но В паскале не прокатит.... над проще....

[Страдалецъ]

Не доглядел, что паскаль вас интересует, но кода это почти не меняет, там вроде операторы такие-же для рисования есть. MoveTo и LineTo