Упорядочивания матрицы

Тема в разделе "Delphi - FAQ", создана пользователем KreN.del, 14 дек 2006.

Статус темы:
Закрыта.
  1. KreN.del

    KreN.del Гость

    Требования:
    1)Как console apllication
    2)Использовать, пока только то что прошли, а тоесть массивы и циклы
    Задача:
    Дана целочисленная матриц А(n,m).Упорядочить по возрастанию элементы каждого столбца матрицы.
     
  2. Barmutik

    Barmutik Гость

    И что конкретно не получается ?
     
  3. DIR3ct0r

    DIR3ct0r Гость

    Ну видимо хочется все готовое получить....

    я в предыдущей твоей теме писал сортировку пузырьком....алгоритм есть, положи его на матрицу и все, столбец матрицы - это тот же одномерным массив.
     
  4. KreN.del

    KreN.del Гость

    Ребят вот какой-то код наваял.. Ошибка в просчете появляется лишь в некоторых столбцах...
    Немогли ли вы мне баг мой найти?
    var
    x:TDarr;
    i,j,n,m,d,max,imax,c,z:integer;
    begin
    write('kol-vo ctroc=');
    readln(n);
    write('kol-vo ctolbcov=');
    readln(m);
    setlength(x,n,m);
    for i:=0 to n-1 do
    for j:=0 to m-1 do
    read(x[j]);
    for j:=0 to m-1 do
    for i:=0 to n-1 do
    for d:=1 to n-1 do
    begin
    max:=x[0][0];
    imax:=0;
    for c:=0 to n-d do
    if(x[c][j]>max)then
    begin
    max:=x[c][j];
    imax:=c;
    end;
    x[imax][j]:=x[n-d][j];
    x[n-d][j]:=max;
    end;
    //вывод построчно
    for i:=0 to n-1 do
    begin
    writeln;
    for j:=0 to m-1 do
    write(x[j],' ');
    end;
    readln;
    readln;
    end.
     
  5. DIR3ct0r

    DIR3ct0r Гость

    Код (Text):
    for iCol:= 1 to m do // идем по каждому столбцу
    // сортировка
    for iRow1:= 1 to n - 1 do
    for iRow2:= iRow1 + 1 to n do
    if a[iRow1, iCol] > a[iRow2, iCol] then
    begin
    tmp:= a[iRow1, iCol];
    a[iRow1, iCol]:= a[iRow2, iCol];
    a[iRow2, iCol]:= tmp;
    end;
     
Загрузка...
Похожие Темы - Упорядочивания матрицы
  1. Dantes95
    Ответов:
    0
    Просмотров:
    1.015
  2. kobrin13
    Ответов:
    0
    Просмотров:
    1.033
  3. FCDK
    Ответов:
    0
    Просмотров:
    1.264
  4. PahaStar
    Ответов:
    0
    Просмотров:
    1.077
  5. Evgesha777
    Ответов:
    1
    Просмотров:
    1.399
Статус темы:
Закрыта.

Поделиться этой страницей