Прошу помочь с исправлением ошибок в программе, Для каждого символа заданного текста указать его относительную частоту Опции

[student___]

Здравствуйте. Дана задача : Для каждого символа заданного текста указать его относительную частоту появления в тексте. Построить соответствующую диаграмму. Сообщение об одном символе должно печататься не более одного раза. Вот мой черновик. программа читает текст из файла, который может состоять из любого количества символов(английские , русские буквы, всевозможные знаки препинания и все это в несколько строк), выводить нужно только символы-буквы. всё шло прекрасно до того момента как текст состоял из двух-трёх строк, но если читать ,к примеру, полноценное стихотворение, то начинаются ошибки(выводит несколько раз сообщение об одинаковых символах, некоторые буквы не выводит вовсе, неправильно считает) и как мне уже подсказали формула по которой считается относительная частота не верна(.до диаграммы дело не доходит так понимаю, что смысла нет за неё браться пока происходят вот такие косяки.. Прошу посмотреть программу и помочь с выявлением ошибок

 
Program chast;
uses crt;
var t: text;
    s: string;
    a: array [0..255] of integer;
    k, b, i, max:integer;
  BEGIN  clrscr;
    k:=0;
    assign(t,'int.pas');
    reset(t);
      while not (eof(t)) do
         begin
     
           readln(t,s);
             for i:=1 to length(s) do
               begin
                inc(k);
                  case  ord(s[i]) of 97..122,224..255:inc(a[ord(s[i])]);
                                          65..90,128..159:begin
                                                                  s[i]:=chr(ord(s[i])+32);
                                                                  inc(a[ord(s[i])]);
                                                                 end;
                  end;
               end;
 
    writeln('Относительная частота повторений символов в тексте');
    writeln;
    max:=0;
      for i:=32 to 255 do
          if  a[i]<>0   then   begin
                                       writeln(chr(i),'-','частота',(a[i]/100*k): 3 :2,'',' % ',
                                       ' встречается в тексте ',a[i],' раз(а)');
             if a[i]>max then begin
                                    max:=a[i] ;
                                    b:=i
                                   end;
                                  end;
   end;
writeln;
writeln;
writeln('всего символов - ',k, '  больше всего встречается-',chr(b),'  ',  max,' раз(а)');
close(t);
readln;
end.

[Федосеев Павел]

Файл закрывается потому, что завершился кусок кода обработки данных. Далее идёт кусок визуализации результатов обработки.

MyABC и условие в if s[i] in ['a'..'z'] - это работа с типом МНОЖЕСТВО - set of char.

Я почти не работал с graph, только предполагаю.
Визуализация в графическом режиме.
1. Масштабирование по X и по Y
2. Рисование прямоугольников с заполнением.

Масштабирование.
1. По X
Пусть обрабатывались N=26 символов от 'a' до 'z'.
Тогда ширина каждого прямоугольника будет равна
dX:=(GetMaxX+1) div N
Но лучше рисовать диаграмму немного отступив от края экрана, например 5% слева и 5% справа. Таким образом, остаётся всего лишь 90% ширины и получим
dXshift:=( (GetMaxX+1)*5 ) div 100 {отступ от края экрана 5%}
dX:=( (GetMaxX+1) - dXshift - dXshift) div N {ширина каждого прямоугольника}
2. По Y
Среди значений массива (в нужном диапазоне символов от 'a' до 'z') ищется максимальный - Amax.
Аналогично находим высоту максимального прямоугольника
dYshift:=( (GetMaxY+1)*5 ) div 100 {отступ от края экрана 5%}
dYmax:=(GetMaxX+1) - dYshift - dYshift
А высоты каждого рисуемого прямоугольника будут находиться
dY:=(a[i]*dYmax) div Amax

Рисование прямоугольников (псевдокод) с учётом что X возрастает слева направо, а Y сверху вниз

Код

  for i:=ord('a') to ord('z') do
  begin
    dY:=(a[i]*dYmax) div Amax
    Xstart:=dXshift+dX*( i-ord('a') )
    Ystart:=(GetMaxY+1)-dYshift
    Xstop:=Xstart+dX
    Ystop:=Ystart-dY
    прямоугольник(Xstart, Ystart, Xstop, Ystop)  {кажется, bar или rectangle}
  end;

Может быть, при вызове bar нужно будет поменять местами Ystart и Ystop, нужно установить цвета, стили заполнения. Я просто не знаю. Нужно пробовать.

Наверняка, в интернете вообще и на форуме в частности есть примеры построения диаграмм.

P.S. Препод от нас требовал не графическую диаграмму, а горизонтальную в текстовом режиме символами '*'.

Код

  dYmax:=80
  for i:=ord('a') to ord('z') do
  begin
    dY:=(a[i]*dYmax) div Amax
    for Y:=1 to dY do
      write('*');
    writeln;
  end;

В понедельник я уезжаю, больше помочь не смогу...

Сообщение отредактировано: Федосеев Павел - 14.04.2013 23:41