...
...
 

̲

1.

VI.

V.

IV.

III. -

II.

I.

........

........

........

........

........

VII. ³


i a b f (a) ci f (ci) f (a)*f (ci) xi Ei
... ... ... ... ... ... ... ... ...
i ai b i f (a i) ci= 0,5 (ai + b i) f (ci) f (ai-1)*f (ci) xi= ci Ei
i + 1 ai + 1 bi + 1 f (ai + 1) ci + 1= 0,5 (ai + 1+ bi + 1) f (ci + 1) f (ai + 1)*f (ci + 1) xi + 1 Ei + 1
... ... ... ... ... ... ... ... ...

10 REM> POLDEL

20 PRINT "METOD POLDEL"

30 PRINT "FIO-K-G =?"

40 INPUT "KURS =?", K

50 INPUT "GRUPPA =?", G

60 INPUT "NOMER STUDENT =?", S

70 INPUT "a =?", A

80 INPUT "b =?", B

90 INPUT "E =?", E

100 L = (G-S-1) ^ 2-4 * (1 + S) * G

110 IF L = 0 THEN

120 PRINT "г "

130 x = - (G-S-1) / 2

140 PRINT "x * =", x, GOTO 410

150 ENDIF

160 i = 0

170 fa = a ^ 2 + (G-S-1) * a- (1 + S) * G

180 fb = b ^ 2 + (G-S-1) * b- (1 + S) * G

190 d = fa * fb

200 IF d <0 THEN GOTO 260

210 IF d> 0 THEN

220 PRINT " [a, b]"

230 PRINT "³ "

240 GOTO 410

250 ENDIF

260 x0 = 1000000000

270 i = i + 1

280 c1 = (a + b) / 2

290 x1 = c1

300 fa = a ^ 2 + (G-S-1) * a- (1 + S) * G

310 fb = x1 ^ 2 + (G-S-1) * x1- (1 + S) * G

320 d1 = fa * fb

330 IF d1 <0 THEN b = x1 ELSE a = x1

340 IF ABS (x0-x1)

350 IF ABS (x0-x1)> E THEN

360 x0 = x1

370 GOTO 270

380 ENDIF

390 PRINT "x * =", x1

400 PRINT "i =", i

410 END

1 Ҳ ò

2 Ҳ ϲȪ

3 ҲͲ Ҳ ϲȪ

3.1 ,

3.2 ,

˲

, -. ,  , -. , ' .

, XX . , .

: ', , - , , .

. , , , , .

, , , .

-- | -- Ҳ ϲȪ
...
© om.net.ua