|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2014, 22:13 | #1 |
Новичок
Джуниор
Регистрация: 05.06.2014
Сообщений: 2
|
Составить программу для решения уравнения f1(х) = 0 и f2(х) = 0 на отрезке [А,В] с точностью Еps методом деления отрезка пополам.
Вот тут оригинал задания:20 вариант https://docviewer.yandex.ru/?url=ya-...c=5390b063be7e
type Ms=array[1..5] of real; func=function(x:real):real; {$F+} function F1(x:real):real; begin F1:=((ln(44.8)-sin(Sqrt(x)))/2)-x; end; function F2(x:real):real; begin F2:=1.5-x-(Sqrt(Abs(x))+Exp(ln(Abs(x))*(1/3)))/Exp(3/2); end; {$F-} procedure EqRoot (const Aa, Bb: real; const E: real; var Idx: byte; var Root: real; F: func); VAR i: integer; a, b, c: real; Begin Idx:=0; a:=Aa; b:=Bb; while abs(b-a) > E do Begin c:= (a + b)/2; if F (a) * F(c) > 0 then a:= c else b:= c; inc(Idx); end; c:= (a+b)/2; Root:=c; end; Const A=0.01; B=1.9999; Eps: Ms=(0.1,0.01,0.001, 0.0001, 0.00001); var Idx1,Idx2: array[1..5] of byte; Root1,Root2: array[1..5] of real; i: integer; f3:real; begin F3:=F2(1.0454034); writeln('+',F3); Writeln('Reshenieя F1 -'); for i:=1 to 5 do begin EqRoot(A, B, Eps[i], Idx1[i], Root1[i], F1); writeln(' Root - ',Root1[i]:2:i); writeln(' Step - ',Idx1[i]); end; Writeln('Reshenieя F2 -'); for i:=1 to 5 do begin EqRoot(A, B, Eps[i], Idx2[i], Root2[i], F2); writeln(' Root - ',Root2[i]:2:i); writeln(' Step - ',Idx2[i]); end; readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дописать программу для нахождения корня ур-ния методом деления отрезка пополам | Lost_Neko | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 19.03.2012 16:29 |
Нахождение корня уравнения на отрезке, методом деления пополам (Pascal) | Word^ | Помощь студентам | 1 | 15.03.2012 21:50 |
Найти корни заданного уравнения методом Золотого сечения, Фибоначи и деления отрезка пополам. Сравнить эф | Nik0919 | Помощь студентам | 2 | 16.02.2010 19:14 |
Решение уравнения методом деления отрезка пополам. Методом секущей. | Panda196 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.11.2008 09:06 |
Вычисление корня уравнения методом деления отрезка пополам | Absent | Помощь студентам | 12 | 25.11.2007 17:54 |