![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
dron4ik |
![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: ![]() ![]() ![]() |
Суть задания:
Решить линейное алгебраическое уравнение второго порядка( я взял 2*x*x+1*x-3) методом итераций 1. Разработать программу для решения с заданной точностью системы линейных алгебраических уравнений методом итераций; --- ЭТО Я ВРОДЕ КАК СДЕЛАЛ НО НЕЗНАЮ ПРАВИЛЬНО ЛИ???(Листинг проги внизу) 2. Произвести уточнение найденного решения; ----- КАК ЭТО ДЕЛАЕТСЯ НЕЗНАЮ ПОМОГИТЕ ПОЖАЛУЙСТА 3. Оценить погрешности вычислений; --- А КАК ОЦЕНИВАЕТСЯ ПОГРЕШНОСТЬ????? это похоже нужно делать вручную Написал код программы который решает методом итераций но я точно незнаю этот ли метод использую в коде. Код работает правильно. Но у меня трудность как можно program piui; {$APPTYPE CONSOLE} function f(x: real): real; begin f := 2*x*x+1*x-3; end; var x, y: real; found: boolean = false; begin x := -2; while x <= 2 do begin y := f(x); if abs(y) < 0.001 then begin writeln('X = ', X:12:6, ' Y = ', Y:12:6); found := true; end; x := x + 0.0005; end; if not found then writeln('no roots...'); readln; end. end. |
![]() ![]() |
![]() |
Текстовая версия | 12.07.2025 22:12 |