Определить слова первого предложения, которые встречаются во втором, Нужна Ваша помощь Опции

[artem66rus]

Даны два предложения. Определить слова первого предложения, которые встречаются во втором, причем неважно, на каком регистре набраны эти слова (т.е. одинаковыми считаются слова ГОД и год).

Помогите кто чем может! Заранее спасибо!

[Lapp]

1. Привести обе строки к верхнему регистру.
2. Разбить на слова.
3. Перебором найти общие элементы разбиений. Просто я не знаю, как правильно находить пересечение множеств, поэтому предлагаю перебрать. Если бы я делал для себя, я бы с хешами замутил чего.

Можно схитрить. Разбить на слова одно, потом использовать фукцию Pos для поиска их во втором )). Хотя это только усложнит дело)). Полагаю, тут речь пока не об эффективности, а о принципиальной возможности.

Ну введите первое предложение, введите второе предложение. ну а вто дальше я встал... Я считаю сравниваются 2 строки, вот тока как это сделать не соображу

Ну покажи хотя бы, что есть..
И ты забыл ответить про разделители.

[artem66rus]

Можно схитрить. Разбить на слова одно, потом использовать фукцию Pos для поиска их во втором )). Хотя это только усложнит дело)). Полагаю, тут речь пока не об эффективности, а о принципиальной возможности.

Ну покажи хотя бы, что есть..
И ты забыл ответить про разделители.

program predlog;
Uses Crt;
var
  stroka : string;
  
begin
  ClrScr;
  WriteLn('Введите 2 предложения разделих их точкой ');
  TextColor(Cyan);
  ReadLn(stroka);
  stroka:=stroka + '.';

Может точкой разделить? или как лучше я даж не знаю

[Lapp]

Может точкой разделить? или как лучше я даж не знаю

Зачем точкой? Просто сделай два разных ввода

  write('введите первое предложение: ');
  readln(s1);
  write('введите второе предложение: ');
  readln(s2);