|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
27.03.2014, 20:05 | #1 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
PascalABC.Net
program b1;
uses crt; var a,b,c,e,i,d:real; function F(x:real):real; begin F:=(sin(0.5*x+0.1)/cos(0.5*x+0.1))/sqr(x); end; function F1(x:real):real; begin F1:=0.5/(sqr(cos(0.5*x+0.1)))-2*x; end; function F2(x:real):real; begin F2:=0.5*cos(0.5*x+0.1)*sin(0.5*x+0. 1)-2; end; Procedure K; label 3; begin if F(a)*F2(a)>0 then begin c:=b; d:=a; end else begin c:=a; d:=b; end; 3:if abs(f(c))<e then writeln('koren =', c:5:5) else begin c:=c-((c-d)/(f(c)-F(d)))*F(c); goto 3; end; end; Procedure H; label 4; begin if f(a)*f2(a)>0 then c:=a else c:=b; 4:if abs(f(c))<e then writeln('koren=',c:5:5) else begin c:=c-(f(c)/f1(c)); goto 4; end; end; begin writeln('a and b'); readln(a,b); writeln('e'); readln(e); writeln('Каким методом решать?'); writeln('1:Метод хорд'); writeln('2:Метод касательных'); readln(i); if i=1 then K else H; readkey; end. РЕБЯТ НА МОГУ НАПИСАТЬ ПРАВИЛЬНО ПРОИЗВОДНУЮ ПРОГРАММА РАБОТАЕТ , РАБОТАЕТ ОБА МЕТОДА , НО КОРНИ ПОЛУЧАЮТСЯ РАЗНЫЕ, А ДОЛЖНЫ ОДИНАКОВЫЕ ПРОВЕРЬТЕ ПЛИЗ ПРОИЗВОДНЫЕ , ГДЕ ОШИБКА |
27.03.2014, 20:28 | #2 | ||
Старожил
Регистрация: 03.01.2014
Сообщений: 2,870
|
Цитата:
Цитата:
|
||
27.03.2014, 21:03 | #3 |
Форумчанин
Регистрация: 12.03.2014
Сообщений: 217
|
tg 0,5x + 0,1 = x^2
исходное уравнение |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Гистаграммы, PascalABC.NET | Ajmda | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 02.05.2012 22:23 |
PascalABC.NET | v1ktor | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 21.06.2011 13:58 |
Типы PascalABC.NET | ofenod | Помощь студентам | 0 | 14.05.2011 22:20 |
PascalABC.net | gogomon93 | Помощь студентам | 5 | 17.04.2011 18:48 |
PascalABC.net | *stRong* | Помощь студентам | 2 | 10.06.2010 17:50 |