статистика букв в одном слове

[Тамерлан Абилов]

столкнулся с проблемой устранить другие повтор. символы:

program ololo;
var
a,b:string;   d:array[1..24] of integer;  {массив для количевство соответ. символов.}
i,j:integer;
begin
readln(b);

for i:=1 to  length(b) do begin
for j:=1 to length(b) do begin
if b[i]=b[j] then d[i]:=d[i]+1; if d[i]>1 then begin delete(b,j,1);      end;
end;
end;
for i:=1 to length(b) do begin
writeln(b[i],' -количевство =',d[i]);
say:=0;
end;

end.

работает но не всегда не могу понять почему.например иногда при удаления символа.цикл не реагирует на то что символов стало меньше.а иногда вроде реагирует зависит от слов не понимаю что не так.или с этим алгоритмом не как но мне говорят просто я не могу написать.спасибо заранее.

_____________
Код, по правилам форума, нужно форматировать тегами [CODE] .. [ /CODE]
(это кнопка с # на панели форматирования сообщения)

Модератор

[Sciv]

1. Второй цикл нужно делать от текущего символа, а не с начала строки.
2. При удалении символов нужно делать не прямой, а обратный цикл.
3. Массив лучше задавать в диапазоне символов, а не номеров - тогда задача упрощается

program ololo;
var
b:string; 
d:array['a'..'z'] of integer; {массив для количевство соответ. символов.}
i:integer;
c: char;

begin
  readln(b);

  for c:='a' to 'z' do begin
    d[c]:=0;
    for i:=1 to length(b) do
      if b[i]=c then inc(d[c]);
  end;

  for c:='a' to 'z' do writeln(c,' -количевство =',d[c]);

end.

[Serge_Bliznykov]

нельзя удалять символы в прямом цикле FOR - вы же в цикле указываете Length(b) - а длина ИЗМЕНЯЕТСЯ после удаления символов!

Расскажите, как формулируется задание? Зачем Вам вообще удалять символы из строки? Возможно, задача может быть решена по другому?

[Mad_Cat]

for i:=1 to length(b) do
      if b[i] in ['a'..'z'] then inc(d[b[i]]);
for c:='a' to 'z' do writeln(c,' -количевство =',d[c]);

[Poma][a]

Как уже было написано выше, прямым циклом for очень проблематично удалять что-либо из строки. А почему? - Верно! Т.к. цикл for один единственный раз вычислит до какого значения должна бежать переменная i.
Тоесть лучше воспользоваться циклом while, где значение вычисляется каждый раз..
А еще лучше идти с конца строки циклом for. Тоесть for i := Length(s) downto 1 do begin

Кстати, конечно не зная задания говорить на эту тему очень сложно, НО всё-таки : наверно, было бы лучше писать UpCase (b[i])

[Тамерлан Абилов]

по пробую просмотреть все ошибки спс)задача в том что надо cделать статистику букв в одном слове а чтобы сделать это в цикле)каждый повторно встречающийся символ надо удалять чтобы при цикловой печати статистики не видит один и тот же символ)сори за руский)

[Тамерлан Абилов]

все понятно спс за отзывы оставалось сделать так

 for c:='a' to 'z' do  if d[c]>0 then writeln(c,' -количество =',d[c]);