Отбор одиночных символов из строки

В этот раз мы снова с вами поработаем над обработкой строкового типа данных на Паскале. Задача достаточно интересная, и она может послужить основным блоком в какой-нибудь другой вашей программы.

Условие задачи

Выбрать из заданной строки все одиночные символы и вывести их на экран.

Пояснение к задаче

Одиночным символом считается символ в строке, который встречается в ней только один раз. Таких символов может быть несколько и нам нужно вывести их все на экран.

Решение задачи на Паскале

У нас будет два цикла. Первый цикл будет проходить все символы в строке. Второй будет искать похожий символ среди других символов. Переменная с нужна для того, чтобы выводить на экран по условию одиночные символы.

Program catch_single_char;

Var

stroka:string;

c:byte;

Begin

stroka:=sdfkjsjfjfmvlkflerklgkermsdcvmsfgnrgmfvjxfbnL 88l bncvmnbxvkldbfj xmvmvb/dLOFlf f;

  c:=0;

  for var i:=1 to length(stroka) do

      begin

          c:=0;

          for var j:=1 to length(stroka) do

            if (stroka[i]=stroka[j]) and (i<>j) then inc(c);

          if (c=0) then write(stroka[i]);

      end;

  readln

End.

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