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
"ö" ö¦„„ą®-å÷¬÷稩 ä Ŗć«ģā„ā. ä„¤ą ¢ā®¬ ⨧ ę÷ł.