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

Question

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

Comments

А где само задание-то?)

---

А, я просто думала, что это задание наподобие тех, где "найдите мощность алфавита, если такое-то сообщение занимает такой-то объем информации", совсем не подумала, что программу составить необходимо)

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