Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2013, 13:35   #1
mastercheck
Новичок
Джуниор
 
Регистрация: 01.04.2013
Сообщений: 1
Смущение Дана задача (Помогииите)

Дана вот такая задача.
задана прямоугольная клетчатая область n x m .Пользователь выбирает любое количество цветов, но не менее четырёх. Написать программу которая будет закрашивать данную область произвольными из выбранных цветами но таким образом чтобы рядом в соседних сверху, снизу, слева, справа клетками были клетки с отличным цветом.

Даже не знаю с чего начать помогите плиззз
mastercheck вне форума Ответить с цитированием
Старый 01.04.2013, 13:51   #2
Abstraction
Старожил
 
Аватар для Abstraction
 
Регистрация: 25.10.2011
Сообщений: 3,178
По умолчанию

Проблема в части "закрашивать данную область"? Тогда стоит указать язык и используемую графическую библиотеку (большинство языков программирования не содержат в своих стандартах каких-либо функций рисования, эта возможность реализуется посредством дополнительных библиотек).

А "произвольный цвет" можно устраивать, например, так: закрашивать по диагоналям, следя только за тем, чтобы цвет не совпал с цветами клеток "сверху" и "слева".
Abstraction вне форума Ответить с цитированием
Старый 01.04.2013, 14:49   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

"Мысли в слух" на Pascal'e :

Код:
const
        RowSize = 100;
        ColSIZE = 100;

type
      TField = array [0..RowSIZE+1, 0..ColSIZE+1] of Byte; 

var
      field : TField;
      ...

begin
        Randomize;

        ReadLn (n, m);
        ReadLn (ColorCount);
            
        for i := 1 to n do
              for j := 1 to m do begin
                   repeat
                        t := Random(ColorCount) + 1
                   until ColorExict;
                   a[i, j] := t
              end;
        ...
                     
end.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
никак не могу составить программы на паскале... кто нибудь помогииите составить программу program_1 Паскаль, Turbo Pascal, PascalABC.NET 1 04.12.2012 19:52
Delphi7. Задача - Дана сумма вклада, процентная ставка, вычислить процент прибыли и общая сумма через заданный срок NeedPro Помощь студентам 7 19.05.2012 19:35
Задача на матрицу.Пусть дана последовательность... Skyes Помощь студентам 1 14.12.2011 20:48
Дана строка символов. Задача: удалить из строки все цифры. Striker14 Помощь студентам 1 25.02.2009 20:23
Дана задача---> Programmistka6 Общие вопросы Delphi 6 24.05.2008 17:31