Метод сканирования, как задать уравнение Опции

[ArNb90]

y=1+(x-0.5)^2/3

[ArNb90]

нужно решить y=1+(x-0.5)^2/3 с точностью 0.0001 методом сканирования+блок схема. Помогите пожалуйста

[Lapp]

М

Просьба не плодить множество тредов на одну тему! Объединено.

Как помочь-то? Если бы видели, что ты сделал - помогли бы, может.
А как помочь, не видя ничего?

[ArNb90]

program FindMinOfFuncByScanMeth;
uses Crt;
const
k=4;
var a:boolean;
d,e,h,x,x1,y,y1:real;
ch:char;

function f(x:real):real;
BEGIN
if (x>0.5) then f:= 1+Exp(3*Ln(x-0.5));

END;

BEGIN
Clrscr;
WRITELN ('x');
READ(x);
WRITELN ('e');
READ(e);
h:=0.2; x1:=x; y:=f(x);
REPEAT
d:=ABS(h); x1:=x1+h; y1:=f(x1); a:=(y1>=y);

IF a THEN h:=-h/k;
x:=x1; y:=y1;
UNTIL a AND (d<e);
x:=x+h*k;
WRITELN('T. minimuma x=',x:9:6,' pogr. =',d:9:6);
END.


задача решина. тему можно закрывать.

Сообщение отредактировано: ArNb90 - 12.05.2009 16:01