Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2009, 22:10   #1
fist53
Новичок
Джуниор
 
Регистрация: 04.06.2009
Сообщений: 2
По умолчанию помогите решить уравнение

Условие задачи: Найти одним из методов с точностью е=0,0001 действительные корни уравнения ( метод биссекции, метод Ньютона, метод итерации или метод секущих.
Уравнение: 3х-cosx-1=0
Кто может это решить помогите пожалуйста сделать
fist53 вне форума Ответить с цитированием
Старый 04.06.2009, 22:11   #2
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

готовый метод секущих.. переделайте сами как вам нужно
Код:
uses
	CRT;
var
	E,x0,x1,y0,y1,x:real;
	imax,i,j,k,m:integer;

function F(x:real):real;
begin
	F := 1-exp(j*ln(abs(x)))-exp(k*ln(abs(pi*exp(m*ln(abs(x)))/4)));
end;

begin
	ClrScr;
        writeln('Enter j,k,m'); readln(j,k,m);
	E:=1.0E-10;
	x0:= 1; x1:= x0+(10-100)*E;
	i:=1; imax:=20;
	y0:=F(x0);
	repeat
		y1:=F(x1);
		x:=x1-(x1-x0)/(y1-y0)*y1;
                writeln('Xn+1 = ',x);
		if abs(x-x1)<E then break;
		x0:=x1; y0:=y1;
		x1:=x; 	inc(i);
	until (i=imax);

	writeln('X = ',x+E:0:10,'; Iterates: ',i);
	readkey;
end.
Uguu~
__STDC__ вне форума Ответить с цитированием
Старый 04.06.2009, 22:35   #3
fist53
Новичок
Джуниор
 
Регистрация: 04.06.2009
Сообщений: 2
По умолчанию

спасибо большое за исходник.буду пытаться сделать
fist53 вне форума Ответить с цитированием
Старый 04.06.2009, 22:47   #4
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

Цитата:
Сообщение от fist53 Посмотреть сообщение
спасибо большое за исходник.буду пытаться сделать
чего там пытаться?)) функцию заменить и порядок погрешности))))
Uguu~
__STDC__ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите,пожалуйста, решить дифференциальное уравнение Emi Свободное общение 1 22.05.2009 17:36
Пожалуйста,помогите решить в Delphi уравнение... ALENA555 Помощь студентам 2 28.03.2009 16:17
Помогите решить уравнение. pascal си неважно или просто алгоритм Mixasik Помощь студентам 5 10.11.2008 18:52