Создание алфавита из строки

12.06.2013, 16:11. **Показов** 559. **Ответов** 1

Студворк — интернет-сервис помощи студентам

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

Упорно пишет ошибку: Нельзя изменять значение переменной цикла внутри этого цикла.

Помогите, пожалуйста, исправить ошибки.

Вот мой код:

Pascal

var
  i, j, count: integer;
  s, x: string;
 
begin
 
  writeln('Введите строку');
  readln(s);
 
 // x[j-1]:=['*'];  //символ, кооторого нет в тексте
  
  for j := 1 to length(s) do 
  begin
    
    if x[j - 1] = s[j] then 
      inc(j)
    Else 
    
    begin
      x:=s[j];
      for i := 1 to length(s) do 
      begin
        if x = s[i] then 
        begin
          inc(count); 
          inc(i);
        end
        Else 
          inc(i);
      end;
 
      writeln(x,' ', count);
    
    end;
      Inc(j);
  end; 
end.

@BaboshinSD · 12.06.2013, 16:17

Сообщение от keysy0808

Упорно пишет ошибку: Нельзя изменять значение переменной цикла внутри этого цикла.

Удалите все

Pascal

inc(j)

инкремент здесь не нужен т.к. цикл for автоматически увеличивает переменную.

	12.06.2013, 16:17

Опции темы