Лабораторные работы3 / №1 / 1.а,д / PASSIVNI

program passivnij;
uses crt;
var n,i:integer;
a,b,xmin,ymin,e,x:real;
function f(x:real):real;
begin
f:=x*x+6*exp(0.15*x);
end;
begin
clrscr;
write('vvedite a '); readln(a);
write('vvedite b '); readln(b);
write('vvedite n '); readln(n);
ymin:=9999999;
for i:=1 to n
do begin
x:=a+(b-a)/n*i;
if f(x)<ymin then
begin
xmin:=x;
ymin:=f(x);
end;
end;
e:=(b-a)/2/n;
writeln('');writeln('');
writeln('x=',xmin:20:15);
writeln('');
writeln('y=',ymin:20:15);
writeln('');
writeln('E=',e:20:15);
readkey;
end.