Страница 1 из 1

Паскаль, графика, прямоугольники

Добавлено: 27 апр 2009, 14:11
Worlok
Здравствуйте)))есть вот такая задача:
Построить на экране квадрат, состоящий из 225 маленьких квадратов(15х15). Заполнить каждый квадрат чистым цветом(от1 до 15). Цвет в каждой следуещей строке сдвинут на 1 квадрат относительно предыдущей( 1-я строка: 1,2,3,...15; 2-я строка: 15,1,2,...14; 3-я строка: 14,15,1,...13 и т.д.)
напишите,пожалуйста, хотя бы алгоритм как заполнять эти квадраты...первую строку легко можно с помощью оператора For to do заполнить...а вот как следующие?если влоб делать, то оч громозко выходит...помогите)

Re: Паскаль, графика, прямоугольники

Добавлено: 06 май 2009, 20:26
dr.Jekill
Выкладывай наработки - поможем!

Re: Паскаль, графика, прямоугольники

Добавлено: 11 май 2009, 23:11
Хыиуду
for i:=1 to 15 do
for j:=1 to 15 do
square[i,j].color=(i-j+15) mod 15+1;