10 PRINT TAB(6);" - "
20 PRINT TAB(8);" N ":PRINT
30 PRINT" (-)";
40 INPUT A$:PRINT:IF A$="" THEN 90
50 PRINT" 500, "
60 PRINT"X(1),X(2),...,X(N)- , -"
70 PRINT TAB(5);"F- F(X(1),X(2),...,X(N)).":PRINT
80 PRINT" , .":GOTO 300
90 DIM X(10),H(10),K(10)
100 PRINT" N- ";:INPUT N
110 PRINT" X,H,K- , "
120 PRINT" :"
130 FOR Z=1 TO N: PRINT" "," X";Z;: INPUT X(Z),H(Z),K(Z): NEXT Z
140 PRINT"E- "
150 PRINT TAB(10);" ";:INPUT E
160 GOSUB 500
170 F2=F
180 FOR Z=1 TO N:N0=0
190 F1=F:X(Z)=X(Z)+H(Z): GOSUB 500
200 IF F 210 N0=N0+1: H(Z)=-H(Z): IF N0=1 THEN 190
220 X(Z)=X(Z)+H(Z):NEXT Z
230 IF F1 240 IF ABS(H(1))<=E THEN 270
250 FOR Z=1 TO N: H(Z)=H(Z)/K(Z):NEXT Z
260 F2=F1:GOTO 180
270 PRINT:PRINT" F "
280 FOR Z=1 TO N:PRINT TAB(17);"X";Z;"=";X(Z):NEXT Z
290 PRINT TAB(10);" ";F1
300 END
500 X=X(1)-1:Y=X(2)-3:F=10*X*X+2*Y*Y+5
510 RETURN
520 END
"" ୮-筨 䠪. 䥤 ⮬⨧.