С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/21: Рейтинг темы: голосов - 21, средняя оценка - 4.67
2 / 2 / 3
Регистрация: 16.12.2011
Сообщений: 69

Определить количество прямоугольников на листе

24.01.2012, 17:30. Показов 4231. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На квадратном клетчатом листе бумаги размером NxN нарисовано несколько прямоугольников. Каждый прямоугольник состоит из целых клеток.Различные прямоугольники не накладываются друг на друга и не соприкасаются (клетка, принадлежащая прямоугольнику, содержит число 1, а клетка, не входящая в состав прямоугольника, содержит число 0). Определить количество прямоугольников на листе.

Добавлено через 17 секунд
не знаю как решить
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.01.2012, 17:30
Ответы с готовыми решениями:

Определить, сколько прямоугольников нарисовано на листе
Почему выдаёт ошибку: Main() в G:\прз\lab6(3).pas:строка 11 в lab6(3).Program.Main() program lab6_3; var a : array of...

Двумерный массив: Определить, количество прямоугольников, составленных из единиц
Есть квадрат NxN, заполненный нулями или единицами. Определить, количество прямоугольников, составленных из единиц. Помогите решить ,...

Объединение прямоугольников (количество объединенных прямоугольников минимально)
Добрый день. Прошу помощи в выполнении задачи. Дан список прямоугольников, которые задаются координатами верхней левой вершины и...

1
Платежеспособный зверь
 Аватар для кот Бегемот
8964 / 4387 / 1654
Регистрация: 28.10.2009
Сообщений: 11,645
24.01.2012, 23:56
Лучший ответ Сообщение было отмечено Викуся) как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
a:array[1..100,1..100]of byte;
i,j,k,n,m,f:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
begin
a[i,n+1]:=0;
a[n+1,i]:=0;
end;
for i:=1 to n+1 do
for j:=1 to n+1 do
if a[i,j]=1 then
begin
f:=1;
k:=i;
while a[k,j]=1 do
begin
a[k,j]:=0;
inc(k);
end;
end
else if f=1 then
begin
inc(m);
f:=0;
end;
writeln(m);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.01.2012, 23:56
Помогаю со студенческими работами здесь

Известны длины сторон двух прямоугольников. Вычислить площади прямоугольников и сравнить их. Определить, являются ли прямоугольники квадратами...
Привет , ребята нужна помощь Разместите на форме Элементы управления для решения задачи Известны длины сторон двух прямоугольников....

Как поступить, если при сборе данных их количество превысило количество строк на листе Excel?
Макрос собирает данные со всех листов книги на один, для сводного отчёта. С ростом данных столкнулся с проблемой, что все они не влезают на...

Количество прямоугольников
«Количество прямоугольников» На квадратном листе клетчатой бумаги размера 88 клеток нарисовано несколько прямоугольников, каждый...

Количество прямоугольников
На квадратном листе клетчатой бумаги размера 88 клеток нарисовано несколько прямоугольников, каждый прямоугольник состоит из клеток,...

Количество прямоугольников
Подскажите идею для следующей задачи. Посчитать количество прямоугольников, площадь которых находится в пределах от А до В, а периметр от С...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru