Требуется произвести частотный анализ символов в строке — Pascal(Паскаль)

var
  s: string;
  n: array [char] of word;
  i: Integer;

begin
  readln(s); { исходная строка для анализа }
  FillChar(n[#0], SizeOf(n), 0);
  for i := 1 to Length(s) do
  begin
    inc(n[s[i]]);
  end;

  for i := 0 to 255 do
  begin
    if i < 32 then
      write('#', i, ' : ', n[chr(i)], ';#9')
    else
      write(chr(i), ' : ', n[chr(i)], ';#9');
    if (i and 7) = 7 then
      writeln;
  end;

end.

Leave a Comment