Задача: вывести строку без повторяющихся символов
а вот и сама прога
Прикрепленные файлы
PR5_3.PAS ( 292 байт )
Кол-во скачиваний: 237
Ну и попробуй там ввести aaaaaarteeemmm и радуйся результату..
(Farru - ты автор темы?)
Добавлено через 5 мин.
Когда-то решал так, но это не очень красивый способ,не знаю пойдет тебе...
var
s: string;
b: byte;
i,count: integer;
begin
s := 'aaaaaaarteeemmmm';
for b := 1 to 255 do begin
for i:= 1 to length(s) do
if s[i] = chr(b) then
inc(count);
for i:= 1 to count - 1 do begin
if (count>=2) then
delete(s,pos(chr(b),s),1);
end;
count := 0;
end;
writeln(s);
readln
end.
Тогда прошу прощения..не понял сразу..
я имел ввиду что твой способ не работает..
а насчет радости результату...что-то не получается порадоваться..
самое интеренсое:от меня трубуется удались все последующие вхождения или удалить вообще все повторяющиеся символы, включая первое вхождение?
for i:=1 to length (s) do
if (pos (s[i],copy (s,1,i-1))=0) and
(pos (s[i],copy (s,i+1,255))=0) then write (s[i]);
Спасибо огромное