Нарисовать окружность из квадратов Опции

[DaNTeS]

Здраствуйте!
Нужно нарисовать окружность из 36 квадратов с помощью While(именно его), как это сделать в голове
не укладывается , максимум что получается эт ромб поможИте чем можИте

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

М

Я поправил, в следующий раз тему закрою, читай правила

Сообщение отредактировано: klem4 - 6.01.2007 16:21

[volvo]

Как ромб-то у тебя вышел?

...
  i := 1;
  while i <= 36 do begin
    angle := (i - 1) * 10;
    X := getmaxx div 2 + trunc(R * cos(angle * Pi / 180));
    Y := getmaxy div 2 + trunc(R * sin(angle * Pi / 180));

    rectangle(X - size, Y - size, X + size, Y + size);
    inc(i);
  end;
...

R - радиус окружности
size - сторона квадрата...

klem4 - работать с углами в РАДИАНАХ... Где написать это, чтобы было видно?