Строки

[Mr.Been]

Помогите пожалуйста написать программу:
Заданы два текста. Вывести совпадающие в этих текстах слова.
Заранее спасибо!

[Sazary]

Чем помочь? С нуля написать?

Спрашивайте, что непонятно. Показывайте свои наработки.

[Mr.Been]

Если можно, с нуля.

[Sazary]

Если можно, с нуля.

Это во Фриланс

[__STDC__]

условий маловато.. откуда тексты? из файлов? чем разделены слова оговорено? в общем хз.. если с файлами, не буду делать... лениво..

[__STDC__]

Думаю примерно так...

const
	separators = [' ',',','.',';',':'];

function separate(var str:string):string;
var
	i:integer;
begin
	separate := '';
	i := 1;
	while not(str[i] in separators) do begin
		separate := separate + str[i];
		inc(i);
	end;
	Delete(str,1,i);
end;

var
	str1,str2,tmp:string;
begin
	writeln('Enter str1: ');
	readln(str1);
	writeln('Enter str2: ');
	readln(str2);
	repeat
		tmp := separate(str2);
		if (pos(tmp,str1) <> 0) then writeln(tmp);
	until length(str2) = 0;
	readln;
end.

особо не проверял.. но вроде работает..