[Rick]

Здравствуйте. Необходимо сравнить две строки одинаковой длинны и выдать количество символов, которые совпадают не только по значению, но и по позиции в этих строках. например: пароход и проходы - одинаковых символов: 1 - "п"

[Black Raider]

А где ваш код?

[Rick]

Пробовал через преобразование их в массивы, и потом поэлементно сравнивать их, но результат всегда равне 1-му, хотя строки могут быть абсолютно одинаковыми

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

var Total :string;//строка2    ss:string;//строка1  a:array of shortstring;//наш массив  a2:array of shortstring;//наш массив //........................................................................ procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin total:=''; ss:='aaaabbcddb'; edit2.Text :=ss; for i:=low(ansArr) to qCount-1 do begin   total:= total + ansArr[i];//+ ';';  end;  edit1.Text :=total;  Repeat //мы постепенно заполняем массив на каждом шаге цикла по 1 элементу     setlength(a,length(a)+1);//увеличиваем размер массива на 1     if pos(' ',ss)>0 then //если есть пробел то надо взять слово до пробела       begin         a[length(a)-1]:=copy(ss,1, pos(' ',ss));//присвоение последнему элементу массива первого слова         ss:=copy(ss,pos(' ',ss)+1, length(ss));//удаляем из строки первое слово       end     else//в строке осталось только одно слово       begin         a[length(a)-1]:=ss;// присвоим последнее слово         break;//выход из цикла       end;   Until False;   Repeat //мы постепенно заполняем массив на каждом шаге цикла по 1 элементу     setlength(a2,length(a2)+1);//увеличиваем размер массива на 1     if pos(' ',total)>0 then //если есть пробел то надо взять слово до пробела       begin         a2[length(a2)-1]:=copy(total,1, pos(' ',total));//присвоение последнему элементу массива первого слова         total:=copy(total,pos(' ',total)+1, length(total));//удаляем из строки первое слово       end     else//в строке осталось только одно слово       begin         a2[length(a2)-1]:=total;// присвоим последнее слово         break;//выход из цикла       end;   Until False; end;   procedure TForm1.Button1Click(Sender: TObject); var z,i,j:integer; r:string; begin z:=0; for i:=low(a) to high(a) do  begin if a2[i]=a[i]  then z:=z+1; end; edit3.Text :=inttostr(z); end;

[Pilot_Red]

Код:

1 2 3 4 5 6 7 8 9

var s1,s2:string; i:integer; begin s1:='1234'; s2:='3231'; for i:=1 to length(s1) do if s1[i]=s2[i] then //здесь соответственно подсчеты end;

[Rick]

Спасибо Pilot_Red. Решение было на поверхности, а я ушел в дебри

[BROOKS]

dsadsa das das

[TOJluK]

Сообщение от BROOKS

dsadsa das das

Это к чему?