Наименьшее и наибольшее значение функции

[Ejevila]

На заданном отрезке [a,b] изменения x с шагом h найти наименьшее и наибольшее значение функции

y=2,3*x^9-3*x^6-4*x^5-9*x^2+6,1*x+1



нужно написать в делфи...

[rubius2008]

x:=a;
maxy:=2.3*power(x,9)-3*power(x,6)-4*power(x,5)-9*power(x,2)+6.1*x+1;
miny:=maxy;
while x<=b do begin
  y:=2.3*power(x,9)-3*power(x,6)-4*power(x,5)-9*power(x,2)+6.1*x+1;
  if maxy<y then maxy:=y;
  if miny>y then miny:=y;
  x:=x+h;
end;

[Novi4ok_11]

var max,min,a,b,x,i:integer;
a:=1;
b:=7;
x:=a;
i:=1;
max:=-32200;
min:=32200;
repeat
y=2,3*x^9-3*x^6-4*x^5-9*x^2+6,1*x+1;
x:=x+h;
i:=i+1;
if y>max then max:=y;
if y<min then min:=y;
until x>=b;
Label1.Caption:=inttostr(max);
Label2.Caption:=inttostr(min);

В этом месте тока напишите нормально

y=2,3*x^9-3*x^6-4*x^5-9*x^2+6,1*x+1;

[Ejevila]

Novi4ok_11, спасибо огромное,только если честно я неочень поняла

a[i]:=y;


ты же массив не объявлял?

[Novi4ok_11]

то я что то не о том подумал)