[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Seqular, Pavel

Форум » Обсуждение задач » Новые задачи » Матрица (Заполнить матрицу заданного размера)

Матрица

resister Дата: Вторник, 09.12.2008, 01:43 | Сообщение # 1 Старый знакомый Группа: Пользователи Сообщений: 25 Репутация: 0 Замечания: 0% Статус: Offline Заполнить матрицу заданного размера M(k,l) числами 1, 2, 3, 4 так, чтобы по горизонтали вертикали и диагонали не было одинаковых рядом стоящих чисел. :shubizsetisforuma:

Seqular Дата: Среда, 10.12.2008, 06:45 | Сообщение # 2 Хранитель Группа: Администраторы Сообщений: 859 Репутация: 35 Статус: Offline непонятно же.... Напиши пример матрицы с правильным и неправильным расположением цифр Поддерживаю также проект сообщество молодых сисадминов

resister Дата: Среда, 10.12.2008, 21:43 | Сообщение # 3 Старый знакомый Группа: Пользователи Сообщений: 25 Репутация: 0 Замечания: 0% Статус: Offline Правильная 1 2 3 4 3 4 1 2 1 2 3 4 Неправильная 1 1 2 3 3 2 1 4 3 1 2 4 :shubizsetisforuma:

Alexander Дата: Суббота, 13.12.2008, 20:19 | Сообщение # 4 Всевышний Группа: Модераторы Сообщений: 475 Репутация: 16 Замечания: 0% Статус: Offline Можно написать функцию: Code function GetElement(i,j:byte); begin     if Odd(i) then        GetElement:=j mod 4     else        GetElement:=(j+2) mod 4; end; Здесь i- номер строки, а j столбца. Теперь просто в цикле заполнить матрицу: Code for i:=1 to k do     for j:=1 to l do        A[i][j]:=GetElement(i,j); Скажем дружно- нафиг нужно! Сообщение отредактировал Alexander - Суббота, 13.12.2008, 20:20