rk000000282

М ОД У Л Ь У П Р А В Л Е Н И Я С05ШЗ 1000 ’ иниц. рабочего многочлена 'корень за корнем РОК к = п ТО 1 5ТЕР -1 С051Ш 2000 ’ вьгч. радиуса круга гго 'попытка за попыткой РОК 1 = 1 ТО пп с1 = (М0(1) - .5) * гт / 2 с2 = Ш 0 (1 ) - .5) * гт / 2 СОЗПВ 3000 ’ выч. корня 1Р Р1а6 О 0 ТНЕЫ СОТО 10 КЕХТ' 1 10 2 1 (Ю = с1 : г2(к) = с2 С0311В 4000 'сокращение ЫЕХТ к СОЗЦВ 1000 ’ иниц. рабочего многочлена С0511В 2000 ’ выч. радиуса круга гт , уточнение корней РОЕ к = 1 ТО п с1 = г1 (к ) : с2 = г2(к) С08ЦВ 3000 ’ вьгч. корня гИЮ = с1: г2(к) = с2 Л (к ) * Па? ЫЕХТ к С05ШЗ 5000 'вывод корней ЕЫО ' КОНЕ Ц МО Д У Л Я У П Р А В Л Е Н И Я >*********!************************************ ****** >*************************************************** 1000 ’ игасциалиэация рабочего многочлена пг = п РОЯ з * 0 ТО пг Ы ( 3 ) = а1 (3) : Ъ2(Ц = а2(Ц ЫЕХТ з КЕТЛМ >************************************************** 2000 'вычисление радиуса круга гт = 0 РОК ) = 0 ТО пг - 1 гЗ = Ы(пг) * Ы(пг) + Ь2(пг) * Ь2(пг) г1 =» (Ь1 ( з ) * Ы (пг) + Ь2 ( з ) * Ь2(пг)) / гЗ г2 = (Ъ2 ( з ) * Ы (пг) - Ы (Ц * Ь2(пг)) / гЗ Поиск корней полинома на языке Вал!с 121