Читала FAQ, нашла код. Интегрирование методом каких именно проямоугольников? Помогите разобраться!
Мне необходимы все - правые, левые и средние. Подскажите, плз, где собака порылась (в смысле, что где менять, дабы изменить на "нужные" прямоугольники).
Пожалуйста!!!
Вот
тут посмотри, я думаю, ты разберешься, в чем разница между методом "левых" и "правых" прямоугольников
Ну, а центральные прямоугольники есть у нас в FAQ-е...
Пасиба :-)
Популярное объяснение :-)
volvo, вопрос - не знаю, выносить ли в отдельную тему... Error 205 - как с этим бороться?
Error 205 - это переполнение... Результат операции - слишком большой для заданного типа переменной. Можно попробовать сменить тип переменной (с Real на Double или Extended, например), но скорее всего это не поможет... Приведи код, в котором это происходит, посмотрим, что можно сделать...
ругается на последней процедуре SimpleIter - до ее добавления все работало...
...я пробовала на Extended менять (шоб не мало було ;))...
Попробуй так:
Код
function FuncX (x: Extended): Extended;
begin
FuncX := Sin(x) + 0.25
end;
Procedure SimpleIter (F: func; a, Eps: extended);
var
PriblN, PriblH: extended;
n: integer;
begin
n := 0;
PriblH := a;
repeat
PriblN := PriblH;
PriblH := F (PriblN);
Inc (n);
until Abs (PriblN - PriblH) < eps;
WriteLn ('x =', PriblH : 10 : 5);
WriteLn ('Количество итераций = ', n);
end;
...
SimpleIter (FuncX , 1, Eps);
Заставить работать с функцией F2 не получилось. Всё равно выдаёт ошибку, даже во Free Pascal.
пасиба, и так пробовала... не могу понять, что ей во второй функции не нравится... и нафиг такое выражение преподам задавать, если оно считаться не хочет...!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.