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

[pwian]

а ты сам-то попробую вывести на экран:

а сделать цикл
Код:

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

[Grag]

Просто параметр цикла i объявлен где-то в другом месте и для процедуры, где используется, является глобальной переменной... Сообщение же гласит, что используемый параметр цикла должен быть ЛОКАЛЬНОЙ переменной, т.е. описан в разделе описаний данной процедуры...

[deathz0r]

Ребят, попробовал сделать с учетом замечаний, результат тот же, ошибка в той же строке, привел полный листинг программы:

оффтоп: Админ, извини, не знаю каким шрифтом оформлять код.

var
  Form1: TForm1;
  F:textfile;
  s:string;
  sp:string;
  r:extended;
  rr:extended;
  j:integer;
  massiv:array[1..32] of string;
  massiv2:array[1..32] of string;
  massiv3:array[1..32,1..32] of integer;
  massiv4:array[1..32,1..32] of extended;
  povtor:array[1..32] of integer;
implementation

{$R *.dfm}

procedure TForm1.open1Click(Sender: TObject);
begin
memo1.Lines.clear;
if OpenDialog1.Execute
then AssignFile(F, OpenDialog1.FileName)
else Exit; Reset(F);
while Not EOF(F) do
begin
Readln(F, S) ;
Memo1.Lines.Add(S);
end;
CloseFile(F);
end;

procedure TForm1.LengthBefore1Click(Sender: TObject);
var i:integer;
begin
r:=0;
for i:=0 to memo1.lines.count-1 do
r:=r+length(memo1.Lines[i]);
edit1.Text:=floattostr(r);
end;

procedure TForm1.LengthAfter1Click(Sender: TObject);
var i:integer;
begin
rr:=0;
for i:=0 to memo1.lines.count-1 do
rr:=rr+length(memo1.Lines[i]);
edit2.Text:=floattostr(rr);
end;

procedure TForm1.Editing1Click(Sender: TObject);
const
nums = ['а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ш','щ','ч','ъ','ы','ь','э','ю','я'];
var m,i:integer;
begin
  for i  := 0 to memo1.Lines.Count -1 do
    begin
      s:=memo1.Lines.Strings[i];
      m:=1;
      while m <= length(s) do
        begin
          if [s[m]]*nums<>[s[m]]
            then delete(s,m,1)
            else m:=m+1;
        end;
      Memo1.Lines.Strings[i]:=s;
    end;
while Memo1.Lines.Strings[Memo1.Lines.Count-1] = '' do
memo1.Lines.Delete(Memo1.Lines.Count-1);
for i:=0 to memo1.lines.Count - 1 do begin
if trim(memo1.Lines.Strings[i]) = '' then begin
while (trim(memo1.Lines.Strings[i])= '') and (i <= memo1.lines.Count - 1) do Memo1.Lines.Delete(i);
end;
memo1.Lines.Strings[i]:=trim(memo1.Lines.Strings[i]);
end;
end;

procedure TForm1.Go1Click(Sender: TObject);
var
z:integer;
k:integer;
i:integer;
rrr:extended;
apr:array[1..32] of extended;
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]:='я';
Stringgrid1.Cells[0,0]:='Буква Алфавита';
Stringgrid1.Cells[1,0]:='Количество совпадений';
Stringgrid1.Cells[2,0]:='Априорная вероятность';
rrr:=rr;
for i:=1 to 32 do
begin
for z:=1 to Length(Memo1.Text) do
if memo1.lines.Text[z]=massiv[j] then inc(povtor[j]);
end;
for j:=1 to 32 do
begin
apr[j]:=(povtor[j])/rrr;
Stringgrid1.Cells[0,j]:=massiv[j];
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);
end;
for j:=1 to 32 do
for k:=1 to 32 do
for z:=1 to Length(Memo1.Text) do
begin
massiv2[k]:=massiv[k];
if memo1.lines.Text[z]+memo1.lines.Text[z+1]=massiv[j]+massiv2[k]
 then massiv3[j,k]:=massiv3[j,k]+1;
stringgrid2.cells[j,k]:=inttostr(massiv3[j,k]);
massiv4[j,k]:=massiv3[j,k]/rr;
stringgrid3.cells[j,k]:=floattostr(massiv4[j,k]);
end;
end;
end.

phomm: при клике на Go1 ошибка в выделенной строке

[phomm]

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

procedure TForm1.Button1Click(Sender: TObject);
var i : char;
j : byte;
mas : array [1..32] of char;
begin
for i := 'а' to 'я'
do mas[ord(i)-223] := i;
for j := low(mas) to high(mas)
do memo1.Lines.Add(mas[j]);
end;

deathz0r используй тег code , или заходи в расширенный режим правки и жми кнопочку #

твой код не смотрел, ибо "правильно поставленный вопрос..." - народная мудрость

[evg_m]

вам уже сказали причину

Просто параметр цикла i объявлен где-то в другом месте и для процедуры, где используется, является глобальной переменной... Сообщение же гласит, что используемый параметр цикла должен быть ЛОКАЛЬНОЙ переменной, т.е. описан в разделе описаний данной процедуры...

var
  Form1: TForm1;
  F:textfile;
  s:string;
  sp:string;
  r:extended;
  rr:extended;
  j:integer;
  massiv:array[1..32] of string;
  massiv2:array[1..32] of string;
  massiv3:array[1..32,1..32] of integer;
  massiv4:array[1..32,1..32] of extended;
  povtor:array[1..32] of integer;
implementation

for j:=1 to 32 do
begin
apr[j]:=(povtor[j])/rrr;

[phomm]

Я свой пример оформлял естественно с локальной переменной, о чем говорит код в моём посте, у ТС она, конечно, глобальная, но у меня-то ведь она даже специально объявлена, как char, значит не имеет отношения к той глобальной переменной, которая другого типа. Как иначе можно понять мой код при данном раскладе? Однако, ещё замечу, что использование глобальной переменной для for не есть ошибка, интепретатор только выдаст ворнинг.

[deathz0r]

переменную j объявил как локальную, пишет что переменная j не может быть инициализирована

[phomm]

архивируй проект и прикрепляй, разберемся

[deathz0r]

прикрепил.

[evg_m]

for i:=1 to 32 do
begin
for z:=1 to Length(Memo1.Text) do
if memo1.lines.Text[z]=massiv[j] then inc(povtor[j]);
end;

[Warning] Unit1.pas(168): Variable 'j' might not have been initialized
Где в приведенном коде ЗАДАНО значение (присвоено) переменной j