rk000000282

СЬЗ РИШТ " Введите данные " 10 1ЫР11Т "Введи коэффициент при у ’ ’ а1=", а1 1Р а1=0. ТНЕИ СО ТО 10 1КР1ГГ "Введи коэффициент при у ’ а2=" , а2 1ЫР1Л "Введи коэффициент при у аЗ=", аЗ МРОТ "Введи начальное значение Ъ0=", Ъ0 ШРОТ "Введи начальное условие у(Р0)=", Ы 1ЫР11Т "Введи начальное условие у ’ Ц0) =", Ъ2 1ЫР1ЛГ "Введи шаг метода Эйлера , Р 20 1КРЧТ "Число звеньев ломаной Эйлера п=" , п Iр т, < цп л- 1 тисы СОТО 30 РК1ЫТ "Ч исло звеньев ломаной Эйлера больше " , пп СОТО 20 'обнуление массивов 30 РОК 1 = 0 ТО 50 У1(1) = о у2( 1 ) = О ЫЕХТ 1 ' КОНЕ Ц Б Л О К А . Н А З Н А Ч Е Н И Я > ) ■МОДУЛЬ У П Р А В Л Е Н И Я >**************************************************** 'инициализация приближенного решения с =« -ьо у1(0) = Ы • у2(0) = Ъ2 >**************************************************** > * значения приближенного решения . . . ’ точка за точкой Е0К 1 = 1 ТО п Р = Р + ь у1(1) = у1(1 - 1) + Ь ♦ у2 ( 1 - 1) у 1 = Цпи(Р) - а2 * у2(1 - 1) - аЗ * у1(1 - 1)) /а1 у2Ш = у2(1 - 1) + Ь * уа ЫЕХТ 1 7 >***************************************************** > ’ вывод таблицы значений на печать Метод Эйлера на языке Вазге 125