Здраствуйте!
Нужно нарисовать окружность из 36 квадратов с помощью While(именно его), как это сделать в голове
не укладывается , максимум что получается эт ромб поможИте чем можИте
! | 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... |
М | Я поправил, в следующий раз тему закрою, читай правила |
Нужно нарисосвать именно окружность из квадратов, или окружность из квадратов, заполненную квадратами ?
Именно окружность из квадратов
то есть на окружности должны оказываться центры квадратов. зная координаты центра квадрата (точка пересечения диагоналей) сможешь найти координаты его верхнего левого и правого нижнего углов?
i := 0;
while (i <= 350) do begin
x := Round(100 * sin(i) + cx); { эти точи - точки, лежащие на окружности с радиусом 100 и центром в точке cx, cy}
y := Round(100 * cos(i) + cy);
// отрисовка квадратов тут, используя x,y
inc(i, 10);
end;
Как ромб-то у тебя вышел?
...
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;
...
Ой да, так лажа получается, мой косяк, забыл ...
Пасибо!!..пойду тестить -)