Помощь - Поиск - Пользователи - Календарь
Полная версия: Метод сканирования
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ArNb90
y=1+(x-0.5)^2/3
ArNb90
нужно решить y=1+(x-0.5)^2/3 с точностью 0.0001 методом сканирования+блок схема. Помогите пожалуйста
Lapp
М
Просьба не плодить множество тредов на одну тему! Объединено.



Как помочь-то? Если бы видели, что ты сделал - помогли бы, может.
А как помочь, не видя ничего? blink.gif
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.


задача решина. тему можно закрывать.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.