rk000000282

гЗ = ±пг(г1, г2) 1Р гЗ О О ТНЕЫ гЗ - ЕХР(ЬОС(гЗ) / (пг - Ц ) 1Р гЗ > гт ТНЕЫ гт =* гЗ ИЕХТ з гт = 2 * гт ЯЕТШШ ’ ************************************************** 3000 'вычисление корня (метод Ньютона) 11а§ * 1 ’ иниц. признака успеха (Ла^ * 0 - неудача) РОЯ з * 1 ТО пи + 1 С05ЦВ 10000 'многочлен р1+р2*1 1Р Гпг(р1, р2) = 0 ТНЕЫСОТО 30 С051ГВ 20000 'производная <И+Ц2*1 Ь1 = —(р 1 * <11 + р2 * с!2) / (<11 * <11+ <12 * <12) 'поправки Ь2 = - (р2 * <11 - р1 * (12) / (<И * «И + с!2 * й 2 ) ’ Ныотона 1Р *пг(Ь1, Ь2) < ерз ТНЕЫ СОТО 30 с1.= с1 +Ъ.1: с2 = с2 + Ь2 'новое приближение к корню ТЕ Гпг(с1, с2) > 10 ♦ гш ТНЕК СОТО 20 ЫЕХТ з 20 ±1ае - 0 30 НЕТ1ЖЫ ’ ************************************************** 4000 'сокращение на ( г - с ) Я1(пг) = 0: д2(пг) = 0 пг = пг - 1 РОК з = пг ТО 0 5ТЕР -1 ^ 1 ( ^ ) = Ы ( з + 1) + с1 * я.1 С^ + 1) - с2 * ^ 2 ( ^ + 1) Я2(Ц = Ь2(з + 1) + с2 * чИз + 1) + с1 * я2(^ + 1) №ХТ з РОЯ 2 - О ТО пг Ы ( з ) = я1 ( з ) : Ь2( з ) * я2(Ц КЕХТ ] ЯЕТШИ ’ ************************************************** 5000 ' вывод корней РОК з = 1 ТО п РК1ЫТ РЙ1ИТ "истина/ло*ь Яе 1га" РИШТ Г1(з) , 7 Л ( 2 ) , 22(Ц ЫЕХТ з КЕТШИ >**************+*********************************** 122 ____________________ Поиск КОРНЕЙ ПОЛИНОМА НА ЯЗЫКЕ В а 51 С