[Opium1992]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button2Click(Sender: TObject); Type Tmas=array[0..14] of integer; Var a,b:array[0..14] of Tmas; x:array[0..14] of integer; l:boolean; i,j:integer; begin    for i:=0 to n-1 do        for j:=0 to n-1 do           a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);     for i:=0 to n-1 do        for j:=0 to n-1 do           b[i,j]:=StrToInt(StringGrid2.Cells[j,i]);   for i:=1 to n do   begin l:=true;   for j:=1 to n do   if (a[i,j]>=0) and (b[i,j]>=0) then l:=false;   if l=true then x[i]:=1 else x[i]:=0 ;     end;     for i:= 1 to n do   memo1.Lines.Add(inttostr(x[i]));   end;

Admin: Не забываем про теги!

обьясните почему в обоих случаях одномерный масив x[i]:=0 ????
реально замахался

[lmikle]

Включи конроль границ в опциях проекта. Тогда поймешь.
У тебя выход за границу массива.

[Opium1992]

ниче не понял =) можно поподробнее ? =)

[lmikle]

У тебя массивы длинной от 0 до 14 (всего 15 элементов). И при их чтении ты честно идешь от индекса 0 до n-1 (подозреваю, что n = 15).

А при вычислении, ты идешь с индекса 1 до n (который = 15). Т.е. у тебя не рассчитывается первый элемент, зато идет обработка памяти за границей массива. Что там на самом деле находится - никто не знает. Может поэтому и не работает.

[Opium1992]

можно подробнее?? project/options там??7 если да то че именно ?

[Opium1992]

ой сори 2 сообщения вышло =)) спс я всё понял =)))

[lmikle]

Ты проверь, мож и не в этом дело. Протсо это первое, что в глаза бросилось.

[Страдалецъ]

1. Непонятно чему равно n на входе в TForm1.Button2Click
2. Нафига делать два цикла на заполнение a и b если это можно сделать одним:

Код:

1 2 3 4 5 6

for i:=0 to n-1 do for j:=0 to n-1     do begin         a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);         b[i,j]:=StrToInt(StringGrid2.Cells[j,i]);         end;

3. Никогда не пишите условие так:

Код:

1	if l=true then

Переменная L у вас логическое и писать надо так:

Код:

1

if l then

4. У меня есть стойкое подозрение, что надо так:

Код:

1 2 3 4 5 6 7 8 9 10 11

for i:=0 to n-1 do begin     l:=true;     for j:=0 to n-1     do if (a[i,j]>=0) and (b[i,j]>=0)         then begin                l:=false;                break;                 end;         if l then x[i]:=1 else x[i]:=0 ;     end;

Т.е. выход за границы, да еще из внутреннего цикла не выходите.