5人の点数を読み込んで合計点と平均点を表示
明解C言語 入門編 > 5. 配列 >
5人の点数を読み込んで合計点と平均点を表示
C
#include <stdio.h>
int main(int argc, char* argv[])
{
int score1;
int score2;
int score3;
int score4;
int score5;
int sum = 0;puts("点数を入力してください。");
printf("1番:");
scanf("%d", &score1);printf("2番:");
scanf("%d", &score2);printf("3番:");
scanf("%d", &score3);printf("4番:");
scanf("%d", &score4);printf("5番:");
scanf("%d", &score5);sum += score1;
sum += score2;
sum += score3;
sum += score4;
sum += score5;printf("合計点%d\n", sum);
printf("平均点%f\n", (double)sum / 5);return 0;
}
実行結果
R:\>lesson029\project1.exe
点数を入力してください。
1番:95
2番:83
3番:85
4番:63
5番:89
合計点415
平均点83.000000
Delphi
program Project1;{$APPTYPE CONSOLE}
uses
SysUtils;
var
score1, score2, score3, score4, score5: Integer;
sum: Integer = 0;
begin
writeln('点数を入力してください。');write('1番:');
read(score1);write('2番:');
read(score2);write('3番:');
read(score3);write('4番:');
read(score4);write('5番:');
read(score5);sum := sum + score1;
sum := sum + score2;
sum := sum + score3;
sum := sum + score4;
sum := sum + score5;writeln(format('合計点%d', [sum]));
writeln(format('平均点%.6f', [sum / 5.0]));
end.
実行結果
S:\>lesson029\project1.exe
点数を入力してください。
1番:95
2番:83
3番:85
4番:63
5番:89
合計点415
平均点83.000000
Perl
print "点数を入力してください。\n"; print "1番:"; chomp($score1 = <>); print "2番:"; chomp($score2 = <>); print "3番:"; chomp($score3 = <>); print "4番:"; chomp($score4 = <>); print "5番:"; chomp($score5 = <>); $sum = 0; $sum += $score1; $sum += $score2; $sum += $score3; $sum += $score4; $sum += $score5; print "合計点$sum\n"; printf("平均点%f\n", $sum / 5);
実行結果
L:\>perl lesson_05_029.pl
点数を入力してください。
1番:95
2番:83
3番:85
4番:63
5番:89
合計点415
平均点83.000000
Ruby
puts "点数を入力してください。" print "1番:" score1 = STDIN.gets.chomp.to_i print "2番:" score2 = STDIN.gets.chomp.to_i print "3番:" score3 = STDIN.gets.chomp.to_i print "4番:" score4 = STDIN.gets.chomp.to_i print "5番:" score5 = STDIN.gets.chomp.to_i sum = 0 sum += score1 sum += score2 sum += score3 sum += score4 sum += score5 print "合計点#{sum}\n" printf("平均点%f\n", sum / 5)
実行結果
L:\>ruby l:\lesson_05_029.rb
点数を入力してください。
1番:95
2番:83
3番:85
4番:63
5番:89
合計点415
平均点83.000000