５人の学生を 身長で ソート (配列)
明解Ｃ言語 入門編 > 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 swaps(var sx:String; var sy:String);
var
tmp: String;
begin
tmp := sx;
sx := sy;
sy := tmp;
end;procedure sort(var data:array of Integer; var name:array of String; 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]);
swaps(name[i], name[j]);
end;
end;
k := j;
end;
end;procedure main();
var
i: Integer;
height: array[1..5] of Integer;
name: array[1..5] of String;
begin
height[1] := 178;
height[2] := 175;
height[3] := 176;
height[4] := 165;
height[5] := 179;name[1] := 'Sato';
name[2] := 'Sanaka';
name[3] := 'Takao';
name[4] := 'Mike';
name[5] := 'Masaki';Writeln('ソート前：');
for i := 1 to NINSU do
Writeln(Format('%2d:%-8s%4d', [i, name[i], height[i]]));
Writeln('');sort(height, name, NINSU);
Writeln('ソート後：');
for i := 1 to NINSU do
Writeln(Format('%2d:%-8s%4d', [i, name[i], height[i]]));
end;begin
main;
end.
実行結果
S:\>lesson089\project1.exe
ソート前：
1:Sato 178
2:Sanaka 175
3:Takao 176
4:Mike 165
5:Masaki 179ソート後：
1:Mike 165
2:Sanaka 175
3:Takao 176
4:Sato 178
5:Masaki 179
