配列の要素に値を読み込む (#define)

明解Ｃ言語入門編 > 5. 配列 >

C



#include <stdio.h>
#define NINSU 5
int main(int argc, char* argv[])

{

    int i;

    int score[NINSU];

    int sum = 0;
    puts("点数を入力してください。");
    for (i = 0; i < NINSU; i++)

    {

        printf("%d番：", i + 1);

        scanf("%d", &score[i]);

        sum += score[i];

    }
    printf("合計点%d\n", sum);

    printf("平均点%f\n", (double)sum / NINSU);
    return 0;

}

実行結果



R:\>lesson035\project1.exe

点数を入力してください。

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

C++



#include <stdio.h>
int main(int argc, char* argv[])

{

    int i;

    const int NINSU = 5;

    int score[NINSU];

    int sum = 0;
    puts("点数を入力してください。");
    for (i = 0; i < NINSU; i++)

    {

        printf("%d番：", i + 1);

        scanf("%d", &score[i]);

        sum += score[i];

    }
    printf("合計点%d\n", sum);

    printf("平均点%f\n", double(sum) / NINSU);
    return 0;

}

実行結果



T:\>lesson035\project1.exe

点数を入力してください。

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

const

    NINSU = 5;

var

    i: Integer;

    score: array[1..NINSU] of Integer;

    sum: Integer = 0;

begin

    writeln('点数を入力してください。');
    for i := 1 to NINSU do

    begin

        write(format('%d番：', [i]));

        read(score[i]);

        sum := sum + score[i];

    end;
    writeln(format('合計点%d', [sum]));

    writeln(format('平均点%.6f', [sum / NINSU]));

end.

実行結果



S:\>lesson035\project1.exe

点数を入力してください。

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

Perl

use constant NINSU => 5;

$sum = 0;

print "点数を入力してください。\n";

for (0..(NINSU - 1))
{
    printf("%d番：", $_ + 1);
    chomp($score[$_] = <>);
    $sum += $score[$_];
}

printf("合計点%d\n", $sum);
printf("平均点%f\n", $sum / NINSU);

実行結果



L:\>perl lesson_05_035.pl

点数を入力してください。

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

Ruby

NINSU = 5
score = []
sum = 0

puts "点数を入力してください。"

for i in 0..(NINSU - 1)
    printf("%d番：", i + 1)
    score[i] = STDIN.gets.chomp.to_i
    sum += score[i]
end

printf("合計点%d\n", sum)
printf("平均点%f\n", sum.to_f / NINSU)

実行結果



L:\>ruby  l:\lesson_05_035.rb

点数を入力してください。

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000