10 '----------------------------------------------------------
20 'ƒKƒEƒX�EƒUƒCƒfƒ‹–@
30 '-----------------------------------------------------------
40 input "Œ³‚Ì�” N = ";N
50     C=0:    E=.000001:    Cmax=200
60     DIM A(N,N),B(N),X(N),XK(N)
70 'Aij,Bi
80 for i=1 to N
90     for j=1 to N
100        print "A";i;",";j;"=";
110        input A(i,j)
120    next j
130 next i
140 for i=1 to N
150     print "B";i;"=";
160     input B(i)
170 next i
180 for i=1 to N
190     for j=1 to N
200         print   A(i,j),
210     next j
220     print "    =";B(i)
230 next i
240 'Xi‚Ì”½•œŒvŽZ
250 for i=1 to N
260     X(i)=0
270 next i
280 for i=1 to N
290     XK(i)=X(i)    
300     S = 0
310     for j=1 to N
320         if j=i then goto 340
330         S = S + A(i,j) * X(j)
340     next j
350     X(i)=(1 / A(i,i))*(B(i) - S)
360 next i
370 '
380     SE=0:SX=0
390 for i=1 to N
400     SE = SE + ABS(X(i) - XK(i))
410     SX = SX + ABS(X(i))
420 next i
430 if C>Cmax  then  print :print"‰ð‚È‚µ":END
440 if SE>= E * SX  then C = C+1 :goto 280
450 '�ª‚̈ó�ü
460 print:print"C=";C
470 for i=1 to N
480     print "X";i;" =  ";X(i)
490 next i
500 END