Лабораторные работы3 / №1 / 1.б / MET_BL

program met_bloch;
uses crt;
var n,m,i:integer;
a,b,d,xk,yk,xmin,ymin,xi:real;

function f(x:real):real;
begin
f:=x*x+6*exp(0.15*x);
end;

begin
clrscr;

writeln('vvedite a '); read(a);
writeln('vvedite b '); read(b);
writeln('vvedite chiclo eksperimentov v bloke n '); read(n);
writeln('vvedite chiclo blokov m '); read(m);

xk:=(a+b)/2;
yk:=f(xk);
ymin:=999999;
repeat
m:=m-1;
for i:=1 to n do
begin
xi:=a+i*(b-a)/(n+1);
if f(xi)<ymin then
begin
ymin:=f(xi);
xmin:=xi;
end;
end;
xk:=xmin;
yk:=ymin;
d:=b-a;
a:=xk-d/(n+1);
b:=xk+d/(n+1);
until m=0;

writeln('');writeln('');
writeln('x=',xk:20:15);
writeln('');
writeln('y=',yk:20:15);
writeln('');
writeln('E=',(b-a)/2:20:15);

readkey;
end.