shinsa14のプロフィール

@shinsa14 shinsa14
ありがとう数2
質問数5
回答数1
ベストアンサー数
0
ベストアンサー率
0%
お礼率
70%

  • 登録日2001/03/08
  • どこが違うか分かりません

    open OUT, "kekka.dat"; $name1 = "荒木"; $name2 = "井上"; $name3 = "上田"; $name4 = "江口"; $name5 = "小川"; $san = "さん"; $kun = "くん"; %kokugo = (araki =>94, inoue => 73, ueda =>76, eguchi => 69, ogawa =>84); %sugaku = (araki =>81, inoue => 93, ueda =>64, eguchi => 83, ogawa =>74); %eigo = (araki =>89, inoue => 85, ueda =>81, eguchi => 75, ogawa =>87); print %kokugo print %sugaku print %eigo $score[1] = $kokugo{araki} + $sugaku{araki} + $eigo{araki}; $score[2] = $kokugo{inoue} + $sugaku{inoue} + $eigo{inoue}; $score[3] = $kokugo{ueda} + $sugaku{ueda} + $eigo{ueda}; $score[4] = $kokugo{eguchi} + $sugaku{eguchi} + $eigo{eguchi}; $score[5] = $kokugo{eguchi} + $sugaku{eguchi} + $eigo{eguchi}; print $score; print OUT $name1.$kun, $score[1], $score[1]/3; print OUT $name2.$san, $score[2], $score[2]/3; print OUT $name3.$kun, $score[3], $score[3]/3; print OUT $name4.$kun, $score[4], $score[4]/3; print OUT $name5.$san, $score[5], $score[5]/3; close OUT; 教えてください