rk000000282

Поиск корней полинома на языке Ваsiс К0ЯЫ1.ВА5 'Программа вычисления комплексных корней произвольного ’ многочлена с действительными коэффициентами ’ Для настройки программы на случаи многочлена с комплексными 'коэффициентами замените один оператор в блоке назначения КЕУ(1) ОЫ: ОЫКЕУ(1) С05ЦВ 100000 0ЕР1ЛТ Р, Л-Ы: РЕРБВЬ А-С, Н, Р-Ц, 2 01М а1 (20) , а2(20) : ММ Ы (2 0 ) , Ь2(20) Б1М Ч1 (2 0 ) , я 2 (20 ) : Е>1М 11(20) , 2 1 (2 0 ) , г2(20) РЕР 1пг (а, Ь) = 5ЦЯ(а * а + Ъ * Ъ) ' Н А Ч А Л О Б Л О К А Н А З Н А Ч Е Н И Я >*** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * пп = 10 'число попыток вьгч. одного корня гш = 100 ' максим, число итераций Ньютона ере * .0000001 'параметр точности ’ ************************************************** СЬ5 1МР1ГТ "Введите порядок многочлена , п РК11Л " Пусть I - мнимая единица." РИШТ " Введите комплексные коэффициенты" РЕЮТ " а (Ц = аИЦ + а 2 ф * 1 " РШИТ " многочлена" РК1ЯТ " а(п)*г**п + . . . + а (1 )* г + а ( 0 ) , " РК1ИТ " сверху вниз!" РОЙ ] = п ТО 0 5ТЕР -1 РК1Ж "коэффициент при 2 * * " , 1ЫР1ГГ а1(Ц а2(Ц = 0 ЫЕХТ з ' К О Н Е Ц Б Л О К А Н А З Н А Ч Е Н И Я Приложение 2