 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Лабораторная работа №2
Function
f(x:real):real;
Begin
f:=(x*x*x*x)-(45*x*x*x)+(593*x*x)-(1731*x)-6210;
end;
Function
fsh(x:real):real;
Begin
fsh:=12*x*x-270*x+1186;
end;
Begin
eps:=0.0001;
writeln ('Введите крайний левый интервал');
readln (a);
writeln ('Введите крайний правый интервал');
readln (b);
x1:=a;
x:=b;
if f(a)*fsh(a)>0 then
while (abs (x-x1)> eps) do
Begin
x:=b-(f(b)*(b-a))/(f(b)-f(a));
b:=x;
x1:=b-(f(b)*(b-a))/(f(b)-f(a));
End
Else
while (abs (x-x1)> eps) do
Begin
x:=a-(f(a)*(a-b))/(f(a)-f(b));
a:=x;
x1:=a-(f(a)*(a-b))/(f(a)-f(b));
end;
writeln ('x=', x1:2:4);
end.
Алгоритм:
Результаты:
Министерство образования, науки, молодежи и спорта Украины
НТУ «ХПИ»
Кафедра «Промышленная и биомедицинская электроника»
Вычислительная математика
Лабораторная работа №2
«Решение линейных уравнений»
Выполнил:
Студент группы ЭМС-40а
Бутенко Александр
Принял:
Стысло Б.А.
Харьков 2011
Поиск по сайту: