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

[alex_fcsm]

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

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

Добавить в

var
f:text;

вместо

readln(s);

сделать

  Assign(f,'c:\1.txt');
            reset(f);
            readln(f,s);
            close(f);

[daur3n]

vse nenado nashel!sps

[daur3n]

sps za otvet!

[didar_]

program d;
uses crt;
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;
f:text;
begin
clrscr;
assign(f,'c:\dake.txt');
reset(f);
read(f,s);
close(f);
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:5:3)
else writeln(a[i].ch,'=',a[i].i,' p=',a[i].i/k:5:3);
h:=h+(a[i].i/k)*(ln((a[i].i/k)/ln(2)));
end;
writeln('H=',-h:5:3,' бит/символ ');
writeln('N=',k,' (общее количество символов)');
writeln('нажмите любую клавишу');
end.



Вот это прога рабочая, но мой текст состоит больше 255 символов. Че мне делать? помоги плз очень нужно

[Sazary]

didar_ В программу не вникал. Попробуйте заменить

s:string;

на

s:array[1..1000] of char;

Компилируется и вроде работает.

[didar_]

прога считает сколько символов в строке и каждый сколько штук. Потом находит их вероятность и вычисляет по формуле Шена.

замена не помогла. Ошибку выдает

[Sazary]

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

замена не помогла. Ошибку выдает

Какую ошибку? Какой компилятор? У меня все работает (компилируется)

Вот, отметил что изменил:

program d;
uses crt;
type TInf=record
ch:char;
i:byte;
end;
var i,n,j,k,len:integer;
a:array[1..1000] of TInf;
s:array[1..1000] of char;
q:set of char;
h:real;
f:text;
begin
clrscr;
assign(f,'dake.txt');
reset(f);
i:=1;
while not eof(f) do
 begin
 read(f,s[i]);
 inc(i);
 end;
len := i - 1;
close(f);
q:=[];
n:=0;
for i:=1 to len do
if not(s[i] in q) then begin
k:=0;
for j:=i to len 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:=len;
h:=0;
for i:=1 to n do
begin
if a[i].ch=' ' then writeln('(пробел)=',a[i].i,' p=',a[i].i/k:5:3)
else writeln(a[i].ch,'=',a[i].i,' p=',a[i].i/k:5:3);
h:=h+(a[i].i/k)*(ln((a[i].i/k)/ln(2)));
end;
writeln('H=',-h:5:3,' бит/символ ');
writeln('N=',k,' (общее количество символов)');
writeln('для возврата нажмите любую клавишу');
readln;
end.

[didar_]

я заменил s:string на s:array[1..1000]of char;

assign(f,'c:\dake.txt');
reset(f);
read(f,s); вот здесь Connot Read or Write variables of this type.
close(f);

[didar_]

Огромное спасибо