IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Решение линейного алгебраического уравнения, Метод итераций
сообщение
Сообщение #1


Бывалый
****

Группа: Пользователи
Сообщений: 318
Пол: Мужской

Репутация: -  0  +


Суть задания:
Решить линейное алгебраическое уравнение второго порядка( я взял 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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.04.2024 23:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name