Задана строка, состоящая из слов, между которыми может быть любое число пробелов. Словом назовем последовательность символов, не содержащую пробелов. Будем считать, что в слове имеется корень, может быть не более одного окончания, а также произвольное количество приставок и суффиксов. Для выполнения обработки заданы набор корней и набор приставок.
Разработать АЛГОРИТМ, дать его ОПИСАНИЕ (включая ОБЩУЮ СХЕМУ и назначение используемых переменных), привести ПРОГРАММУ определения цепочек однокоренных слов строки для указанных в наборе корней. При выдаче результатов цепочки печатать по признаку уменьшения числа слов в цепочке.
КОНТРОЛЬНЫЙ ПРИМЕР
Исходные данные:
Строка слов:
'паста находка непарный неприходящие варенье приход непримиримый
мир переход мирный ходить перемирие отваренный'
Корни: парк вар ход мир сорт
Приставки: при пере не на от до

Результат:
ход -> находка ходить переход неприходящие приход
мир -> непримиримый мир мирный перемирие
вар -> варенье отваренный

Да какого ты решил что тут кто-то за тебя должен домашние задания делать?

---------------------------

Задача нерешаема без реализации алгоритма учета всей морфологии языка.

Например: слово "отряд", не содержащее приставок, должно быть поделено на приставку "от" и корень"ряд"? нет? допустим нет... типа ты заложил спрева проверку на длинный корень "отряд"... однако берем 2 слова - "отрядный" и "отрядить". Они не однокоренные, между прочим... и таких примеров - масса...

Скорее всего человеку не нужно учитывать морфологию языка, а надо просто отслеживать последовательность букв, следовательно, задача решаема, хотя реальное применение ей я не вижу (в принципе как и большинству лабораторных работ).

Но что-то писать я тоже не собираюсь, т.к. полностью поддерживаю в этом предыдущего автора. Такое ощущение, что задание было сюда выложено с помощью Ctrl-C, Ctrl-V

Цитата

Разработать АЛГОРИТМ, дать его ОПИСАНИЕ (включая ОБЩУЮ СХЕМУ и назначение используемых переменных)

А может ещё пояснительную записку состряпать? В ворде например...

Код

var s:string; s1:string; {желаемое вхождение}; sl:string; {слово}; begin ... while s <> '' do  begin   sl:='';   while s[1] <> ' ' do    begin     sl:=sl + s[1];     delete(s, 1, 1);    end;   if sl <> ''    then     if Pos(s1, sl) <> -1      then       writeln(sl);   if s <> ''    then     Delete(s, 1, 1);  end; end;

Нацарапал....
Функцию Pos можно и самостоятельно написать.... трудов это не составит...