Метод деления отрезка пополам. Пожалуйста посчитайте количество интераций

@pjelcko · Регистрация: 02.10.2011

Author24 — интернет-сервис помощи студентам

У меня то 0, то 1 выходит,а такого быть не может ведь точность взята очень маленькая.
функция:у=x^3-4*x^2+x-5;интервал от -3 до 3, точность r= 0.0001.

Pascal

program lab3;
Uses crt;
var a,b,r,y,z,xc,l,h, min:real;
    i:integer;
 Function f(x:real):real;
   Begin
   f:= sqr(xc)*x-4*sqr(xc)+xc-5;
   End;
Begin
writeln('Введите интервал ');
readln(a,b);
writeln('Введите точность ');
readln(r);
while l>r do
begin
l:=b-a;
xc:=(a+b)/2;
y:=a+l/4;
z:=b-l/4;
If l=r then min:=f(xc);
If f(y)<f(xc) then
begin
writeln('ошибка!!!');
end
else
begin
if f(y)>f(xc) then
begin
a:=y;
b:=z;
end;
end;
end;
inc(i);
h:=sqr(xc)*xc-4*sqr(xc)+xc-5;
writeln('(',xc,';',h,')- точка экстремума');
  writeln('Количество интераций ',i);
end.

@pryda · 09.11.2012, 01:11

pjelcko, чем тут копаться и исправлять ошибки, легче и быстрее будет написать новую программу. здесь ошибки не только в итерациях. этот код работать не будет никогда.

@pjelcko · 09.11.2012, 16:06 **[ТС]**

Да?странно..а у меня для этой функции в 3 методах. Вот абсолютно одинаковые ответы и даже,когда в ручную считаешь...(((

Добавлено через 7 часов 51 минуту

Сообщение от pryda

pjelcko, чем тут копаться и исправлять ошибки, легче и быстрее будет написать новую программу. здесь ошибки не только в итерациях. этот код работать не будет никогда.

все поняла, все переписала, работал код чисто по случайности xDспасибо!

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	09.11.2012, 01:11	2
	pjelcko, чем тут копаться и исправлять ошибки, легче и быстрее будет написать новую программу. здесь ошибки не только в итерациях. этот код работать не будет никогда. 0

@pjelcko 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 15
	09.11.2012, 16:06 [ТС]	3
	Да?странно..а у меня для этой функции в 3 методах. Вот абсолютно одинаковые ответы и даже,когда в ручную считаешь...((( Добавлено через 7 часов 51 минуту Сообщение от pryda pjelcko, чем тут копаться и исправлять ошибки, легче и быстрее будет написать новую программу. здесь ошибки не только в итерациях. этот код работать не будет никогда. все поняла, все переписала, работал код чисто по случайности xDспасибо! 0