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

Найти однокоренные слова в заданном тексте

05.05.2017, 21:43. Показов 2538. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задание: данном тексте выделить все однокоренные слова. Заданный корень вводится с клавиатуры
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.05.2017, 21:43
Ответы с готовыми решениями:

Программа должна в заданном тексте найти каждое слово и вывести все слова в столбец (слова разделяются разделителями)
Ваша программа должна в заданном тексте найти каждое слово и вывести все слова в столбец (слова разделяются разделителями).

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

В заданном тексте найти и напечатать все слова, которые начинаются с буквосочетания НЕ
в заданном тексте найти и напечатать все слова, которые начинаются с буквосочетание 'НЕ' каждое слово должно быть выведено на екран

3
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
07.05.2017, 08:13
Annnechka, поиск по запросу "однокоренные слова" выводит на один из паскалевских форумов. Довольно интересная дискуссия.
Почитайте.
И цитата оттуда:
если бы речь шла о машинной обработке текста на основе правил РЯ, то такая задача потянула бы на кандидатскую...
0
 Аватар для Qwetyui
30 / 31 / 20
Регистрация: 30.12.2015
Сообщений: 340
07.05.2017, 08:25
ZX Spectrum-128, очевидно тут нужно просто pos-ами XD.
Annnechka,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function find(text: string): integer;
var
  rt: string;
  res: integer;
begin
  readln(rt);
  res := 0;
  while pos(rt, text) <> 0 do
  begin
    inc(res);
    text := copy(text, pos(rt, text) + length(rt), length(text));
  end;
  find := res
end;
1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
07.05.2017, 09:36
Очки
Корень оч
Однокоренные слова
http://stemmings.ru/o-letter/ocki-92820
Что делать с "око"?

Ласточка? листочек?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
07.05.2017, 09:36
Помогаю со студенческими работами здесь

В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое слово
Здравствуйте. Вот у меня такое задание на лабораторную работу по pascal abc: В заданном тексте найти слова, которые заканчиваются на ту же...

Найти слова в заданном тексте, состоящие из цифр и сумму чисел, которые образуют эти слова
Помогите разобраться пожалуйста: 1. Дан текст. Найти слова, состоящие из цифр и сумму чисел, которые образуют эти слова. 2....

В заданном тексте найти слова, в которые входит заданная буква, при этом не являющаяся первой буквой слова.
Всем привет! Есть такое задание: дан исходный текст на русском языке. Длина текста - не более NL символов, длина строки - не более NS...

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

В заданном тексте найти слова, содержащие цифры
в заданном тексте найти слова,содержащие цифры.Сформировать из них новую строку


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru