行列に関するプログラムについて

質問

『m×n 型行列Aの最大成分と最小成分を捜し、それぞれの行番号と列番号を出力するプログラムを作れ』という問題です。
　以下のようにＢＡＣＩＣで考えたのですが、うまく行番号と列番号を出力するプログラムを作れません。アドバイスいただければと思います。宜しくお願い致します。

100 INPUT m
110 INPUT n
120 DIM A(m,n)
130 MAT INPUT A
140 FOR i=1 TO m
150 FOR j=1 TO n-1
160 LET s=A(i,j)
170 LET t=A(i,j)
180 IF A(i,j)＜A(i,j+1) THEN LET s=A(i,j+1)
190 IF A(i,j)＞A(i,j+1) THEN LET t=A(i,j+1)
200 NEXT j
210 NEXT i
220 PRINT "最大成分は";s,"最小成分は";t

回答No.3

nag0720 · ベストアンサー

＞しかし、200行において、sにiを、tにjを代入し、210行において、pにiを、qにjを代入したいのですが、上手くいきません。

200 IF A(s,t)<A(i,j) THEN LET s=i LET t=j

のような書き方はできません。
THENの後に命令を２つ以上実行したい場合は、

200 IF A(s,t)<A(i,j) THEN
201 LET s=i
202 LET t=j
203 END IF

のような書き方をします。

あと、

190 FOR j=2 TO n

は、NGです。
これだと、A(1,1)は初期値としているのでいいんですが、A(2,1)やA(3,1)などが調べられていません。

190 FOR j=1 TO n

としなければなりません。

お礼

nag0720様ありがとうございます。「IF ～ END IF」文をすっかり忘れておりました。お陰様で、プログラムも動きました。大変ありがとうございました。

回答No.2

nag0720

sとtも最大最小にはなってないよ。
自分がコンピュータになったつもりで、それぞれの変数がどういう値をなるのか紙に書きながら調べて見ましょう。

お礼

nag0720様ありがとうございます。次のように考えてみました。しかし、200行において、sにiを、tにjを代入し、210行において、pにiを、qにjを代入したいのですが、上手くいきません。もし宜しければアドバイスいただければと思います。
100 INPUT m
110 INPUT n
120 DIM A(m,n)
130 MAT INPUT A
140 LET s=1
150 LET t=1
160 LET p=1
170 LET q=1
180 FOR i=1 TO m
190 FOR j=2 TO n
200 IF A(s,t)<A(i,j) THEN LET s=i LET t=j
210 IF A(p,q)>A(i,j) THEN LET p=i LET q=j
220 NEXT j
230 NEXT i
240 PRINT "最大成分はA(";s;",";t;")、最小成分はA(";p;",";q;")"
250 END

補足

nag0720様ありがとうございます。以下のように訂正させていただき、BASICで確かに最大・最小の値は求めることはできました。しかし、最大・最小の値をもつ行・列を出力することができません。
お手数おかけ致しますが、アドバイスいただければと思います。
　100 INPUT m
　110 INPUT n
　120 DIM A(m,n)
　130 MAT INPUT A
　140 LET s=A(1,1)
　150 LET t=A(1,1)
　160 FOR i=1 TO m
　170 FOR j=1 TO n-1
　180 IF s<A(i,j+1) THEN LET s=A(i,j+1)
　190 IF t>A(i,j+1) THEN LET t=A(i,j+1)
　200 NEXT j
　210 NEXT i
　220 PRINT "最大成分は";s,"最小成分は";t
　230 END

回答No.1

Tacosan

「行番号」や「列番号」を出力するためにはそれらを記憶しておかないとだめだよね.

補足

Tacosan様ありがとうございます。次のように考えてみました。しかし、200行において、sにiを、tにjを代入し、210行において、pにiを、qにjを代入したいのですが、上手くいきません。もし宜しければアドバイスいただければと思います。
100 INPUT m
110 INPUT n
120 DIM A(m,n)
130 MAT INPUT A
140 LET s=1
150 LET t=1
160 LET p=1
170 LET q=1
180 FOR i=1 TO m
190 FOR j=2 TO n
200 IF A(s,t)<A(i,j) THEN LET s=i LET t=j
210 IF A(p,q)>A(i,j) THEN LET p=i LET q=j
220 NEXT j
230 NEXT i
240 PRINT "最大成分はA(";s;",";t;")、最小成分はA(";p;",";q;")"
250 END