Определить количество таких ситуаций, если имеется N1 ящиков с отходами А и N2 ящиков с отходами В

@alnikexey · Регистрация: 13.01.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужно решить задачу, в паскале не сильно разбираюсь.

На заводе имеется два типа отходов А и В. Первый из них радиоактивен. Отходы пакуются в ящики, которые складируются друг на друга (штабелем). При этом известно, что если в штабеле находится подряд 3 или более ящиков с отходами А, то возникает взрывоопасная ситуация. Определить кол-во таких ситуаций, если имеется N1 ящиков с отходами А и N2 ящиков с отходами В и все эти ящики сложены в один штабель.

Суть задачи, в принципе, понятна, надо объявить массив с нулями и единицами, и подсчитать кол-во ситуаций, когда встречаются подряд 3 или более единицы.

Писал задачу на с++( и там куча недоработок), но на паскале я плох, заранее спасибо.

@Puporev · 13.01.2018, 16:27

Можно решить так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a:array[1..100] of byte;
    n,i:byte;
begin
randomize;
repeat
write('Введите количество ящиков от 3 до 100 n=');
readln(n);
until n in [3..100];
writeln('Последовательность ящиков');
for i:=1 to n do
 begin
  a[i]:=random(2);
  write(a[i]:2);
 end;
writeln;
i:=1;
while (i<n-1)and(a[i]*a[i+1]*a[i+2]=0) do inc(i);
if i>n-2 then write('Нет взрывоопасной ситуации')
else  write('Есть взрывоопасная ситуация')
end.

@alnikexey · 14.01.2018, 14:02 **[ТС]**

Сообщение от Puporev

Можно решить так.

Да, решение хорошее, а можно каким-то образом сделать так, чтобы программа подсчитывала количество ситуаций, когда 3 или более единицы встречаются?

@Puporev · 14.01.2018, 15:09

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
33
34
var a:array[1..100] of byte;
    n,i,j,k,p:byte;
begin
randomize;
repeat
write('Введите количество ящиков от 3 до 100 n=');
readln(n);
until n in [3..100];
writeln('Последовательность ящиков');
for i:=1 to n do
 begin
  a[i]:=random(2);
  write(a[i]:2);
 end;
writeln;
k:=0;
i:=1;
while i<=n-2 do
if a[i]=1 then
 begin
  p:=0;
  j:=i;
  while (j<=n)and(a[j]=1) do
   begin
    inc(p);
    inc(j);
   end;
  if p>2 then inc(k);
  inc(i,p);
 end
else inc(i);
if k=0 then write('Нет взрывоопасной ситуации')
else  write('Есть взрывоопасная ситуация их количество=',k)
end.

@alnikexey · 15.01.2018, 14:30 **[ТС]**

Puporev, Спасибо, очень благодарен!

@кот Бегемот · 15.01.2018, 17:46

К сожалению, господа Вы плохо читали условие, а потому решали совсем другую задачу. Вам русским по белому написано: есть N1 ящиков с отходами типа А и N2 ящиков с отходами типа В. То есть никакого рандома в помине быть не может. Надо посчитать, сколько существует перестановок, в которых встречаются три подряд буквы А (или В, смотря что считать вредными).

Это известная олимпиадная задача, я решал её лет 20 назад, с тех пор она кочует по олимпиадным сайтам

@Puporev · 15.01.2018, 18:11

Вроде днем писал и трезвый...
Сбило с панталыку смелое утверждение автора темы

Сообщение от alnikexey

Суть задачи, в принципе, понятна, надо объявить массив с нулями и единицами, и подсчитать кол-во ситуаций, когда встречаются подряд 3 или более единицы.

@alnikexey · 18.01.2018, 12:32 **[ТС]**

Сообщение от кот Бегемот

К сожалению, господа Вы плохо читали условие, а потому решали совсем другую задачу. Вам русским по белому написано: есть N1 ящиков с отходами типа А и N2 ящиков с отходами типа В. То есть никакого рандома в помине быть не может. Надо посчитать, сколько существует перестановок, в которых встречаются три подряд буквы А (или В, смотря что считать вредными).

Подскажите, пожалуйста, как подсчитать это количество перестановок?

@кот Бегемот · 18.01.2018, 13:32

Сообщение от alnikexey

Подскажите, пожалуйста, как подсчитать это количество перестановок?

Это стандартная задача на динамическое программирование. Если Вы не знаете, что это такое, то Вам не следует браться за олимпиадные задачи. Почитайте литературу или лекции в интернете на эту тему (там, кстати, есть разбор и этой задачи)

@alnikexey · 20.01.2018, 22:13 **[ТС]**

кот Бегемот, решал олимпиадных задач очень мало.

Сообщение от кот Бегемот

(там, кстати, есть разбор и этой задачи)

Можете посоветовать конкретный сайт? Буду благодарен.

@кот Бегемот · 20.01.2018, 23:29

Я вам советую не браться за олимпиадные задачи если вы толком не научились программировать. Сначала попрактикуйтесь на простых задачах иначе у вас не получится вообще ничего

@alnikexey · 21.01.2018, 13:20 **[ТС]**

кот Бегемот, мне просто нужно решить именно эту задачу, если вы не можете дать ссылку или помочь чем-нибудь, тогда не отвечайте, пожалуйста в этой теме. Лишние разговоры только мешают. Спасибо за понимание.

@кот Бегемот · 21.01.2018, 16:50

Хамить старшим нехорошо. Никто же не виноват в вашей тупости и лени, если у вас не хватает мозгов набрать в гугле три слова:
задача взрывоопасность решение

@alnikexey · 21.01.2018, 17:36 **[ТС]**

кот Бегемот, Я вам никак не хамил и не оскорблял. Не надо придумывать. Тот кто хотел помочь, помог и никаких упреков с его стороны не последовало.

@кот Бегемот · 21.01.2018, 19:17

Читайте внимательнее кто и чем вам помог. И идите с Богом. Никогда и ни за что не стану помогать неблагодарным свиньям.

@alnikexey · 21.01.2018, 21:13 **[ТС]**

кот Бегемот, будь по вашему, и кто еще из нас переходит на оскорбления...

Всем спасибо кто помог, тему можно закрыть.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@alnikexey 0 / 0 / 0 Регистрация: 13.01.2018 Сообщений: 13

	Определить количество таких ситуаций, если имеется N1 ящиков с отходами А и N2 ящиков с отходами В 13.01.2018, 16:05. Показов 1160. Ответов 15 Метки нет (Все метки) Здравствуйте, нужно решить задачу, в паскале не сильно разбираюсь. На заводе имеется два типа отходов А и В. Первый из них радиоактивен. Отходы пакуются в ящики, которые складируются друг на друга (штабелем). При этом известно, что если в штабеле находится подряд 3 или более ящиков с отходами А, то возникает взрывоопасная ситуация. Определить кол-во таких ситуаций, если имеется N1 ящиков с отходами А и N2 ящиков с отходами В и все эти ящики сложены в один штабель. Суть задачи, в принципе, понятна, надо объявить массив с нулями и единицами, и подсчитать кол-во ситуаций, когда встречаются подряд 3 или более единицы. Писал задачу на с++( и там куча недоработок), но на паскале я плох, заранее спасибо. 0

@alnikexey 0 / 0 / 0 Регистрация: 13.01.2018 Сообщений: 13
	15.01.2018, 14:30 [ТС]
	Puporev, Спасибо, очень благодарен! 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	15.01.2018, 17:46
	К сожалению, господа Вы плохо читали условие, а потому решали совсем другую задачу. Вам русским по белому написано: есть N1 ящиков с отходами типа А и N2 ящиков с отходами типа В. То есть никакого рандома в помине быть не может. Надо посчитать, сколько существует перестановок, в которых встречаются три подряд буквы А (или В, смотря что считать вредными). Это известная олимпиадная задача, я решал её лет 20 назад, с тех пор она кочует по олимпиадным сайтам 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	20.01.2018, 23:29
	Я вам советую не браться за олимпиадные задачи если вы толком не научились программировать. Сначала попрактикуйтесь на простых задачах иначе у вас не получится вообще ничего 0

@alnikexey 0 / 0 / 0 Регистрация: 13.01.2018 Сообщений: 13
	21.01.2018, 13:20 [ТС]
	кот Бегемот, мне просто нужно решить именно эту задачу, если вы не можете дать ссылку или помочь чем-нибудь, тогда не отвечайте, пожалуйста в этой теме. Лишние разговоры только мешают. Спасибо за понимание. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	21.01.2018, 16:50
	Хамить старшим нехорошо. Никто же не виноват в вашей тупости и лени, если у вас не хватает мозгов набрать в гугле три слова: задача взрывоопасность решение 0

@alnikexey 0 / 0 / 0 Регистрация: 13.01.2018 Сообщений: 13
	21.01.2018, 17:36 [ТС]
	кот Бегемот, Я вам никак не хамил и не оскорблял. Не надо придумывать. Тот кто хотел помочь, помог и никаких упреков с его стороны не последовало. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	21.01.2018, 19:17
	Читайте внимательнее кто и чем вам помог. И идите с Богом. Никогда и ни за что не стану помогать неблагодарным свиньям. 0

@alnikexey 0 / 0 / 0 Регистрация: 13.01.2018 Сообщений: 13
	21.01.2018, 21:13 [ТС]
	кот Бегемот, будь по вашему, и кто еще из нас переходит на оскорбления... Всем спасибо кто помог, тему можно закрыть. 0