Строки в паскале

[Exact]

Нужно из введённой строки вычленить те символы, которые в ней не повторяются. Причём в том порядке, в котором они идут в строке

Вот мой вариант, но он не рабочий... ЧТо у меня не так?

Program text;
Var a,i,r,j:integer;
	s,e,b,st:string;
Begin
 Writeln('Vvedite tekst');
 Readln(s);
 a:=length(s);
 r:=0;
 st:='';
 For i:=1 to a do
   Begin
	 b:=s[i];
	 For j:=i to a do if b=S[j] then r:=r+1;
	 If r=0 then st:=st+copy(s,i,1);
	 r:=0;
   end;
 writeln(st);
 readln;
End.

[puporev]

Очень уж ты намудрил. Нужно просто создать еще одну такую стороку и затем посимвольно с конца строки сравнивать символы. Если символ совпадает, а порядковые номера его в обеих строках не совпадают, этот символ удаляем. В строке остаются только символы, которые не повторябтся и в том порядке, как они были написаны.

uses crt;
var a,i,j:integer;
    s,st:string;
begin
clrscr;
write('stroka: ');readln(s);
a:=length(s);
st:=s;
for i:=a downto 1 do
for j:=a downto 1 do
if (s[i]=st[j])and(i<>j)then
  begin
    delete(s,i,1);
  end;
writeln('s: ',s);
readln
end.

[Stilet]

Дарю, я сеня добрый )

   var s:string;a:array[1..255] of integer;i:integer;
begin
s:='123w4567895we61';
for i :=1  to length(s)  do
begin
 a[ord(s[i])]:=a[ord(s[i])]+1;
end;

for i :=1  to 255  do
begin
 if a[i]=1 then write(char(i));
end;
readln;




  { TODO -oUser -cConsole Main : Insert code here }
end.

[Exact]

puporev твоя прога не прошла испытания, слагав уже на слове qwertyqwe
Stilet Привет твоя прога работает, но я запутался в ней, можешь объяснить суть работы и что означает вот эта штучка
a[ord(s[i])]:=a[ord(s[i])]+1;

И объясните если не сложно, почему моя программа не работает?

[Stilet]

Суть работы проста: используется фильтрация методом индексов, т.е. символов всего 255 эт я условно говорю, значит организуем массив 255 клеточек, далее в цикле получим код символа, допустим символ "а"- имеет код 34, значит в 34-ю клеточку массива мы запишем значение на единицу больше, таким образом получим карту твоей строки.
Далее пройдем по циклу и посмотрим если элементик массива по номеру 34 содержит число большее чем единица, значит буква "а" повторялась.

Яснышко?

[Exact]

Вообще понтяно, но хотелось бы разобраться в моей программе, что в ней не правильно? Если работать компилятором (в уме обрабатывать каждую команду) всё должно работать... ПОчему не работает не могу понять...

[Jeni]

......
b:=s[i];
For j:=i to a do if b=S[j] then r:=r+1;
If r=0 then st:=st+copy(s,i,1);
......

В данном случае r никогда не будет равной нулю. Ведь s[i] = S[j] уже на первой итерации (т.к. j=i), значит r хотя-бы раз увеличиться на единицу. Возможно, стоит начинать цикл с i+1.

[Stilet]

ПОчему не работает не могу понять...

Наверное, пардон за флуд, ты просто неверный подход к решению выбрал

[puporev]

Program text;   
Var a,i,r,j:integer;   
    s,{e,b,}st:string;   //переменные b,e не нужны
Begin   
 Writeln('Vvedite tekst');   
 Readln(s);   
 a:=length(s);   
 {r:=0;}    //убрать, рано еще
 st:='';   
 For i:=1 to a do  
   Begin   
     r:=0;  //вот здесь вставить
     {b:=s[i];}   //не нужно
     For j:=1 to a do 
     if s[i]=S[j] then 
        begin
           r:=r+1; 
       end;   
     If r=1 then st:=st+copy(s,i,1); //символ встречается только один раз
  { r:=0;}   //не нужно
   end;   
 writeln(st);   
 readln;   
End.