Question

Задание на подсчет полного набора символов(мощности алфавита) используемого при кодировании информации

Answer 1

var
  c: set of char;
  i, n: integer;
  s: string;

begin
  c := [];
  write('Введите текст: ');
  readln(s);
  n := 0;
  for i := 1 to length(s) do
    if not (s[i] in c) then
    begin
      include(c, s[i]);
      n := n + 1
    end;
  writeln('Мощность алфавита, использованного для строки, равна ', n)
end.

Тестовый прогон:

Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35

Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22

Answer 2

Замечание: На самом деле мощность алфавита равна 256 символов, потому что для кодирования символа используется 8 бит. А смысл задачи, насколько я понимаю, подсчитать какое количество РАЗНЫХ символов было использовано для записи строки. Прекрасный пример использования множеств в Паскале!