Консультация № 150357
12.11.2008, 20:28
0.00 руб.
0 3 1
Используя один оператор цикла нарисовать "спираль Архимеда" : один шах вверх, два шага влево, три вниз, четыри шага вправо, пять вверх и т.д.

Сбасибо)

Обсуждение

Неизвестный
12.11.2008, 20:44
общий
В каком смысле нарисовать? Графически или как-нибудь символами?
давно
Старший Модератор
31795
6196
12.11.2008, 20:54
общий
это ответ
Здравствуйте, Шпак Олександр Олександрович!

Программа в приложении.
Для наглядности советую изменить приращение координат, к примеру (z*2).
Удачи!

Приложение:
uses Graph;
const
n=100;
var
x,y,z:integer;
begin
{переходим в графический режим}
x:=detect;
initGraph(x,y,'');
{центр экрана}
x:=GetMaxX div 2;
y:=GetMaxY div 2;
{передвигаем указатель текущей позиции}
MoveTo(x,y);
{в одном цикле все рисуем}
for z:=1 to n do
begin
case z mod 4 of
0:dec(y,z);
1:inc(x,z);
2:inc(y,z);
3:dec(x,z);
end;
LineTo(x,y);
end;
{все}
readln;
CloseGraph;
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
14.11.2008, 18:26
общий
графически
Форма ответа