Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Интегрирование методом ... прямоугольников
Автор: Jill 31.12.2005 5:04
Читала FAQ, нашла код. Интегрирование методом каких именно проямоугольников? Помогите разобраться!
Мне необходимы все - правые, левые и средние. Подскажите, плз, где собака порылась (в смысле, что где менять, дабы изменить на "нужные" прямоугольники).
Пожалуйста!!!
Автор: volvo 31.12.2005 17:12
Вот http://soft32.ru/delphi.shtml?topic=syntax&title=calc_integral2 посмотри, я думаю, ты разберешься, в чем разница между методом "левых" и "правых" прямоугольников 
Ну, а центральные прямоугольники есть у нас в FAQ-е...
Автор: Jill 3.01.2006 20:28
Пасиба :-)
Популярное объяснение :-)
volvo, вопрос - не знаю, выносить ли в отдельную тему... Error 205 - как с этим бороться?
Автор: volvo 3.01.2006 21:23
Error 205 - это переполнение... Результат операции - слишком большой для заданного типа переменной. Можно попробовать сменить тип переменной (с Real на Double или Extended, например), но скорее всего это не поможет... Приведи код, в котором это происходит, посмотрим, что можно сделать...
Автор: Jill 3.01.2006 21:39
ругается на последней процедуре SimpleIter - до ее добавления все работало...
...я пробовала на Extended менять (шоб не мало було ;))...
Прикрепленные файлы
BISEC.PAS ( 2.53 килобайт )
Кол-во скачиваний: 277
Автор: Romtek 3.01.2006 22:15
Попробуй так:
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.
Автор: Jill 4.01.2006 14:17
пасиба, и так пробовала... не могу понять, что ей во второй функции не нравится... и нафиг такое выражение преподам задавать, если оно считаться не хочет...!