Наибольшая общая часть строк. Опции

[Гость]

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


внимательнее с названием темы!

Сообщение отредактировано: Oleg_Z - 23.06.2005 18:34

[VBproffi]

Никаких топиков вида "Помогите!!!!" или "Горю!Сделайте курсовую!!".Эти темы закрываются и удаляются.

(короче все не информативные названия) :nono: ;)

Нодо просомотреть какие значения из второй строки есть в первой и выписать их.

Код

Uses
    CRT;
var
    count    : Byte;
    StrIn,
    StrOut   : String[30];
    FileIn,
    FileOut  : Text;
    ItS, pob : String[30]
begin
    ClrScr;
            Assign(FileIn, 'C:/FileIn.txt');
            Assign(FileOut, 'C:/FileOut.txt');

             Reset(FileIn);
             ReWrite(FileOut);

             ReadLn(FileIn,StrIn);
             Read(FileIn, StrOut);

             For count:= 1 to Length(StrOut) do
                  begin
                       pob:= Copy(StrOut,count,1);
                       If Pos(pob,StrIn) > 0 then
                          ItS:=ItS+pob;
                  end;


             WriteLn(FileOut, ItS);
            Close(FileOut);
            Close(FileIn);
    ReadKey;
end.

Сообщение отредактировано: VBproffi - 23.06.2005 10:52