home > 写経編 > 柴田望洋『明解C言語 入門編』 > 12. 構造体 >

ForNext

Only Do What Only You Can Do
home | index | 前へ | 次へ |

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

VBScript

TOP

JScript

TOP

Perl

更新日 : 2010.10.18
$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
TOP

PHP

更新日 : 2010.11.03
<?php
$NINSU = 5;

function swap(&$x, &$y)
{
    $tmp = $x;
    $x   = $y;
    $y   = $tmp;
}

function sort1(&$data, $n)
{
    $k = $n - 1;
    while ($k >= 0)
    {
        $j = -1;
        for ($i = 1; $i <= $k; $i++)
        {
            if ($data[$i - 1]["height"] > $data[$i]["height"])
            {
                $j = $i - 1;
                swap($data[$i], $data[$j]);
            }
        }
        $k = $j;
    }
}

$data = array(
        array(name => "Sato",   height => 178, weight => 61.0),
        array(name => "Sanaka", height => 175, weight => 60.5),
        array(name => "Takao",  height => 173, weight => 80.0),
        array(name => "Mike",   height => 165, weight => 72.0),
        array(name => "Masaki", height => 179, weight => 77.5)
        );

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

sort1($data, $NINSU);

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

L:\>php lesson_12_096.php
ソート前：
 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
TOP

Python

更新日 : 2010.11.17
# coding: Shift_JIS

NINSU = 5

def sort(data, n):
    k = n - 1
    while (k >= 0):
        j = -1;
        for i in range(1, k + 1, 1):
            if (data[i - 1]["height"] > data[i]["height"]):
                j = i - 1
                data[i], data[j] = data[j], data[i]
        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 "ソート前："
for i in range(0, NINSU, 1):
     print "%2d:%-8s%4d" % (i + 1, data[i]["name"], data[i]["height"])

print

sort(data, NINSU)

print "ソート後："
for i in range(0, NINSU, 1):
     print "%2d:%-8s%4d" % (i + 1, data[i]["name"], data[i]["height"])

N:\>python lesson_12_096.py
ソート前：
 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
TOP

Ruby

更新日 : 2010.11.01
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
TOP

PowerShell

TOP

Scala

TOP

F#

TOP

C

更新日 : 2010.10.08
#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
TOP

C++

TOP

C++Builder

TOP

VC++

TOP

C#

TOP

Java

更新日 : 2010.11.05
class Lesson096 {
    static final int NINSU = 5;

    public static void main(String[] args) {
        CStudent[] data = new CStudent[NINSU];
        data[0] = new CStudent("Sato",    178, 61.0);
        data[1] = new CStudent("Sanaka",  175, 60.5);
        data[2] = new CStudent("Takao",   173, 80.0);
        data[3] = new CStudent("Mike",    165, 72.0);
        data[4] = new CStudent("Masaki",  179, 77.5);

        System.out.println("ソート前：");
        for (int i = 0; i < NINSU; i++)
            System.out.printf("%2d:%-8s%4d%6.1f\n", i + 1, data[i].name, data[i].height, data[i].weight);
        System.out.println("");

        sort(data, NINSU);

        System.out.println("ソート後：");
        for (int i = 0; i < NINSU; i++)
            System.out.printf("%2d:%-8s%4d%6.1f\n", i + 1, data[i].name, data[i].height, data[i].weight);
    }

    static void sort(CStudent data[], int n) {
        int k = n - 1;
        while (k >= 0) {
            int j = -1;
            for (int i = 1; i <= k; i++) {
                if (data[i - 1].height > data[i].height) {
                    j = i - 1;
                    CStudent tmp = data[i];
                    data[i]      = data[j];
                    data[j]      = tmp;
                }
            }
            k = j;
        }
    }
}

class CStudent {
    public String name;
    public int    height;
    public double weight;

    public CStudent(String name, int height, double weight) {
        this.name   = name;
        this.height = height;
        this.weight = weight;
    }
}

L:\>java Lesson096
ソート前：
 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
TOP

Objective-C

TOP

D

TOP

VB

TOP

VB.NET

TOP

Delphi

更新日 : 2010.09.24
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
TOP

Ada

TOP

PL/SQL

TOP

T-SQL

TOP

スクリプト系

関数型

C, Java 系

Pascal, Basic 系

inserted by FC2 system