５人の学生の身長を ソート

明解Ｃ言語 入門編 > 12. 構造体 >

５人の学生の身長を ソート

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
const

    NINSU = 5;
procedure swap(var nx:Integer; var ny:Integer);

var

    tmp: Integer;

begin

    tmp := nx;

    nx  := ny;

    ny  := tmp;

end;
procedure sort(var data:array of Integer; n:Integer);

var

    i, j, k: Integer;

begin

    k := High(data);

    while (k >= 0) do

    begin

        j := -1;

        for i := Low(data) + 1 to k do

        begin

            if (data[i - 1] > data[i]) then

            begin

                j := i - 1;

                swap(data[i], data[j]);

            end;

        end;

        k := j;

    end;

end;
procedure main();

var

    i: Integer;

    height: array[1..5] of Integer;

begin

    height[1] := 178;

    height[2] := 175;

    height[3] := 176;

    height[4] := 165;

    height[5] := 179;
    Writeln('ソート前：');

    for i := 1 to NINSU do

        Writeln(Format('%2d:%4d', [i, height[i]]));

    Writeln('');
    sort(height, NINSU);
    Writeln('ソート後：');

    for i := 1 to NINSU do

        Writeln(Format('%2d:%4d', [i, height[i]]));

end;
begin

    main;

end.

実行結果

S:\>lesson088\project1.exe

ソート前：

 1: 178

 2: 175

 3: 176

 4: 165

 5: 179
ソート後：

 1: 165

 2: 175

 3: 176

 4: 178

 5: 179