10 PRINT ‘ РЕШЕНИЕ СИСТЕМЫ НЕЛИНЕЙНЫХ УРАВНЕНИЙ’
20 PRINT ‘ МОДИФИЦИРОВАННЫМ МЕТОДОМ НЬЮТОНА’
30 INPUT ‘ ЗАДАЙТЕ ЧИСЛО УРАВНЕНИЙ N=’N:DIM A(N,N),B(N),X(N),F(N)
40 INPUT ‘ЗАДАЙТЕ МАКСИМАЛЬНОЕ ЧИСЛО ИТЕРАЦИЙ M=’M
50 INPUT  ‘ЗАДАЙТЕ ОТНОСИТЕЛЬНУЮ ПОГРЕШНОСТЬ E=’E:LETS=0
60 FOR I=1 TO N:PRINT !2.0! ‘ВВЕДИТЕ X’I’(0)’
70 INPUT X(I):NEXT I
80 GOSUB 260:FOR I =1 TO N:LETB (I) = -F(I):NEXT I
90 FOR J=1 TO N:LETX = X(J):LETH = E*ABS(X)
100 LETX(J) = X+H:GOSUB 260:FOR I =1 TO N
110 LETA (I,J) = (F(I)+B(I))/H:NEXT I:LETX(J) = X:NEXT J
120 LETS = S+1: IF S=M+1 THEN PRINT ‘ЧИСЛО ИТЕРАЦИЙ S=M’:STOP
130 FOR I=1 TO N-1:FOR J=I+1 TO N
140 LETA(J,I) = -A(J,I)/A(I,I):FOR K=I+1 TO N
150 LETA(J,K)=A(J,K)+A(J,I)*A(I,K): NEXT K
160 LETB(J) = B(J)+A(J,I)*B(I):NEXT J:NEXT I
170 LETF(N) = B(N)/A(N,N):FOR I = N-1 TO 1 STEP -1
180 LETH = B(I):FOR J=I+1 TO N:LETH = H-F(J)*A(I,J):NEXT J
190 LETF(I) = H/A(I,I):NEXT I:LETR = 0
200 FOR I = 1 TO N:LETX(I) = X(I)+F(I)
210 IF ABS(F(I)/X(I))>E THEN LETR = 1
220 NEXT I : IF R=1 THEN 80
230 PRINT ‘РЕШЕНИЕ СИСТЕМЫ’
240 FOR I=1 TO N:PRINT !2.0! ‘X’I!F1.9!’ = ‘X(I):NEXT I
245 PRINT !2.0! ‘ЧИСЛО ИТЕРАЦИЙ S = ‘S:STOP
250 REM’ПОДПРОГРАММА ВЫЧИСЛЕНИЯ F(I)=F(X(1),X(2),...,X(N))’
260 LETF (1)=X(1)+3*LGT(X(1))-X(2)*X(2)
270 LETF(2) = 2*X(1)*X(1)-X(1)*X(2)-5*X(1)+1
280 RETURN:END