Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Программа вычисления корня нелинейного уравнения



методом Ньютона с использованием разветвления «IF…»

10 PRINT " NEWTON`S METOD"

20 PRINT "FIO-K-G"

30 INPUT "GRUPPA =?", G

40 INPUT "NOMER STUDENT =?", S

50 xo=S+25

60 INPUT "E=?",E

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

80 IF L=0 THEN

90 PRINT "уравнение имеет один корень"

100 xk=-(G-S-1)/2

110 PRINT "xk=",xk

120 ENDIF

130 i=0

140 i=i+1

150 fxo=xo^2+(G-S-1)*xo-(1+S)*G

160 fpxo=2*xo+(G-S-1)

170 x1=xo-fxo/fpxo

180 E1=ABS(x1-xo)

190 IF E1<E THEN GOTO 240

200 IF E1>E THEN

210 xo=x1

220 GOTO 140

230 ENDIF

240 PRINT "xk= ",x1

250 PRINT "i=",i

260 END


Программа вычисления корня нелинейного уравнения

методом Ньютона с использованием цикла «ДО»

Версия

10 PRINT " NEWTON`S METOD-DO"

20 PRINT "FIO-K-G"

30 INPUT "GRUPPA =?", G

40 INPUT "NOMER STUDENT =?", S

50 xo=S+25

60 INPUT "E=?",E

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

80 IF L=0 THEN

90 PRINT "уравнение имеет один корень"

100 xk=-(G-S-1)/2

110 PRINT "xk=",xk

120 GOTO 240

130 ENDIF

140 i=0

150 REPEAT

160 i=i+1

170 fxo=xo^2+(G-S-1)*xo-(1+S)*G

180 fpxo=2*xo+(G-S-1)

190 x1=xo-fxo/fpxo

200 E1=ABS(x1-xo)

210 xo=x1

220 UNTIL E1<E

230 PRINT "xk= ",x1

240 PRINT "i=",i

250 END


Версия

10 PRINT " NEWTON`S METOD-DO"

20 PRINT "FIO-K-G"

30 INPUT "GRUPPA =?", G

40 INPUT "NOMER STUDENT =?", S

50 xo=S+25

60 INPUT "E=?",E

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

80 IF L<0 THEN PRINT "нет вещественных корней"

90 IF L=0 THEN

100 PRINT " уравнение имеет один корень "

110 xk=-(G-S-1)/2

120 PRINT "xk=",xk

130 ENDIF

140 PRINT "L=",L

150 i=0

160 REPEAT

170 i=i+1

180 x1=xo-((xo^2+(G-S-1)*xo-(1+S)*G)/(2*xo+(G-S-1)))

190 E1=ABS(xo-x1)

200 xo=x1

210 UNTIL E1<E

220 PRINT "xk= ",xo

230 PRINT "i=",i






Дата публикования: 2015-04-06; Прочитано: 172 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.008 с)...