Удаление одинаковых подстрок в строке

  • Автор темы mozhunt
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

mozhunt

#1
Народ, есть строка 11043 11029 11029 11036

надо из нее сделать строку 11043 11029 11036

Как ?
 

Vadik(R)

Well-known member
12.12.2007
469
0
#2
Код:
program legko;
uses
sysutils;
var
a: array [1..100] of string;
st : string;
i,n : integer;
fl : boolean;
begin
n:=0;
readln(st);
st:=st+' ';
while pos(' ',st)>0 do
begin
fl:=true;
for i:=1 to n do
if copy(st,1, pos(' ',st)-1)=A[i] then
begin
fl:=false;
break
end;
if fl then
begin
n:=n+1;
a[n]:=copy(st,1,pos(' ',st)-1)
end;
delete(st,1,pos(' ',st))
end;
for i:=1 to n-1 do
st:=st+a[i]+' ';
st:=st+a[n];
writeln(st);
readln
end.
Писал на ходу, так что могут быть ошибки, но надеюсь их не будет.
 
Статус
Закрыто для дальнейших ответов.