
Вопрос задан 01.08.2023 в 13:20.
Предмет Информатика.
Спрашивает Туркменбаева Акнур.
Даны два целочисленных массива А и B размерностью N и M соответственно. Определить, является ли
один из них подмассивом другого. Если да, то какой и начиная с какой позиции числа совпадают.

Ответы на вопрос

Отвечает Вишнёвский Глеб.
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
function SubArray(subarr,arr:array of integer):integer;
begin
var ns:=subarr.Length;
var p1:=arr.Length-ns; // поиск на [0..p1]
var ii:=arr[:p1+1].IndexesOf(t->t=subarr[0]);
Result:=-1;
foreach var i in ii do
if arr[i:i+ns].Zip(subarr,(a,b)->a=b).All(t->t) then begin
Result:=i;
exit
end
end;
begin
var a:=ReadArrInteger('Введите элементы:',ReadInteger('n='));
var b:=ReadArrInteger('Введите элементы:',ReadInteger('n='));
var p:integer;
if a.Length<b.Length then begin
p:=SubArray(a,b);
if p>-1 then Writeln('Первый массив является подмассивом с позиции ',p+1)
else Writeln('Подмассив не обнаружен')
end
else begin
p:=SubArray(b,a);
if p>-1 then Writeln('Второй массив является подмассивом с позиции ',p+1)
else Writeln('Подмассив не обнаружен')
end
end.
Примеры
n= 4
Введите элементы: 1 2 3 4
n= 11
Введите элементы: 0 1 2 3 1 4 1 2 3 4 5
Первый массив является подмассивом с позиции 7
n= 4
Введите элементы: 1 2 3 5
n= 11
Введите элементы: 0 1 2 3 1 4 1 2 3 4 5
Подмассив не обнаружен
Внимание! Если программа не работает, обновите версию!
function SubArray(subarr,arr:array of integer):integer;
begin
var ns:=subarr.Length;
var p1:=arr.Length-ns; // поиск на [0..p1]
var ii:=arr[:p1+1].IndexesOf(t->t=subarr[0]);
Result:=-1;
foreach var i in ii do
if arr[i:i+ns].Zip(subarr,(a,b)->a=b).All(t->t) then begin
Result:=i;
exit
end
end;
begin
var a:=ReadArrInteger('Введите элементы:',ReadInteger('n='));
var b:=ReadArrInteger('Введите элементы:',ReadInteger('n='));
var p:integer;
if a.Length<b.Length then begin
p:=SubArray(a,b);
if p>-1 then Writeln('Первый массив является подмассивом с позиции ',p+1)
else Writeln('Подмассив не обнаружен')
end
else begin
p:=SubArray(b,a);
if p>-1 then Writeln('Второй массив является подмассивом с позиции ',p+1)
else Writeln('Подмассив не обнаружен')
end
end.
Примеры
n= 4
Введите элементы: 1 2 3 4
n= 11
Введите элементы: 0 1 2 3 1 4 1 2 3 4 5
Первый массив является подмассивом с позиции 7
n= 4
Введите элементы: 1 2 3 5
n= 11
Введите элементы: 0 1 2 3 1 4 1 2 3 4 5
Подмассив не обнаружен



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для определения, является ли один массив подмассивом другого, и нахождения начальной позиции совпадения чисел, можно использовать следующий алгоритм:
- Проходим по элементам массива A и для каждого элемента сравниваем его со всеми элементами массива B.
- Если найдется элемент, который совпадает с элементом из массива B, значит, массив B является подмассивом массива A.
- Запоминаем начальную позицию совпадения.
- Повторяем ту же самую проверку для массива B, чтобы определить, является ли массив A подмассивом массива B, и снова запоминаем начальную позицию.
Пример кода на языке Python:
pythondef find_subarray(arr1, arr2):
n = len(arr1)
m = len(arr2)
# Проверка, является ли массив arr2 подмассивом arr1
for i in range(n - m + 1):
if arr1[i:i + m] == arr2:
return "arr2 является подмассивом arr1, начиная с позиции:", i
# Проверка, является ли массив arr1 подмассивом arr2
for i in range(m - n + 1):
if arr2[i:i + n] == arr1:
return "arr1 является подмассивом arr2, начиная с позиции:", i
return "Ни один массив не является подмассивом другого."
# Пример использования
arr1 = [1, 2, 3, 4, 5, 6]
arr2 = [3, 4, 5]
result = find_subarray(arr1, arr2)
print(result)
Обратите внимание, что этот алгоритм будет иметь линейное время выполнения O(N*M), где N - размер массива А, а M - размер массива B. Если вы ожидаете работать с очень большими массивами, возможно, потребуется более оптимизированный алгоритм.


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 566

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

Информатика 23
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili