Задача с буквами.

[capta1n]

это я так, просто относительно задания говорю

[alex_fcsm]

Сообщение от capta1n

я проверил - все работает хорошо, просто я говорил Алекс насчет того, что надо считать буквы, а не все символы - я имел в виду вот так объявить

const t=['a'..'z'];
....
begin
....
if (not (UpCase(s[i]) in q)) and (UpCase(s[i]) in t) then ...

Согласен. Но там указано что вводится слово.

[capta1n]

сколько раз встретилась каждая буква.

Да все нормально, просто решил поразмыслить и сказать то, что думаю

[didar_]

требуется помощь, нужно чтобы твоя прога вычитывала вероятность этих букв. Например: Евгений ушел
е=3 Р=3/12=..
в=1 Р=1/12=..
г=1 ...
н=1
и=1
й=1
у=1
ш=1
л=1 Р=1/12=
(пробел)=1
N=12 (количество символов)
Р(вероятность)

и еще по формуле Шена H:=P(i)*(ln(P(i)/in(2)));

[alex_fcsm]

type TInf=record
      ch:char;
      i:byte;
     end;
var i,n,j,k:integer;
    a:array[1..1000] of TInf;
    s:string;
    q:set of char;
    h:real;
begin
readln(s);
q:=[];
n:=0;
for i:=1 to length(s) do
 if not(s[i] in q) then begin
                          k:=0;
                          for j:=i to length(s) do
                             if s[i]=s[j] then inc(k);
                          inc(n);
                          a[n].ch:=s[i];
                          a[n].i:=k;
                          q:=q+[s[i]];
                        end;

k:=length(s);
h:=0;
for i:=1 to n do
 begin
 if a[i].ch=' ' then writeln('(пробел)=',a[i].i,'   p=',a[i].i/k:7:5)
  else writeln(a[i].ch,'=',a[i].i,'   p=',a[i].i/k:7:5);
 h:=h+(a[i].i/k)*(ln((a[i].i/k)/ln(2)));
 end;
write('H=',-h);
end.

Я могу ошибаться, но Н=-Сумма(P(i)*ln(p(i)/ln(2))
советую проверить

[didar_]

Да,я ошибся в формуле.

результат не нормальный, он что-то не то выводит.

мне нужно напр:
a=1 P=0.55
...
...
...
H=...

[alex_fcsm]

Подправил. Хотя можно и самому было

[didar_]

Огромное спасибо. выручил. Удачи

[daur3n]

Большое спосибо!Выручил нас, долго не могли додуматься сами

[daur3n]

еще одно проблемка есть.Как сделать так,чтобы на паскаль можно было на писать на русском шрифте или Как изменить эту прогу, чтобы эта прога считывала текстовый файл в которой текст написан на русском...