Сортировка record

[guroDragon]

Всем привет.
Помогите, плиз. Не могу понять как написать код (алгоритм понятен).
У меня есть rec=record
key:integer;
body:string;
table:=array [1..5] of rec;
Мне надо отсортировать по ключам этот массив. Метод можно любой, хоть пузырьком.
Спасибо.

[type_Oleg]

А как бы ты отсортировал просто массив

var a:array[0..5]of Integer;

Вот также сортируй и массив

var ta:table;

Только вместо элементов a[i] используй ta[i].key

Только ошибка, надо так

table=array [1..5] of rec;

[guroDragon]

Так я сделал, ничего не происходит. Вот такой код.

procedure FileSort;
var
i,k:integer;
j:rec;
Begin
        clrscr;
        for i:=1 to 4 do
                For k:=2 to 5 do
                if table[i].key>table[k].key then
                begin
                        j:=table[i];
                        table[i]:=table[k];
                        table[i]:=j;
                        end;

Вроде все верно.

[type_Oleg]

Я не пойму, table - это имя типа или имя переменной. И как передаются параметры в процедуру и из нее. Через глобальные?
Что там в самой программе?

[guroDragon]

Вот весь код.
Там все в процедурах, код не сложный)

uses crt;

type rec = record
        key:integer;
        body:string;
     end;
var quit:boolean;
    mass:array [1..5] of integer;
    go:word;
    f:file of rec;
    table:array[1..5] of rec;
    n:longint;
    filename:string;
procedure FileRead;
    var i,j:longint;
        ch:char;

    Begin
        clrscr;
        Assign(f, filename);
        {$I-}
        Reset(f);
        {$I+}
         n:=0;
        if IOResult <> 0 then
            begin
                rewrite(f);
                close(f);
                exit;
            end;


        if filesize(f) < 1 then
            begin
                WriteLn('Fail Pystoi');
                close(f);
                exit;
            end;



            while not eof(f) do
                begin
                    inc(n);
                    {$I-}
                    Read(f,table[n]);
                    {$I+}
                    if IOResult <> 0 then
                        dec(n);
                end;
        WriteLn('Zapusu (',n,'):');
        WriteLn;
        WriteLn('#  |   Key      |       Body')  ;
        WriteLn;
        for i:=1 to n do
            begin
                with table[i] do
                    begin
                        Writeln(i,' ',key:7,' ',body:25);

                    end;
            end;
        WriteLn;
        Close(f);
    End;
procedure FileSave;
    var i:longint;
    Begin
        Assign(f, filename);
        {$I-}
        Rewrite(f);
        {$I+}
        if ioresult <> 0 then
            WriteLn('Error! No access to file!');

        for i:=1 to n do
            Write(f, table[i]);



        Close(f);

    End;


procedure FileAdd;
    var i,j:longint;
        ch:char;
        s:string;

    Begin
        FileRead;
        writeln;
        i:=n+1;
        WriteLn('Nova9 zapusb...');
        table[i].key:=-1;
        while (table[i].key<1)or(IORESULT<>0) do
            begin
                 WriteLn('Vvedute Key (>0):');
                 {$I-}
                 ReadLn(table[i].key);
                 {$I+}
                 if ioresult <> 0 then WriteLn('Error! only num');
            end;

        WriteLn('Vvedute Body:');
        readln(table[i].body);
        inc(n);
        FileSave;

        go:=2;


    End;

procedure FileDel;
    var del,i:longint;
    Begin
        FileRead;
        WriteLn;
        WriteLn('---------');

        if n<1 then
            begin
                WriteLn('Net zapusei. Najmute Enter');
                readln;
                go:=1;
                exit;
            end;

        WriteLn('Najmute Space - menu, drygyu - prestyputb k edalenuyu ');
        if readkey = #32  then
            begin
                go:=1;
                exit;
            end;


        del:=200;
        while del>n do
            begin
                WriteLn('Zapusb ydalutb')  ;
                readln(del);
                if del>n then
                    WriteLn('Net takoi zapusu');
            end;


        for i:=del to n-1 do
            table[i]:=table[i+1];

        dec(n);

        FileSave;
        go:=2;

    End;

procedure FileSort;
var
i,k:integer;
j:rec;
Begin
        clrscr;
        for i:=1 to 4 do
                For k:=2 to 5 do
                if table[i].key>table[k].key then
                begin
                        j:=table[i];
                        table[i]:=table[k];
                        table[i]:=j;
                        end;

        WriteLn('Space - Menu');
        WriteLn('Esc   - Exit');



        case readkey of
            #27:go:=0;
            #32:go:=1;
          end;




    End;

procedure FileChange;
    Begin
        clrscr;
        WriteLn('Vvedute nazvanue faila s kotorum xotte rabotatb');
        Readln(filename);
        Writeln('Dl9 prodol>i<enue najmute enter');
        readln;
        go:=1;
    End;

Begin
    go:=1; quit:=false;
    filename:='data.txt';
    while not quit do
        begin
            case go of
                1: Menu;
                2: begin
                    FileRead;
                    WriteLn;
                    WriteLn('Vernuts9 v menu -  Space')    ;
                    case readkey of
                        #32:go:=1;
                      end;
                   end;
                3: FileAdd;
                4: FIleDel;
                5: FileSort;
                6: FileChange;

              else quit:=true;
            end;



        end;
End.

[Аватар]

Вроде все верно.

Вместо
For k:=2 to 5 do
вставить
For k:=i+1 to 5 do

[guroDragon]

все уже пробовал, ниче не выходит...

[type_Oleg]

Аватар, нет, вроде надо каждый раз с начала. Это - пузырек.
Если например так : 5,7,9,3,1 - как 1 поставить на первое место.

Вроде нашел:

 table[i]:=table[k];
 table[i]:=j;

А что table[k] ?

[Аватар]

Сообщение от guroDragon

все уже пробовал, ниче не выходит...

Ну все попробовать жизни не хватит. А то, что в #6 пробовали?

каждый раз с начала

Олег, вы просто не подумали

А что table[k] ?

Да и это тоже

[type_Oleg]

Ну пусть попробует в процедуре сортировки во внутреннем for вместо
table[i]:=j; вот это table[k]:=j;