Курсовая работа: Работа с текстовыми строками, двумерными массивами, файловыми структурами данных
for i:=1 to length(S1) do
begin
if s1[i]=' ' then
begin
for j:=i+1 to length(s1) do
if s1[i+1]<>' ' then
if s1[j]=' ' then begin
k1:=k1+1;
slova1[k1]:=copy(s1,i+1,j-i-1);
break;
end;
end;
end;
for i:=1 to length(S2) do
begin
if s2[i]=' ' then
begin
for j:=i+1 to length(s2) do
if s2[i+1]<>' ' then
if s2[j]=' ' then begin
k2:=k2+1;
slova2[k2]:=copy(s2,i+1,j-i-1);
break;
end;
end;
end;
end;
Процедура отсортировки слов.
procedure obrslov(a,b:arr;na,nb:integer; var c:arr; var nc:integer);