[Лол]

Задача на Delphi.
Упорядочить каждый столбец матрицы по возрастанию, массив размером MxN. Ввод массива осуществить через фаил.
Напишите пожалуйста код и какие компоненты добавить. Помогите новичку пожалуйста))

[Ildar-tsr]

Сообщение от Лол

Задача на Delphi.
Упорядочить каждый столбец матрицы по возрастанию, массив размером MxN. Ввод массива осуществить через фаил.
Напишите пожалуйста код и какие компоненты добавить. Помогите новичку пожалуйста))

Поделись своими мыслями, как примерно ты себе представляешь решение данной задачи.

[Лол]

Сообщение от Ildar-tsr

Поделись своими мыслями, как примерно ты себе представляешь решение данной задачи.

Хотелось бы готовый код получить... мыслей нету))

[Ildar-tsr]

Сообщение от Лол

Хотелось бы готовый код получить... мыслей нету))

Ну если кто-нибудь из форумчан будет в хорошем настроение сделают тебе твою задачу (слово помогите больше не употребляй, пиши сделайте), а если таких не будет, то создай сообщение в данном разделе http://www.delphisources.ru/forum/forumdisplay.php?f=34

[chainik]

Вот процедура пузырьковой сортировки (один из множества способов сортировки).
Остальное- уж пожалуйста сам. Напрягать мозги иногда полезно.
Особенно перед сессией.

Код:

procedure BulbSort(var z:array of integer);
var
flag:boolean;
Ztmp,i,N:integer;
begin
N:=0;
    repeat
    flag:=false;
    for i:=High(z) downto N+1 do
        begin
        if (z[i] < z[i-1]) then
            begin
            flag:=true;
            Ztmp:=z[i-1];
            z[i-1]:=z[i];
            z[i]:=Ztmp;
            end;
        end;
    inc(N);
    until not flag;
end;