10.11.2007, 20:59
общий
это ответ
Здравствуйте, Silencio!
В приложении пример. на первый взгляд работает.
суть: цикл идет с шагом 4. то есть выводится группа линий (вверх, влево, вниз, вправо). и так N раз.
Изменяйте под себя уже..
Приложение:
Uses Graph;Var grDriver : Integer; grMode : Integer; ErrCode : Integer; x, y, i: integer; const N = 50;Begin grDriver:=Detect; InitGraph(grDriver, grMode, ‘‘); ErrCode:=GraphResult; If ErrCode = grOk Then Begin { ѓа дЁЄ } x := 200; y := 200; moveto(x, y);i := 1;while i < N dobegin y := y - i; lineto(x, y); x := x - i-1; lineto(x, y); y := Y + i + 2; lineto(x, y); x := x + i + 3; lineto(x, y); i := i + 4;end; ReadLn; CloseGraph; End Else WriteLn(‘error:‘, GraphErrorMsg(ErrCode));End.