Консультация № 108849
10.11.2007, 19:48
0.00 руб.
0 1 1
Уважаемые эксперты, помогите, пожалуйста, в написании следующей програмы:

Используя один оператор цикла нарисовать "спираль Архимеда": один шаг вверх, два влево, три вниз, четыре шага вправо, пять вверх и т.д.

Обсуждение

Неизвестный
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.
Форма ответа