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

[mcblack]

Пожалуйста помогите создать вот такую программу: "Определить и отпечатать наибольшее и наименьшее значения функции f=ax*x*x-bx*x+c при изменении аргумента от Хн до Хк с шагом hx. Создать массив f и массив f1 только из положительных чисел." Сам никак не могу понять, а на следующей недели её нужно преподу сдать.

[RSLoader]

Всё вроде понятно вплоть до

Создать массив f и массив f1 только из положительных чисел

А так, если без массивов, то всё просто:

var
  x,f,a,b,c,xn,xk,hx,maxf,minf:integer;
begin
  write('Vvedite a: ');
  readln(a);
  write('Vvedite b: ');
  readln(b);
  write('Vvedite c: ');
  readln(c);
  write('Vvedite Xn: ');
  readln(xn);
  write('Vvedite Xk: ');
  readln(xk);
  write('Vvedite hx: ');
  readln(hx);
  x:=xn;
  f:=a*x*x*x-b*x*x+c;
  maxf:=f;
  minf:=f;
  while x<=xk-hx do
  begin
    inc(x,hx);
    f:=a*x*x*x-b*x*x+c;
    if f>maxf then maxf:=f;
    if f<minf then minf:=f;
  end;
  writeln('Naibolshee zna4enie funkcii: ',maxf);
  writeln('Naimenshee zna4enie funkcii: ',minf);
  readln;
end.

[mcblack]

А такой вариант возможен:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,f,a,b,c,xn,xk,hx,maxf,minf:integer;
begin
a:=edit1.text;
b:=edit2.text;
c:=edit3.text;
Xn:edit4.text;
Xk:=edit5.text;
hx:edit6.text;
  x:=xn;
  f:=a*x*x*x-b*x*x+c;
  maxf:=f;
  minf:=f;
  while x<=xk-hx do
  begin
    inc(x,hx);
    f:=a*x*x*x-b*x*x+c;
    if f>maxf then maxf:=f;
    if f<minf then minf:=f;
  end;
  memo1.Lines.add('Naibolshee zna4enie funkcii: ' + maxf);
  memo1.Lines.add('Naimenshee zna4enie funkcii: ' + minf);
end;

Если возможен, то почему на "a:=edit1.text;" выдается ошибка?

[А. Долматов]

но только а,b у тебя integer стоит, а edit.text - это string

[mcblack]

А как тогда поменять значение edit, чтобы туда можно было вводить значения a,b,c и тд.?

[bart77]

mcblack, вот так все запускается без ошибок:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,f,a,b,c,xn,xk,hx,maxf,minf:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
Xn:=strtoint(edit4.text);
Xk:=strtoint(edit5.text);
hx:=strtoint(edit6.text);
  x:=xn;
  f:=a*x*x*x-b*x*x+c;
  maxf:=f;
  minf:=f;
  while x<=xk-hx do
  begin
    inc(x,hx);
    f:=a*x*x*x-b*x*x+c;
    if f>maxf then maxf:=f;
    if f<minf then minf:=f;
  end;
  memo1.Lines.add('max: ' + inttostr(maxf));
  memo1.Lines.add('min: ' + inttostr(minf));
end;

[mcblack]

Спасибо! Но как вывести массивы???

[RSLoader]

Можно так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  mas:array[1..5]of Integer;
  i:Integer;
begin
  StringGrid1.ColCount:=5;
  StringGrid1.RowCount:=1;
  StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  for i:=1 to 5 do
  begin
    mas[i]:=i;
    StringGrid1.Cells[i-1,0]:=IntToStr(mas[i]);
  end;
end;

[mcblack]

RSLoader, че-то не получается, просто 1 2 3 4 5 пишется и все.

[А. Долматов]

ну а как ты хотел. Человек массив забивает значениями от 1 до 5 с шагом 1. А за тем эти значения выводит. Вместо mas[i]:=i; ты пишешь mas[1]:=a;
mas[2]:=b;
......
ну и так далее, а дальше вывод как написано у RSLoader'а.