Гистограмма

@Джей Сальвадор · Регистрация: 09.11.2015

Дано предложение.Нарисовать вертикальную гистограмму символов этого предложения.

@ZX Spectrum-128 · 06.12.2015, 13:27

Взято отсюда:
Строки. Подсчитать количество вхождений каждой буквы.

Pascal

uses
  crt;
var
  S: String;
  Ch: Char;
  i, Len: Integer;
  //Это тоже самое что и: ArrStat : array[#0..#255] of Integer;
  ArrStat: array[Char] of Integer;
 
begin
  Write('Задайте строку: ');
  Readln(S);
 
    //Обнуляем элементы массива статистики.
  for Ch := #32 to #255 do
    ArrStat[Ch] := 0;
 
    //Собираем статистику.
  for i := 1 to Length(S) do
    Inc(ArrStat[S[i]]);
    //Показываем результат.
  Writeln('Статистика использования букв:');
  for Ch := #32 to #255 do
  begin
    if ArrStat[Ch] <> 0 then
      begin
        write(ch, ':');
        for i := 1 to ArrStat[Ch] do
          write(chr(254)); //chr(177)
        write(ArrStat[ch]);
        writeln;
      end;
  end;
  readln;
 
end.

Добавлено через 1 минуту
А, вертикальную ж надо было.

@Джей Сальвадор 0 / 0 / 0 Регистрация: 09.11.2015 Сообщений: 9
		1
	Гистограмма 05.12.2015, 21:50. Показов 3175. Ответов 1 Метки нет (Все метки) Дано предложение.Нарисовать вертикальную гистограмму символов этого предложения. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Гистограмма

Решение