Количество символов в строке!

[kalosha-stepa]

Эта програмка сортирует числа в алфавитном порядке, но мне еще надо подсчитать количество различных символов в строке. как это сделать и вывести все на экран!

program z7;
var s : string;
  i,k : integer;
  ch : char;
  RezultSet  : set of char;
begin
   Readln(s);
   i := 1; k:=0;
   RezultSet := [];
   while (i<=Length(s)) and (s[i]<>'.') do begin
     if s[i] in ['A','а','Б','б','В','в','Г','г','Д' ,'д','Е','е', 'Ё', 'ё', 'Ж', 'ж', 'З', 'з', 'И',
     'и', 'Й', 'й', 'К', 'к', 'Л', 'л', 'М', 'м', 'Н', 'н', 'О', 'о', 'П', 'п', 'Р', 'р', 'С', 'с', 'Т',
     'т', 'У', 'у', 'Ф', 'ф', 'Х', 'х', 'Ц', 'ц', 'Ч', 'ч', 'Ш', 'ш', 'Щ', 'щ', 'Ъ', 'ъ', 'Ы', 'ы', 'Ь',
     'ь', 'Э', 'э', 'Ю', 'ю', 'Я', 'я']
       then Include(RezultSet, s[i]);
     inc(i)
   end;
   
   WriteLn;
      for ch:='A' to 'я' do begin
      if ch in RezultSet then Write(ch);

   Writeln;
   readln;
 end;
end.

[Sciv]

for i:=1 to length(ResultSet) do begin
  count:=0;
  While pos(ResulSet[i],<строка поиска>)>0 do inc(count);
  WriteLn('Символ '+ResultSet[i]+' встречается '+IntToStr(count));
end;

[Serge_Bliznykov]

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

for i:=1 to length(ResultSet) do begin
  count:=0;
  While pos(ResulSet[i],<строка поиска>)>0 do inc(count);

- неверно. рекомендую вам ознакомится с понятием "множества" в Pascal
1) нет понятия длина Length() для множества...
2) к элементу множества НЕЛЬЗЯ обращаться через индекс!

Сообщение от kalosha-stepa

Эта програмка сортирует числа в алфавитном порядке

А при чём здесь ЧИСЛА ?!
Программа выводит в АЛФАВИТНОМ порядке все русские символы, которые входят в заданную фразу.

[Sciv]

- неверно. рекомендую вам ознакомится с понятием "множества" в Pascal
1) нет понятия длина Length() для множества...
2) к элементу множества НЕЛЬЗЯ обращаться через индекс!

Согласен, косяк упорол Что-то меня на ночь глядя заклинило, что строка-это множество чаров...

Поскакал вспоминать паскакаль

[kalosha-stepa]

Нужно подсчитать количество различных символов в строке. На экран вывести все встреченные символы в алфавитном порядке: <символ><кол-во>.

[Stilet]

Даю на водку:

var a:array['A'..'z'] of integer; s:string;i:integer;c:char;
begin
 s:=Латинская строка;
 for i:=1 to Length(s) do inc(a[s[i]]);
 for c:='A' to 'z' do if a[c]>0 then write(c,':',a[c],' ');
end;

И де я понятна?

[TinMan]

Сообщение от kalosha-stepa

Нужно подсчитать количество различных символов в строке. На экран вывести все встреченные символы в алфавитном порядке: <символ><кол-во>.

В условии явный дискрепанс.. НЕ БЫВАЕТ, чтоб СИМВОЛЫ были в АЛФАВИТНОМ порядке. В алфавитном порядке могут быть БУКВЫ. Принимая во внимание, что вряд ли слова "алфавитный порядок" появились случайно и являются ошибкой, я бы переделал код Стилета как-то так:

var 
  a: array['A'..'Z'] of integer;
  s: string;
  i: integer;
  c: char;
begin
  s:= Латинская строка;
  for i:=1 to Length(s) do inc(a[UpCase(s[i])]);
  for c:='A' to 'Z' do if a[c]>0 then write(c,':',a[c],' ');
end.

[Stilet]

UpCase

Эм... Ремарочка: Если автору захочется работать с русскими буквами - эта функция ему не помошник.