[F@got555]

Дан двумерный целочисленный массив размерностью m*n. Упорядочить строки матрицы по возрастанию количества нечетных элементов в строке. Сортировка методом выбора.

[F@got555]

Забивать массив рандомно!=)

[F@got555]

вот что у мя получилось! но чето не работает!

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    b:array of array of integer;
    p:array of integer;
    q:array of integer;
    m,n,i,j,h,min,y,z,k,x:integer;
begin
N:=StrToInt(Edit1.text);
M:=StrToInt(edit2.text);
StringGrid1.colcount:=n;
StringGrid1.rowcount:=m;
StringGrid2.colcount:=n;
StringGrid2.rowcount:=m;
for I := 1 to N do
for j := 1 to M do  A[i,j]:=random(40);

for I := 1 to N do
for j := 1 to M do StringGrid1.Cells[j-1,i-1]:=IntToStr (a[i,j]);

for I := 1 to N do begin k:=0;
for j := 1 to M do if A[i,j]mod 2 = 1 then k:=k+1;
                         p[i]:=k; q[i]:=i;
                   end;
for h := 1 to N - 1 do begin min:=q[h];
                             x:=h+1;
for i := x to N do if min>p[i] then begin y:=min; min:=p[i]; p[i]:=y;
                                          z:=q[h]; q[h]:=q[i]; q[i]:=z;
                                    end;
                        end;
for h := 1 to n do
for i := 1 to n do
for j := 1 to m do
B[i,j]:=a[q[h],j];
for i := 1 to n do
for j := 1 to m do
stringgrid2.cells[j-1,i-1]:=IntToStr(B[i,j]);
end;

end.

Admin: Пользуемся тегами!

[lmikle]

А в чем не работает.
А вообще, несколько советов.

1. Не надо писать все одной процелурой. Разбей код на несколько процедурок. Проще проверять.
2. Сделай контрольные выводы на экран промежуточных значений.

[F@got555]

я забыл размерность массива! добавил ее! воткусочек измененного
StringGrid1.colcount:=n;
StringGrid1.rowcount:=m;
StringGrid2.colcount:=n;
StringGrid2.rowcount:=m;
SetLength(a,n,m);
SetLength(b,n,m);
SetLength(p,n);
SetLength(q,n);
for I := 1 to N do
for j := 1 to M do A[i,j]:=random(40);

но он все равно выдает ошибку! он компилирует! запускается! вводишь n и m и тут он как раз и выдает ошибку! выделяет строку которую я выделил цветом!

[F@got555]

несколькими процедурами у меня препод не разрешает!

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

Отсчет элементов в динамическом массиве начинается с 0 поэтому:

Код:

for I := 0 to N-1 do
for j := 0 to M-1 do A[i,j]:=random(40);

[F@got555]

попробовал! один раз сработала но результат бредом каким то оказался! а когда запустил второй раз опять начал выдавать ошибку на какой то адрес =((

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

Значит вы на верном пути. Смотрите где еще выходите за границы массива.

[F@got555]

ды я посмотрю тока когда он запустился то у меня неправильно вывелось! следовательно не правильно что-то в самой логике программы! не могли бы это проверить?

[F@got555]

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    b:array of array of integer;
    p:array of integer;
    q:array of integer;
    m,n,i,j,h,min,y,z,k,x:integer;
begin
N:=StrToInt(Edit1.text);
M:=StrToInt(edit2.text);
StringGrid1.colcount:=n;
StringGrid1.rowcount:=m;
StringGrid2.colcount:=n;
StringGrid2.rowcount:=m;
SetLength(a,n,m);
SetLength(b,n,m);
SetLength(p,n);
SetLength(q,n);
for I := 0 to N-1 do
for j := 0 to M-1 do  A[i,j]:=random(40);

for I := 0 to N-1 do
for j := 0 to M-1 do StringGrid1.Cells[j,i]:=IntToStr (a[i,j]);

for I := 0 to N-1 do begin k:=0;
for j := 0 to M-1 do if A[i,j]mod 2 = 1 then k:=k+1;
                         p[i]:=k; q[i]:=i;
                   end;
for h := 1 to N - 1 do begin min:=q[h];
                             x:=h+1;
for i := x to N do if min>p[i] then begin y:=min; min:=p[i]; p[i]:=y;
                                          z:=q[h]; q[h]:=q[i]; q[i]:=z;
                                    end;
                        end;
for h := 0 to n-1 do
for i := 0 to n-1 do
for j := 0 to m-1 do
B[i,j]:=a[q[h],j];
for i := 0 to n-1 do
for j := 0 to m-1 do
stringgrid2.cells[j,i]:=IntToStr(B[i,j]);
end;

end.

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

[F@got555]

Народ! ну помогите пожалуйста!=(((

[F@got555]

Мне помогли! кого интересует вот код!

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    b:array of array of integer;
    p:array of integer;
    q:array of integer;
    m,n,i,j,y,k:integer;
begin
N:=StrToInt(Edit1.text);
M:=StrToInt(edit2.text);
StringGrid1.colcount:=n;
StringGrid1.rowcount:=m;
StringGrid2.colcount:=n;
StringGrid2.rowcount:=m;
SetLength(a,n,m);
SetLength(b,n,m);
SetLength(p,n);
SetLength(q,n);
randomize;
for I := 0 to N-1 do
for j := 0 to M-1 do  A[i,j]:=random(1000);

for I := 0 to N-1 do
for j := 0 to M-1 do StringGrid1.Cells[j,i]:=IntToStr (a[i,j]);

for I := 0 to N-1 do begin k:=0;
for j := 0 to M-1 do if A[i,j]mod 2 = 1 then k:=k+1;
                         p[i]:=k; q[i]:=i;
                   end;
for j := 0 to N - 1 do begin
for i := j+1 to N - 1 do if p[j]>p[i] then begin
                            y:=p[j]; p[j]:=p[i]; p[i]:=y;
                            y:=q[j]; q[j]:=q[i]; q[i]:=y;
    end;
end;

for i := 0 to n-1 do begin
  for j := 0 to m-1 do begin
    b[i,j] := a[q[i],j];
  end;
end;

for i := 0 to n-1 do
for j := 0  to m-1 do begin
stringgrid2.cells[j,i]:=IntToStr(b[i,j]);
end;
end;

end.