５人の学生を 身長で ソート (構造体)

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

５人の学生を 身長で ソート (構造体)

C

#include <stdio.h>

#include <string.h>
#define NINSU 5
typedef struct

{

    char  name[20];

    int   height;

    float weight;

} gstudent;
void swap(gstudent* x, gstudent* y)

{

    gstudent tmp = *x;

    *x = *y;

    *y = tmp;

}
void sort(gstudent data[], int n)

{

    int k = n - 1;

    while (k >= 0)

    {

        int i, j;

        for (i = 1, j = -1; i <= k; i++)

        {

            if (data[i - 1].height > data[i].height)

            {

                j = i - 1;

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

            }

        }

        k = j;

    }

}
int main(int argc, char* argv[])

{

    int i;

    gstudent data[] =

    {

        "Sato",    178, 61.0,

        "Sanaka",  175, 60.5,

        "Takao",   173, 80.0,

        "Mike",    165, 72.0,

        "Masaki",  179, 77.5

    };
    puts("ソート前：");

    for (i = 0; i < NINSU; i++)

        printf("%2d:%-8s%4d%6.1f\n", i + 1, data[i].name, data[i].height, data[i].weight);

    puts("");
    sort(data, NINSU);
    puts("ソート後：");

    for (i = 0; i < NINSU; i++)

        printf("%2d:%-8s%4d%6.1f\n", i + 1, data[i].name, data[i].height, data[i].weight);
    return 0;

}

実行結果

R:\>lesson096\project1.exe

ソート前：

 1:Sato     178  61.0

 2:Sanaka   175  60.5

 3:Takao    173  80.0

 4:Mike     165  72.0

 5:Masaki   179  77.5
ソート後：

 1:Mike     165  72.0

 2:Takao    173  80.0

 3:Sanaka   175  60.5

 4:Sato     178  61.0

 5:Masaki   179  77.5

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
const

    NINSU = 5;
type

    TStudent = record

        name:   String;

        height: Integer;

        weight: Real;

end;
procedure swap(var x:TStudent; var y:TStudent);

var

    tmp: TStudent;

begin

    tmp := x;

    x  := y;

    y  := tmp;

end;
procedure sort(var data:array of TStudent; 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].height > data[i].height) then

            begin

                j := i - 1;

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

            end;

        end;

        k := j;

    end;

end;
procedure set_student(var data:TStudent; name:String; height:Integer; weight:Real);

begin

    data.name   := name;

    data.height := height;

    data.weight := weight;

end;
procedure main();

var

    i:Integer;

    data: array[1..5] of TStudent;

begin

    set_student(data[1], 'Sato',    178, 61.0);

    set_student(data[2], 'Sanaka',  175, 60.5);

    set_student(data[3], 'Takao',   173, 80.0);

    set_student(data[4], 'Mike',    165, 72.0);

    set_student(data[5], 'Masaki',  179, 77.5);
    Writeln('ソート前：');

    for i := 1 to NINSU do

        Writeln(Format('%2d:%-8s%4d%6.1f', [i, data[i].name, data[i].height, data[i].weight]));

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

    for i := 1 to NINSU do

        Writeln(Format('%2d:%-8s%4d%6.1f', [i, data[i].name, data[i].height, data[i].weight]));

end;
begin

    main;

end.

実行結果

S:\>lesson096\project1.exe

ソート前：

 1:Sato     178  61.0

 2:Sanaka   175  60.5

 3:Takao    173  80.0

 4:Mike     165  72.0

 5:Masaki   179  77.5
ソート後：

 1:Mike     165  72.0

 2:Takao    173  80.0

 3:Sanaka   175  60.5

 4:Sato     178  61.0

 5:Masaki   179  77.5

Perl

$NINSU = 5;

sub swap
{
    my ($x, $y) = @_;
    $tmp = $$x;
    $$x  = $$y;
    $$y  = $tmp;
}

sub sort
{
    my ($data, $n) = @_;
    
    $k = $$n - 1;
    while ($k >= 0)
    {
        $j = -1;
        foreach $i(1..$k)
        {
            if ($$data[$i - 1]{"height"} > $$data[$i]{"height"})
            {
                $j = $i - 1;
                &swap(\$$data[$i], \$$data[$j]);
            }
        }
        $k = $j;
    }
}

@data = (
        {name => "Sato",   height => 178, weight => 61.0},
        {name => "Sanaka", height => 175, weight => 60.5},
        {name => "Takao",  height => 173, weight => 80.0},
        {name => "Mike",   height => 165, weight => 72.0},
        {name => "Masaki", height => 179, weight => 77.5}
        );
        
print "ソート前：\n";
for (0..$NINSU-1)
{
    printf("%2d:%-8s%4d\n", $_ + 1, $data[$_]{"name"}, $data[$_]{"height"});

}
print "\n";

&sort(\@data, \$NINSU);

print "ソート後：\n";
for (0..$NINSU-1)
{
    printf("%2d:%-8s%4d\n", $_ + 1, $data[$_]{"name"}, $data[$_]{"height"});
}

実行結果

L:\>perl lesson_12_096.pl

メ[ト前：

 1:Sato     178

 2:Sanaka   175

 3:Takao    173

 4:Mike     165

 5:Masaki   179
メ[ト後：

 1:Mike     165

 2:Takao    173

 3:Sanaka   175

 4:Sato     178

 5:Masaki   179

Ruby

NINSU = 5

def sort(data, n)
    k = n - 1
    while (k >= 0)
        j = -1
        for i in 1..k
            if (data[i - 1]["height"] > data[i]["height"])
                j = i - 1
                data[i], data[j] = data[j], data[i]
            end
        end
        k = j
    end
end

data =  [
        {"name" => "Sato",   "height" => 178, "weight" => 61.0},
        {"name" => "Sanaka", "height" => 175, "weight" => 60.5},
        {"name" => "Takao",  "height" => 173, "weight" => 80.0},
        {"name" => "Mike",   "height" => 165, "weight" => 72.0},
        {"name" => "Masaki", "height" => 179, "weight" => 77.5}
        ]
        
puts "ソート前："
data.each_with_index do |d, i|
    printf("%2d:%-8s%4d\n", i + 1, d["name"], d["height"].to_i)
end
puts ""

sort(data, NINSU)

puts "ソート後："
data.each_with_index do |d, i|
    printf("%2d:%-8s%4d\n", i + 1, d["name"], d["height"].to_i)
end

実行結果

L:\>ruby  l:\lesson_12_096.rb

メ[ト前：

 1:Sato     178

 2:Sanaka   175

 3:Takao    173

 4:Mike     165

 5:Masaki   179
メ[ト後：

 1:Mike     165

 2:Takao    173

 3:Sanaka   175

 4:Sato     178

 5:Masaki   179