Изменить программу с Золотого сечения на Сканироание

@Vovcik0 · Регистрация: 21.10.2015

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

Задание:
1 Проверить функциюf(x)=mx2+nx+cна выпуклость (вогнутость);
2 Определить координаты экстремальной точки заданной функции в диапазоне от a до b методом нулевого порядка с точностью ;
Это программа Золотое сечение ,помогите переделать на Метод Сканироания
e=002 за се остальные числа забиты в пргограмме

Pascal

   program modo;
function f(x: real): real;
begin
f:=(-45*(x*x))+55*x+4.5;
end;
var
a, b, e, c, x: real;
begin
a:=-1060;
b:=800;
write ('e=');
read(e);
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then
b:=c
else
a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
writeln ('x=',x:3:3,' f(x)=',f(x):4:4);
end.

Добавлено через 29 минут
Вообщем как то так,проверте правильность программы

Pascal

program scan;
var x,f,a,b,e,fmin,fmax,n:real; k:integer;
begin
writeln('vvedi nachalo intervala');
readln(a);
writeln('vvedi konec intervala');
readln(b);
writeln('vvedi tochnost ');
readln(e);
n:=((b-a)/e)+1;
writeln('kolichestvo chastey', n);
x:=a;
f:=(-45*(x*x))+55*x+4.5;
writeln('f o =', f);
fmin:=f;
k:=1;
while k <> n-1 do
begin
x:=x+e;
f:=(-45*(x*x))+55*x+4.5;
if fmin > f then fmin:=f 
else fmax:=f;
k:=k+1;
end;
writeln('maksimym funkcii ' ,fmax);
writeln ('minimum funkcii ' , fmin);
end.

@ali_baby_sweet · 15.01.2017, 16:21

Vovcik0, программа сработала с новым эпселент?

@Vovcik0 · 16.01.2017, 00:54 **[ТС]**

ali_baby_sweet, вроде да,что сказать не могу,давно это было уже.

@ali_baby_sweet 0 / 0 / 0 Регистрация: 04.11.2015 Сообщений: 18
	15.01.2017, 16:21	2
	Vovcik0, программа сработала с новым эпселент? 0

@Vovcik0 2 / 2 / 2 Регистрация: 21.10.2015 Сообщений: 214
	16.01.2017, 00:54 [ТС]	3
	ali_baby_sweet, вроде да,что сказать не могу,давно это было уже. 0

Опции темы