Вот такая последовательность Опции

[Tauka]

Есть два предложения из простых смволов латынского алфавита.
Цель: надо найти найбольшую общую последовательность.

Например:
1. aacdgtserf
2. ascfde
Наибольшая общая последовательность тут будет "acde"

[klem4]

вот что-то типа, щас накатал, не оч рационально, но думаю идея правильная :

uses crt;
var s1,s2,s:string;
    i,j,k,startj:integer;
    flag:boolean;

Begin
   clrscr;
   readln(s1);
   readln(s2);
   k:=0;
   i:=1;
   startj:=1;
   j:=startj;
   while i<=length(s1) do
    begin
       j:=startj;
       flag:=true;
       while (j<=length(s2))and(flag) do
        if s1[i]=s2[j] then
         begin
            flag:=false;
            startj:=j+1;
            inc(k);
            s[k]:=s1[i];
            inc(i);
         end
          else inc(j);
       if flag then
        inc(i);
    end;

   for i:=1 to k do
    write(s[i]);
   readln;
   end.

Сообщение отредактировано: klem4 - 28.04.2005 9:59

[volvo]

не оч рационально

:yes:
А если вместо

k := 0;
...
inc(k);
s[k]:=s1[i];
...

for i:=1 to k do
  write(s[i]);

сделать вот так:

s := '';
...
s := s + s1[i];
...
writeln(s)

Логика программы не меняется, но по-моему это проще ...