найти наибольшее и наименьшее значение функции y=3*x^2+x-4, если на заданном интервале от [a,b] х изменяется с шагом 0,1

[Конь Антон]

найти наибольшее и наименьшее значение функции y=3*x^2+x-4, если на заданном интервале от [a,b] х изменяется с шагом 0,1

[newerow1989]

function f(x:real):real;
begin
   Result:=3*x*x+x-4;
end;

const a=-10;
      b=10;
      h=0.1;
var x,y1,y2,y3,xmin,xmax:real;
begin
   xmin:=a-h;
   xmax:=a-h;
   x:=a-h;
   Repeat
      x:=x+h;
      y1:=f(x-h);
      y2:=f(x);
      y3:=f(x+h);
      If (y1<y2) and (y2>y3) and (f(xmax)<y2) then
         xmax:=x;
      If (y1>y2) and (y2<y3) and (f(xmin)>y2) then
         xmin:=x;
   Until x>=b;
   If xmax>=a then
      Writeln('maximum: f(',xmax:5:1,') = ',f(xmax):5:3) else
      Writeln('no maximum');
   If xmin>=a then
      Writeln('minimum: f(',xmin:5:1,') = ',f(xmin):5:3) else
      Writeln('no minimum');
   Readln;
end.

Сойдет?

[Serge_Bliznykov]

    y1:=f(x-h);
      y2:=f(x);
      y3:=f(x+h);
      If (y1<y2) and (y2>y3) and (f(xmax)<y2) then
         xmax:=x;
      If (y1>y2) and (y2<y3) and (f(xmin)>y2) then
         xmin:=x;

зачем так сложно? Три переменные, какие-то проверки многоуровневые!
функция может не иметь максимум/минимум?
В условии об этом что-то сказано? Так зачем делать лишнее?

p.s. да ещё и потенциально неверно.
Например, рассмотрите линейную возрастающую функцию. y=x
если я не ошибаюсь, ваша программа выдаст, что функция минимума не имеет!

[александр12345673]

паскаль
program pr_203;
var a,b,x,y,max,min:real;
begin
readln(a,b);
x:=a;
while x<=b do begin
y:=3*x*x+x-4;
if x=a then
begin
min:=y; max:=y;
end;
if y<min then min:=y;
if y>max then max:=y;
x:=x+0.1;
end;
writeln('min = ',min,'max =',max);
end.