Помогите, пожалуйста, не умею выводить максимальное, мин., сред., значения в TLabel, TEdit, Tlabelededit

[One Perfect]

Как среди значений функции найти минимальное, максимальное и среднее арифметическое значения. Мы пока что используем только компоненты: TEdit, label, button, stringgrid, напишите пожалуйста простенько, ибо я не очень разбираюсь, но хочу научиться. Вот код: unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Spin, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,dx,y:real;
n,i:integer;
begin
if ((edit1.Text='') or (edit2.Text='') or (Edit2.Text='0'))
then showmessage('Íå êîðåêòíî ââåäåí³ äàí³')
else
begin
x:=strtofloat(edit1.Text);
dx:=strtofloat(edit2.Text);
n:=spinedit1.Value;
Stringgrid1.Cells[0,0]:='n';
Stringgrid1.Cells[1,0]:='x';
Stringgrid1.Cells[2,0]:='y';
for i:=1 to n do
begin
stringgrid1.RowCount:=i+1;
y:=(3*x+1)/(arctan(x));
Stringgrid1.Cells[0,i]:=inttostr(i);
Stringgrid1.Cells[1,i]:=floattostr(x);
Stringgrid1.Cells[2,i]:=floattostrf(y,fffixed,7,3);
X:=x+dx;
end;
end;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[One Perfect]

Сообщение от One Perfect

Как среди значений функции найти минимальное, максимальное и среднее арифметическое значения. Мы пока что используем только компоненты: TEdit, label, button, stringgrid, напишите пожалуйста простенько, ибо я не очень разбираюсь, но хочу научиться. Вот код: unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Spin, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,dx,y:real;
n,i:integer;
begin
if ((edit1.Text='') or (edit2.Text='') or (Edit2.Text='0'))
then showmessage('Íå êîðåêòíî ââåäåí³ äàí³')
else
begin
x:=strtofloat(edit1.Text);
dx:=strtofloat(edit2.Text);
n:=spinedit1.Value;
Stringgrid1.Cells[0,0]:='n';
Stringgrid1.Cells[1,0]:='x';
Stringgrid1.Cells[2,0]:='y';
for i:=1 to n do
begin
stringgrid1.RowCount:=i+1;
y:=(3*x+1)/(arctan(x));
Stringgrid1.Cells[0,i]:=inttostr(i);
Stringgrid1.Cells[1,i]:=floattostr(x);
Stringgrid1.Cells[2,i]:=floattostrf(y,fffixed,7,3);
X:=x+dx;
end;
end;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Извините, пожалуйста

[type_Oleg]

Ср. арифм. вот так

var x,dx,y,ySrAr:real;
// далее - без изменений
stringgrid1.RowCount:=n+1;
ySrAr:=0;
for i:=1 to n do
 begin
  y:=(3*x+1)/(arctan(x));
  Stringgrid1.Cells[0,i]:=inttostr(i);
  Stringgrid1.Cells[1,i]:=floattostr(x);
  Stringgrid1.Cells[2,i]:=floattostrf(y,fffixed,7,3);
  X:=x+dx;
  ySrAr:=ySrAr+y;
end;
ySrAr:=ySrAr/n;
// и т.д.