mobas.bas

問題　係数の決まっていない酸化還元方程式の係数を決定しなさい。

10 ' Program EQBAL (MATINV)
12 ' Coded by D. W. Rogers and arranged  by H. Kihara
20 DATA 1,0,0,0,0,0   ' a=1
25 DATA 0,1,0,0,-2,0   ' b=2e
30 DATA 0,0,1,0,0,-1   ' c=f
35 DATA 2,0,0,-1,0,0   ' 2a=d
40 DATA 7,0,0,0,-1,0   ' 7a=e
45 DATA -2,1,2,-3,0,-3   ' -2a+b+2c=3d+3f
50 N=6
60 DIM A(30,30)
70 FOR I=1 TO N
80   FOR J=1 TO N
90     READ A(I,J)
100   NEXT J
105 NEXT I
110 GOSUB 180
120 FOR I=1 TO N
130   FOR J= 1 TO N
140     PRINT USING "#### ";A(I,J);
150   NEXT J : PRINT
160 NEXT I
170 END
180 ' サブルーチン　逆行列
190 FOR I=1 TO N
200   X=A(I,I)
210   A(I,I)=1
220   FOR J=1 TO N
230     A(I,J)=A(I,J)/X
240   NEXT J
250   FOR K=1 TO N
260     IF K=I THEN 320
270     X=A(K,I)
280     A(K,I)=0
290     FOR L=1 TO N
300       A(K,L)=A(K,L)-X*A(I,L)
310     NEXT L
320   NEXT K
330 NEXT I
340 RETURN

実行結果


   1    0    0    0    0    0 
  14    1    0    0   -2    0 
   6    1    3    3   -2   -1 
   2    0    0   -1    0    0 
   7    0    0    0   -1    0 
   6    1    2    3   -2   -1

eqbal.bas

酸化還元方程式の係数の決定