Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: Гость 18.11.2007 20:31

Задача: вывести строку без повторяющихся символов

Автор: Farru 18.11.2007 21:56

а вот и сама прогаsmile.gif


Прикрепленные файлы
Прикрепленный файл  PR5_3.PAS ( 292 байт ) Кол-во скачиваний: 237

Автор: Артемий 18.11.2007 21:58

Ну и попробуй там ввести 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.

Автор: Farru 18.11.2007 22:16

Цитата(Артемий @ 18.11.2007 17:58) *

(Farru - ты автор темы?)


угу..просто потом зарегилась

Автор: Артемий 18.11.2007 22:17

Тогда прошу прощения..не понял сразу.. smile.gif
я имел ввиду что твой способ не работает..

Автор: Farru 18.11.2007 22:19

а насчет радости результату...что-то не получается порадоваться..sad.gif
самое интеренсое:от меня трубуется удались все последующие вхождения или удалить вообще все повторяющиеся символы, включая первое вхождение?

Автор: volvo 18.11.2007 22:24

Цитата
вывести строку без повторяющихся символов
То есть,
"vvolvoo" -> "volvo"
или последние "vo" тоже уже не должны повторяться, и должно быть "vol"?

Автор: Farru 18.11.2007 22:51

Цитата(volvo @ 18.11.2007 18:24) *

То есть,
"vvolvoo" -> "volvo"
или последние "vo" тоже уже не должны повторяться, и должно быть "vol"?

как мне только что объяснили, "vvolvoo"->"l"

Автор: Malice 18.11.2007 23:01

Цитата(Farru @ 18.11.2007 18:51) *

как мне только что объяснили, "vvolvoo"->"l"

Тогда примерно вот так должно работать:
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]);


Автор: Farru 19.11.2007 0:15

Спасибо огромноеsmile.gif