Вывести буквы строки, которые встречаются 1 раз

@code-n'-help · Регистрация: 08.11.2013

Подскажите идею по строкам. Дан текст надо найти те буквы которые в данном тексте встречаются 1 раз, при чом вывести в том порядке в котором они встречаются.

@CodeR · 23.03.2014, 07:29

Pascal

Var S:string;
    i,j,k:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=1 to Length(s) do
    Begin
      k:=0;
      For j:=1 to Length(s) do
       if s[i]=s[j] then inc(k);
      if k=1 then write(s[i]:2);
    End;
End.

Простой перебор

@code-n'-help · 24.03.2014, 00:03 **[ТС]**

Я то так и думал но вот только не будет ли это очень долго если текст ну например 1000 символом и сложность будет 1000*1000 или 10000*10000??? Подскажите пожалуйста или просто перебором?

@CodeR · 24.03.2014, 14:01

Сообщение от code-n'-help

Я то так и думал но вот только не будет ли это очень долго если текст ну например 1000 символом и сложность будет 1000*1000 или 10000*10000??? Подскажите пожалуйста или просто перебором?

тогда можно так

Pascal

Var S:string;
    i,j,k:byte;
    ch:char;
Begin
    write('Введите строку: ');readln(s);
    i:=1;
    While i<=Length(s) do
    Begin
      k:=0;
      For j:=i+1 to Length(s) do
       if s[i]=s[j] then inc(k);
      if k=0 then write(s[i]:2);
      ch:=s[i];
      While Pos(ch,s)>0 do Delete(s,Pos(ch,s),1);
    End;
End.

Проверял на Pascal Abc.Net

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
		1
	Вывести буквы строки, которые встречаются 1 раз 22.03.2014, 19:23. Показов 4298. Ответов 3 Метки нет (Все метки) Подскажите идею по строкам. Дан текст надо найти те буквы которые в данном тексте встречаются 1 раз, при чом вывести в том порядке в котором они встречаются. 0

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	24.03.2014, 00:03 [ТС]	3
	Я то так и думал но вот только не будет ли это очень долго если текст ну например 1000 символом и сложность будет 10001000 или 1000010000??? Подскажите пожалуйста или просто перебором? 0

Опции темы