Дана строка S. нужно вывести все буквы, которые встречаются в ней, и их количество

@321 · Регистрация: 22.12.2011

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

помогите составить программу этой задачи. паскаль

@Sabonar · 20.12.2012, 20:26

Pascal

var
razd:string;
slovo,p:string;
i,j,n,k,max:integer;
a:array[1..250] of char;
kol:array[1..250] of integer;
begin
Writeln('Введите предложения');
readln(p); //предложение
n:=0; //длинна массивов kol и a//
For i:=1 to length(p) do begin
  j:=1;
  While (p[i]<>a[j]) and (j<=n) do 
    j:=j+1;
  If j>n then begin //если буквы из строки p нету  в массиве А то мы её туда добавляем//
    n:=n+1;
    a[n]:=p[i];
    kol[n]:=1
    end
  else
    kol[j]:=kol[j]+1 // если уже есть то увеличиваем количество повторений этой буквы//
end;
For i:=1 to n do
Writeln('Символ ',a[i],' встречается: ',kol[i],' раз');
end.

@321 · 20.12.2012, 20:56 **[ТС]**

спасибо. она же будет работать?

@Sabonar · 20.12.2012, 21:11

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

спасибо. она же будет работать?

Проверь в онлайн версии паскаля. У меня работает.

@321 1 / 1 / 0 Регистрация: 22.12.2011 Сообщений: 15
		1
	Дана строка S. нужно вывести все буквы, которые встречаются в ней, и их количество 20.12.2012, 19:46. Показов 5204. Ответов 3 Метки нет (Все метки) помогите составить программу этой задачи. паскаль 0

@321 1 / 1 / 0 Регистрация: 22.12.2011 Сообщений: 15
	20.12.2012, 20:56 [ТС]	3
	спасибо. она же будет работать? 0

@Sabonar 3 / 3 / 2 Регистрация: 11.10.2012 Сообщений: 27
	20.12.2012, 21:11	4
	Сообщение от 321 спасибо. она же будет работать? Проверь в онлайн версии паскаля. У меня работает. 1

Опции темы