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

[Гость]

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


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

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

[klem4]

помоему это решается так :

uses
    crt;
var
    s1,s2:string;

function GetMaxStr(var ss1,ss2:string):string;
var
    MaxS,Chek:string;
    i,right,left:integer;

begin

   MaxS:='';

   // ss1 - меньшая

   i:=1;

   repeat

      left:=i;

      right:=length(ss1);

      repeat


         Chek:=copy(ss1,left,right-left+1);


         if (pos(Chek,ss2)>0)and(Length(Chek)>Length(MaxS)) then
          MaxS:=Chek;

         dec(right);


      until(right-left<length(MaxS));

      inc(i);

   until (i>length(ss1));


   GetMaxStr:=MaxS;

End;




Begin

   clrscr;

   write('s1 = '); readln(s1);
   write('s2 = '); readln(s2);

   writeln;

   write('Результат : ');

   if length(s1)<length(s2) then
    writeln(GetMaxStr(s1,s2))
   else writeln(GetMaxStr(s2,s1));

   readln;

End.

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

Сообщение отредактировано: klem4 - 28.06.2005 16:25