IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача Брудно, Помогите решить
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Женский

Репутация: -  0  +


Прямоугольное поле mна n разбито на mn квадратных клеток. Нектороые клетки покрашены в черный цвет. Известно, что все клетки,покрашенные в черный цвет,могут быть разбиты на несколько неперсекающихся и неимеющих общих вершин прямоугольников. Считая, что цвета клеток клеток даны в виде массива array [1..m] of array [1..n] of boolean; подсчитать количество черных прямоугольников, о которых шла речь. Количество действий порядка m*n

Решение:
Число прямоугольников равно числу их левых верхних углов. Является ли клетка верхним левым углом, можно узнать, упосмотрев на ее цвет. а также цвет верхнего и левого соседей. (Их может не быть, если клетка с краю).

мучаюсь уже долго.

Хелп...
Альтаир.. по старой дружбе_) хелп, великий фотограф)


--------------------
Связался с лучшим, умри как все (с) Хакеры
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


answer := 0;
for i := 1 to m do
for j := 1 to n do
if a[i][j] = black then
if (i = 1) or (a[i - 1][j] = white) then
if (j = 1) or (a[i][j - 1] = white) then
answer := answer + 1;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата
мучаюсь уже долго.
Правда? А привести результаты мучений - никак? Тогда нечего и писать, что мучаешься!
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.12.2020 19:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name