Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 74

Поиск образца в тексте

15.01.2015, 23:49. Показов 2249. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан текст, состоящий из строчных латинских букв, и шаблон, состоящий из строчных латинских букв и знаков вопроса. Знак вопроса может обозначить любую букву. Например, строки "abaca" и "??ac?" равны, а "aba" и "?c?" — нет.

Ваша задача — вывести все позиции вхождения шаблона в текст.


Входные данные
В первой строке входных данных содержится текст, состоящий только из строчных латинских букв. Во второй строке содержится шаблон, состоящий из строчных латинских букв и знаков вопроса. Длины текста и шаблона не менее 1 и не более 1000 символов.


Выходные данные
Выведите все позиции вхождения шаблона в текст в возрастающем порядке. Числа разделяйте пробелами. Позиции в строке нумеруются с 1.
input abacaba
a?a
output 1 3 5


input pamparamparampampam
pa?
output 1 4 9 14 17


input pamparamparampampam
pam
output 1 14 17
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.01.2015, 23:49
Ответы с готовыми решениями:

Поиск образца в тексте по алгоритму Кнута - Морриса - Пратта
Здравствуйте, уважаемые форумчане! Может и о многом прошу, но времени разбираться самому увы, уже нет... Прошу помочь в решении такой...

Найти в тексте все вхождения данного образца
Буду рад любой помощи вообще непонятна сама организация поиска, помогите пожалуйста

Найти в тексте все вхождения данного образца
Здравствуйте! Очень нужна помощь. Задание: найти в тексте все вхождения данного образца. То есть это просто поиск подстроки в строке?...

2
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
16.01.2015, 01:20
Лучший ответ Сообщение было отмечено abaranci как решение

Решение

пробуй:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var   s : string;
   mask : string;
  i,j : integer;
begin
  s := 'pamparamparampampam';
  mask := 'pa?';
  
  for i:=1 to Length(s)-Length(mask)+1 do
    if (mask[1]='?') or (mask[1]=s[i]) then begin
      j:=1;
      while ( j<=Length(mask)) and ((mask[j]='?') or (mask[j]=s[i+j-1])) do Inc(j);
      if j>Length(mask) then {БИНГО! Совпало!} Write(i,' ');
    end;
  WriteLn;
end.
1
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 74
16.01.2015, 07:54  [ТС]
спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.01.2015, 07:54
Помогаю со студенческими работами здесь

Произвести поиск вхождений вектора-образца в каждый из столбцов матрицы
Необходимо произвести поиск вхождений вектора-образца в каждый из столбцов двумерной матрицы. Результатом является массив со списком...

Поиск вхождения вектора-образца в каждую из строк двумерной матрицы
Поиск вхождения вектора-образца в каждую из строк двумерной матрицы. Результатом должен быть массив размеров N*2 со списком индексов,...

Поиск в тексте DOC-файлов последовательностей символов по шаблону и поиск найденных в TXT-файле (с логом)
Уважаемые программисты! Очень нужен bat-файл или скрипт, который решает такую задачу: 1. Осуществляет поиск в тексте массива...

Поиск в тексте
Привет всем. Ребят подскажите пожалуйста. У меня есть текстовый файл test.txt . с номерами телефонов. мне нужно открыть это файл и...

Поиск в тексте.
надо отделить числы вместе знаками... написал эту, но не помогло procedure TForm1.Button1Click(Sender: TObject); var m,s:string; ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru