давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.