|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.01.2013, 21:45 | #1 |
Регистрация: 22.01.2013
Сообщений: 3
|
Решение уравнения методом Ньютона Pascal
Проблема вот в чем. Жалоба на функции, якобы тип реал не нужен, подавай boolean. Изменил..там где идет вычисление частного соответственно пишет ошибку, что такие переменные невозможно поделить.
Что делать, идей уже нет... Uses crt; Function f(x : real) : real; Begin f := 5*sin(x+x)=sqrt(1-x); End; Function f1(x : real) : real; Begin f1 := 10*cos(x+x)=-1/(2*sqrt(1-x)); End; Var a : real; b : real; x : real; e : real; en : real; i : integer; Begin clrscr; writeln ('Решение уравнения'); writeln ('Уравнение 5*sin(x+x)=sqrt(1-x)'); write ('Границы:'); read (a, b); write ('Точность:'); read (e); writeln ('решение:'); writeln ('номер шага Значение X'); en := abs(a - b); x := b; i := 1; While (abs(en) > e) Do Begin x := x - f(x) / f1(x); writeln (i : 10, x : 20 : 6); en := abs(x - b); b := x; i := i + 1; End; End. |
22.01.2013, 22:44 | #2 |
Регистрация: 22.01.2013
Сообщений: 3
|
Проблему решил..просто мозг вырубился в функциях f и f1 поставил 2 знака равно..
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решение системы нелинейных алгебраических уравнений методом Ньютона (2 уравнения) | Неопытный | Общие вопросы C/C++ | 0 | 29.05.2012 19:13 |
Turbo Pascal Решение уравнений методом касательных (Ньютона) | Маша-Растеряша | Помощь студентам | 7 | 05.01.2011 23:41 |
решение уравнения методом хорд и методом Ньютона | Маргоша)) | Общие вопросы Delphi | 1 | 21.04.2010 20:40 |
Решение уравнения F(x)=0 методом Ньютона | BGR71 | Помощь студентам | 2 | 13.04.2010 15:26 |
Решение нелинейного уравнения методом Ньютона | Tina | Общие вопросы C/C++ | 2 | 04.06.2008 21:48 |