Априорная вероятность

[deathz0r]

Пишу программу, которая бы высчитывала априорную вероятность каждой буквы русского алфавита (е=ё) в тексте.
Ребят, подскажите из-за чего выскакивает ошибка в выделенной строке?

var
  rr:extended; //общее количество букв
  massiv:array[1..32] of string; //массив букв.
  povtor:array[1..32] of integer; //массив повторений буквы в тексте.
  apr:array[1..32] of extended; //массив априорных вероятностей.

procedure TForm1.Go1Click(Sender: TObject);
begin
massiv[1]:='a';
massiv[2]:='б';
massiv[3]:='в';
massiv[4]:='г';
massiv[5]:='д';
massiv[6]:='е';
massiv[7]:='ж';
massiv[8]:='з';
massiv[9]:='и';
massiv[10]:='й';
massiv[11]:='к';
massiv[12]:='л';
massiv[13]:='м';
massiv[14]:='н';
massiv[15]:='о';
massiv[16]:='п';
massiv[17]:='р';
massiv[18]:='с';
massiv[19]:='т';
massiv[20]:='у';
massiv[21]:='ф';
massiv[22]:='х';
massiv[23]:='ц';
massiv[25]:='ш';
massiv[24]:='щ';
massiv[26]:='ч';
massiv[27]:='ъ';
massiv[28]:='ы';
massiv[29]:='ь';
massiv[30]:='э';
massiv[31]:='ю';
massiv[32]:='я';
for j:=1 to 32 do
for i:=1 to Length(Memo1.Text) do
if memo1.lines.Text[i]=massiv[j] then inc(povtor[j]);
for i:=1 to 32 do
begin
Stringgrid1.Cells[0,j]:=massiv[j];
apr[j]:=(povtor[j])/rr;
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);
end;
end;

[Летучий_СкилетиК]

что за ошибка?

[deathz0r]

при запуске программы и выполнении побочных действий все ок, но когда жму Go! вылезает непонятная ошибка, а в низу пишет "For loop control variable must be simple local variable

[Kotlyar562]

не, не то)

[pwian]

а если попробовать переменные i,j определить в процедуре

procedure TForm1.Go1Click(Sender: TObject);

[deathz0r]

попробовал, результат тот же

[pwian]

А если

for i:=1 to 32 do
begin
Stringgrid1.Cells[0,j]:=massiv[j];
apr[j]:=(povtor[j])/rr;
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);
end;

заменить на

for j:=1 to 32 do
begin
Stringgrid1.Cells[0,j]:=massiv[j];
apr[j]:=(povtor[j])/rr;
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);
end;

Смысл измениться?

[Smitt&Wesson]

For loop control variable must be simple local variable

В цикле for не объявлена локальная переменная.

[evg_m]

apr[j]:=(povtor[j])/rr;

использование переменной j ВНЕ цикла.

for j:= ... do begin

P.S. ни одна из переменных (rr, povtor[]) не инициализированы.
(не присвоены НАЧАЛЬНЫЕ значаения.

P.P.S. возможно и другая ошибка. неправильное использование индекса.
j вместо i.

[phomm]

не пойму, а то, что rr объявлено как extended никого не смущает ?

)) упс проглядел ) что и apr - тоже ))

тогда просто скажу такие вещи:
1. завести const endcharnum = 32 и везде вместо 32 использовать её (имя можно и другое взять)
2 буквы надо делать массив не string а char, и инициализировать не тем монстром (индусским кодом), а сделать цикл

var i : char;
...
for i := 'а' to 'я'
  do massiv[ord(i)-223] := i; // здесь 223 это смещение русской буквы а в таблице символов