Tiny Basicのプログラムで。。

質問

次の5人の学生の成績の個人別の平均点と、科目別の平均点をそれぞれ求め、表示するプログラムを作成せよ。Print Using 文を使うと、きれいな表形式の出力が可能です。
学籍番号　英語 数学 情報　平均
　　１　　　70 60 80
2 50 60 50
3 70 90 100
4 90 100 50
5 40 70 80

という問題があって。。自分なりにやってみたんですが。。

Dim a(5,5)
For i=1 to 5
For j=1 to 5
Read a(i,j)
print a(i,j);
Next j
print
Next i
Data "学生番号","英語","数学","情報","平均"
Data 1,70,60,80,70
Data 2,50,60,50,53
Data 3,70,90,100,87
Data 4,90,100,50,80
Data 5,40,70,80,63
Data "平均",64,76,72,71
End

っていうふうにつくってみたんですがうまくいかなくて。。
みなさん、助けてください＞＜

回答No.1

redowl · ベストアンサー

課題？独学？・・・とりあえず、指摘とヒント
個人別の平均点、科目別の平均点をあらかじめ計算をし、
DATAに配列していますが、
題意から察すると、　平均を求める数式を作成して、且つPRINTUSING　で
見栄えよい表示にする。　ことを求めている。

出力結果が、下記のようになる事をイメージする。このとき、
１００点が最大なので、文字スペース３桁使用である事も考慮。

学生番号　　英語　　数学　　情報　　平均　←（１）
　　　１　　７０　　６０　　８０　　７０　←（２）
　　　２　　５０　　６０　　５０　　５３　←（３）
　　　３　　７０　　９０　１００　　８７　←（４）
　　　４　　９０　１００　　５０　　８０　←（５）
　　　５　　４０　　７０　　８０　　６３　←（６）
　　平均　　６４　　７６　　７２　　７１　←（７）

まず、データを読み込み、格納。（５人分、３科目で１５個分）
Dim　a(5,3)
For i=1 to 5 : For j=1 to 3
Read a(i,j)
次に（１）を実行
Print"学生番号　　英語　　数学　　情報　　平均"
（２）～（６）で、　学生番号の　i　の平均を求める式は、
For i=1 to 5
　Heikin(i)＝Int((a(i,1)+a(i,2)+a(i,3))/3)　　'Average関数でも良い。Int関数で整数化
　　Print 　i , a(i,1) , a(i,2) , a(i,3) , Heikin(i) ’　ここは、PrintUsing文 を使う。（自分で考える）
Next i
（７）で、教科平均　３科目分　求める式を作る。 と、意味あるのかわからないが、１５個の平均を求める。
For j=1 to 3
　Kyouka(j)=Int((a(1,j)+a(2,j)+a(3,j)+a(4,j)+a(5,j))/5)
Next j
AllHeikin=Int((Kyouka(1)+Kyouka(2)+Kyouka(3))/3)

Print文で　"平均”, Kyouka(1) , Kyouka(2) , Kyouka(3) , AllHeikin 'ここもPrintUsing文　で書く。

For～to～文：Next 間の　数式も、さらに改良の余地あり。　ここは、自分で考える。

回答No.2

nac03056

まず、プログラムに関する質問をする場合に、何をやったらどうなった（どう表示された）という情報がないと、答えが絞れなくなります。

で、ＴｉｎｙＢＡＳＩＣそのものは知りませんが、ホームページでチラッと見た限り、昔のＮ－ＢＡＳＩＣに近いものだと思いますので、その範囲の知識でお答えいたします。

このプログラムの場合、ｒｅａｄを２重ループで繰り返していますが、５回を５回で２５回のｒｅａｄがあることになります。ところがｄａｔａ文は３５個ですから不自然です。
つまりは、ａ（）という配列変数は、学籍番号と成績を格納するためのものと想像しますが、ＤＡＴＡ文の一番最初に項目名の文字データが並んでいますので、おそらく最初のｒｅａｄの段階で数字配列変数に"学生番号"という文字を読み込もうとしたエラーが発生することと思います。
で、対処方法としていろいろ考えられますが、簡単なところで、一番最初のｄａｔａ文を１行ごっそり抜いてしまうことでとりあえずそれっぽい表示ができるでしょう。ただ、問題文が要求しているプログラムとは、かなり離れたものですので、再考が必要です。（平均点を自分で計算してｄａｔａ文にしている時点でもうプログラムじゃないですよ。）

さて、具体的なプログラムとして、初期設定とデータ読み込みに、
Dim a(5,3)
For i=1 to 5
For j=1 to 3
Read a(i,j)
Next j
Next i
データ文に関しては
Data 70,60,80
Data 50,60,50
Data 70,90,100
Data 90,100,50
Data 40,70,80
となり、これらの間に横の平均と縦の平均を求める計算の処理を入れ、出力の処理を入れたら出来上がりです。（プログラムの作り方次第では Dim a(5,3) よりも配列を大きく取って合計や平均を入れられるようにしたほうが楽かもしれません）

プログラムの面白いのはここからですので、後は考えてみてください。