алфавит от а до я частотный анализ текста не получается выводит ошибку error 207

@mute · Регистрация: 26.11.2012

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
Var i,j,l : integer;
simv : array[0..32] of char; 
kol_sim : array[0..32] of integer; 
otn_sim : array[0..32] of real; 
f : text;
str : string;
begin
clrscr;
simv[0]:='А'; 
for i:=1 to 32 do
simv[i]:=succ(simv[i-1]);
for i:=0 to 32 do
begin
kol_sim[i]:=0;
otn_sim[i]:=0;
end;
l:=0; 
assign(f,'primer2.txt'); 
reset(f);
j:=0;
While not eof(f) do
begin
readln(f,str); 
for j:=1 to length(str) do
begin
for i:=0 to 32 do
if upcase(str[j]) = simv[i] then
begin
l:=l+1;
kol_sim[i]:=kol_sim[i]+1; 
break;
end;
end;
end;
close(f);
for i:=0 to 32 do
begin
otn_sim[i]:=kol_sim[i]/l*100;
write(simv[i], ': ', otn_sim[i]:5:2,'  '); 
end;
writeln;
readkey
end.

ошибка видимо в формуле

Pascal

1	otn_sim[i]:=kol_sim[i]/l*100;

но почему?

Добавлено через 34 минуты
короче l=0 , а на 0 делить нельзя, а почему там 0 то стоит?

Добавлено через 1 минуту
программа делает анализ текста на то скока раз там буквы русского алфавита встречаются каждая в процентах

	24.02.2013, 16:47