процедуры

[Maxxx 83]

ПОМОГИТЕ ПОЖАЛЙСТО ДОПИСАТЬ ПРОЦЕДУРЫ



Procedure Dihotomy(Funct:Integer; A,B:Real; E:Real;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
(*В теле этой процедуры напишите свою подпрограмму для решения уравнений
методом дихотомии.
Входные параметры:
Funct:Integer - номер уравнения;
A,B:Real - интервал для поиска корней;
E:Real - заданная точность.
Выходные параметры, возвращаемые процедурой:
X:Real - найденный корень уравнения;
Fx:Real - значение функции в заданном корне;
Iter:Integer - количество итераций, за которое был найден корень;
alpha:Real - параметр сходимости.*)
End;

Procedure Newton(Funct:Integer; A,B:Real; E,E1:Real;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
(*В теле этой процедуры напишите свою подпрограмму для решения уравнений
методом Ньютона.
Входные параметры:
Funct:Integer - номер уравнения;
A,B:Real - интервал для поиска корней;
E,E1:Real - заданные точности.
Выходные параметры, возвращаемые процедурой:
X:Real - найденный корень уравнения;
Fx:Real - значение функции в заданном корне;
Iter:Integer - количество итераций, за которое был найден корень;
alpha:Real - параметр сходимости.*)
End;

Procedure Hord(Funct:Integer; A,B:Real; E:Real;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
(*В теле этой процедуры напишите свою подпрограмму для решения уравнений
методом хорд.
Входные параметры:
Funct:Integer - номер уравнения;
A,B:Real - интервал для поиска корней;
E:Real - заданная точность.
Выходные параметры, возвращаемые процедурой:
X:Real - найденный корень уравнения;
Fx:Real - значение функции в заданном корне;
Iter:Integer - количество итераций, за которое был найден корень;
alpha:Real - параметр сходимости.*)
End;

Procedure Combin(Funct:Integer; A,B:Real; E,E1:Real;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
(*В теле этой процедуры напишите свою подпрограмму для решения уравнений
комбинированным методом.
Входные параметры:
Funct:Integer - номер уравнения;
A,B:Real - интервал для поиска корней;
E,E1:Real - заданные точности.
Выходные параметры, возвращаемые процедурой:
X:Real - найденный корень уравнения;
Fx:Real - значение функции в заданном корне;
Iter:Integer - количество итераций, за которое был найден корень;
alpha:Real - параметр сходимости.*)
End;

Procedure Golden(Funct:Integer; A,B:Real; E:Real;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
(*В теле этой процедуры напишите свою подпрограмму для решения уравнений
методом золотого сечения.
Входные параметры:
Funct:Integer - номер уравнения;
A,B:Real - интервал для поиска корней;
E:Real - заданная точность.
Выходные параметры, возвращаемые процедурой:
X:Real - найденный корень уравнения;
Fx:Real - значение функции в заданном корне;
Iter:Integer - количество итераций, за которое был найден корень;
alpha:Real - параметр сходимости.*)
End;

Procedure Iteration(Funct:Integer; A,B:Real; E:Real;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
(*В теле этой процедуры напишите свою подпрограмму для решения уравнений
методом итераций.
Входные параметры:
Funct:Integer - номер уравнения;
A,B:Real - интервал для поиска корней;
E:Real - заданная точность.
Выходные параметры, возвращаемые процедурой:
X:Real - найденный корень уравнения;
Fx:Real - значение функции в заданном корне;
Iter:Integer - количество итераций, за которое был найден корень;
alpha:Real - параметр сходимости.*)
End;


Procedure Lab1(Funct:Integer; A,B:Real; E,E1:Real; Method:Integer;
var X, Fx:Real; var Iter:Integer; var alpha:Real);
Begin
case Method of
1:Dihotomy(Funct,A,B,E,X,Fx,Iter,al pha);
2:Newton(Funct,A,B,E,E1,X,Fx,Iter,a lpha);
3:Hord(Funct,A,B,E,X,Fx,Iter,alpha) ;
4:Combin(Funct,A,B,E,E1,X,Fx,Iter,a lpha);
5:Golden(Funct,A,B,E,X,Fx,Iter,alph a);
6:Iteration(Funct,A,B,E,X,Fx,Iter,a lpha);
end;
End;

[madmot]

попробуй это.
вообще, классические методы лучше знать...

[Maxxx 83]

Огромное спасибо, буду должен!!

[Vladymyr1986]

Сообщение от Maxxx 83

Огромное спасибо, буду должен!!

Сейчас решаю аналогичную задачу. Ты мог бы прислать решение, ну или хотя бы обьясни что значит параметр сходимости?