Удаление одинаковых символов

Задача

Оставить в строке только один экземпляр каждого встречающегося символа.

Решение

 

Описание переменных: 

s1 – исходная строка;
s2 – конечная строка;
s3 – переменная для очередного символа.

Алгоритм решения задачи: 

  1. Копировать в s3 очередной символ из s1.
  2. Если s3 не содержится в s2, то добавить его туда.

Программа на языке Паскаль: 

 

var
    s1,s2,s3: string;
    i: byte;
begin
    write('String: ');
    readln(s1);
    s2 := '';
    for i:=1 to length(s1) do begin
        s3 := copy(s1,i,1);
        if pos(s3,s2) = 0 then
            s2 := s2 + s3
    end;
    writeln('String: ',s2);
readln
end.

 

Тема

Строки

Уровень

Простые задачи

Теги

Добавить комментарий