Двумерные массивы. Ошибка 26

[yulia.a]

В Интернете очень много подобного по этой 26 ошибке, что-то связано с несовпадением типов, но, как ее исправить, все равно понятнее не стало. Как сделать правильно?
Ошибка в этой строке:

a[i,j]:=(2*b[i,j]+bmin)/(bmax);

Код целиком:

Program L;
  Const
    n=3;
    m=4;
  Type 
    matr:array[1..n,1..m] of integer;
    i,j,bmin,bmax: integer;
  Begin
    randomize;
    writeln(‘Матрица В: ‘);
    for i:=1 to n do 
      begin
        for j:=1 to m do
          begin
            b[i,j]:=random(31)-15;
            write(b[i,j]:3,’ ‘:3);
          end;
          writeln;
      end;
      bmax:=b[1,1]
      for i:=1 to n do
        for j:=1 to m do
          begin
            if b[i,j]>bmax
              then
                bmax:=b[i,j];
          end;
          writeln(‘Max – ‘,bmax);
      bmin:=b[1,1]
      for i:=1 to n do
        for j:=1 to m do
          begin
            if b[i,j]<bmin
              then
                bmin:=b[i,j];
          end;
          writeln(‘Min – ‘,bmin);
      for i:=1 to n do
        for j:=1 to m do
          begin
            a[i,j]:=(2*b[i,j]+bmin)/(bmax);
            write(a[i,j]:3,’ ‘:3);
          end;
          writeln;
  End.

[Poma][a]

Код целиком:

Чет не верится..

matr:array[1..n,1..m] of integer;

У Вас массив целых чисел

a[i,j]:=(2*b[i,j]+bmin)/(bmax);

А в результате получается вещественное число..

[Вадим Мошев]

пока вот что замечено:
1. Поменяйте слово type на слово var
2. Объявите массив b
3. замените символы ` на '

[yulia.a]

Поменяла массив целых чисел integer на массив вещественных чисел real. Программа запустилась, но в исходной матрице выводятся непонятные огромные числа (ниже скрин), да и матрица А, наверное, из-за этого тоже неправильная. Помогите, пожалуйста, исправить.

Program L;
  Const
    n=3;
    m=4;
  Type 
    matr:array[1..n,1..m] of real;
  Var
    a,b:matr;
    i,j: integer;
    bmin,bmax:real;
  Begin
    randomize;
    writeln(‘Исходная матрица В: ‘);
    for i:=1 to n do 
      begin
        for j:=1 to m do
          begin
            b[i,j]:=random(31)-15;
            write(b[i,j]:3:0,’ ‘:3);
          end;
          writeln;
      end;
      bmax:=b[1,1];
      for i:=1 to n do
        for j:=1 to m do
          begin
            if b[i,j]>bmax
              then
                bmax:=b[i,j];
          end;
          writeln(‘Max – ‘,bmax:0:0);
      bmin:=b[1,1];
      for i:=1 to n do
        for j:=1 to m do
          begin
            if b[i,j]<bmin
              then
                bmin:=b[i,j];
          end;
          writeln(‘Min – ‘,bmin:0:0);
      writeln('Матрица А:');
      for i:=1 to n do
        begin
          for j:=1 to m do
            begin
              a[i,j]:=(2*b[i,j]+bmin)/(bmax);
              write(a[i,j]:3:5,’ ‘:3);
            end;
            writeln;
        end;
  End.

[Аватар]

И что это компилируется? Смотрите как тип объявляете. Да и точек с запятой в паре мест не хватает

[Poma][a]

Меня шушуть настораживает тот факт, что у ТС в коде во WriteLn'e русские букофки, а на скрине уже транслит..

[yulia.a]

Да, это, как ни странно, даже компилируется и запускается...
А что не так в его объявлении? Потому что делала по примеру в методичке, там было так.
Точки с запятой в самой программе-то есть, здесь пропустила, наверное, когда печатала)

Здесь русские буквы, а там транслит, потому что сюда печатала вручную и перешла на русский, а в Турбо Паскале на русский не переключается, поэтому на английском, а так это одна и та же программа)

Так в чем же моя ошибка я никак не могу понять?

[Poma][a]

Program L;
  Const
    n=3;
    m=4;
  Type 
    matr=array[1..n,1..m] of real;
  Var
    a,b:matr;
    i,j: integer;
    bmin,bmax:real;
  Begin
    randomize;
    writeln('Исходная матрица В: ');
    for i:=1 to n do 
      begin
        for j:=1 to m do
          begin
            b[i,j]:=random(31)-15;
            write(b[i,j]:3:0,' ':3);
          end;
          writeln;
      end;
      bmax:=b[1,1];
      for i:=1 to n do
        for j:=1 to m do
          begin
            if b[i,j]>bmax
              then
                bmax:=b[i,j];
          end;
          writeln('Max – ',bmax:0:0);
      bmin:=b[1,1];
      for i:=1 to n do
        for j:=1 to m do
          begin
            if b[i,j]<bmin
              then
                bmin:=b[i,j];
          end;
          writeln('Min – ',bmin:0:0);
      writeln('Матрица А:');
      for i:=1 to n do
        begin
          for j:=1 to m do
            begin
              a[i,j]:=(2*b[i,j]+bmin)/(bmax);
              write(a[i,j]:3:5,' ':3);
            end;
            writeln;
        end;
  End.

Попробуйте так..

[yulia.a]

Насколько я вижу, изменилось только ` на ', но дело в том, что в синтаксисе самой программы все правильно (просто сюда я ее скопировала из ворда, а там автозамена этого символа), если бы у меня были не те знаки, она бы даже не запустилась, а прога запускается.
Я подозреваю, что неправильно что-то в типах данных, но не понимаю, что конкретно. Потому что в изначальном варианте с массивом integer исходная матрица была с нормальными числами, но не запускалась, а с real дурацкие числа, но при этом запускается...

[Poma][a]

Дело в том, что у меня всё работает.. и работает правильно.тыц