|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.11.2010, 01:12 | #1 |
Новичок
Джуниор
Регистрация: 26.09.2010
Сообщений: 0
|
задача на Delphi
Ребят помогите исправить ошибку в задачи...
условие: Рассматриваются два ур-я вида F(x)=0,варианты уже добавленны в задаче.Программа должна дважды вызывать подпрограмму приближенного решения ур-я ,которая своим параметром имеет функцию,определяющую левую часть ур-я. program Project4; {$APPTYPE CONSOLE} uses SysUtils; type fn=function(x:real):real; var r1,r2,a,b,e:real; function fx1(x:real):real; begin fx1:=exp(1/3*ln(x))-abs(14*sin(x+2/3))/(x+pi)+exp(1.9*x)+x*sqr(x) end; function fx2 (x:real):real; begin fx2:=abs(sin(exp(2/3*ln(x))))-4*ln(1.5-x)-sqr(0.31+(exp(2*pi-x)))/9 end; function root(fx:fn; a,b,e:real):real; var x,c:real; begin while abs(a-b)>e do begin c:=(a+b)/2; if fx(a)*fx(c)<0 then b:=c else a:=c; end; x:=(a+b)/2; root:=x; end; begin writeln('input a,b,e'); readln(a, b, e); r1:=root(fx1,a,b,e); r2:=root(fx2,a,b,e); writeln('koren r1=',r1:7:4); writeln('koren r2=',r2:7:4); readln ; end. |
19.11.2010, 01:44 | #2 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
Сделаю в лучшем виде! 255507394
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
19.11.2010, 15:40 | #3 |
Новичок
Джуниор
Регистрация: 15.06.2010
Сообщений: 0
|
Пиши, решу Дёшево
ICQ: 410691984 |
19.11.2010, 17:31 | #4 |
323787261
Пользователь
Регистрация: 19.12.2008
Сообщений: 49
|
ICQ: 323787261
Email: pschegolevatykh@gmail.com Обращайтесь. P.S. Даже не знаю сколько брать за такую работу.
ICQ: 323787261
Email: pschegolevatykh@gmail.com |
20.11.2010, 00:40 | #5 |
Регистрация: 15.05.2010
Сообщений: 3
|
437675148 пиши, я знаю)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача в delphi | poison777 | Помощь студентам | 6 | 18.09.2010 18:57 |
Задача по Delphi 7 | StudentMarat | Помощь студентам | 4 | 16.04.2009 16:37 |
Задача в Delphi | Chidory | Помощь студентам | 2 | 25.10.2008 12:28 |