Помогите написать небольшую програмку, Шахматная Доска Опции

[Acer]

Буду очень благодарен, если вы хоть как-то мне поможете с написанием данной программы:

задача:"Шахматная Доска"
Целочисленный массив K размером m x n заполнить нулями и единицами, расположив их в шахматном порядке.
(смысл: при запуске проги в окне должны появиться строчки с чередованием единиц и нулей
10101010
01010101
и т.д.
причем, количество строк и столбцов все время меняется и ограничено десятью).

Заранее всем благодарен!

Сообщение отредактировано: Acer - 18.05.2007 13:27

[Sto]

Идет вывод 1 и 0

for i := 1 to m do begin

    for j := 1 to n do
      write(((i + j + 1) mod 2):2);

Например:
i = 1; j = 1
i + j + 1 = 1 + 1 + 1 = 3
3 mod 2 = 1 так как 3/2 = 1,5 тогда ближайшее число которое делится на 2 это 2, 3 - 2 = 1
Выводится 1

i = 1; j = 2
i + j + 1 = 1 + 2 + 1 = 4
4 mod 2 = 0 так как 4/2 = 2 тогда остачи нет
Выводится 0

i = 1; j = 3
i + j + 1 = 1 + 3 + 1 = 5
5 mod 2 = 1 так как 5/2 = 2,5 тогда ближайшее число которое делится на 2 это 4, 5 - 4 = 1
Выводится 1

и так дальше.....

Сообщение отредактировано: Sto - 22.05.2007 18:49