Произведение найбольшего положительного и найменшего отрицательного числа

[Bleddix]

Произведение наибольшего положительного и наименьшего отрицательного числа
Помогите с кодом ребят



Для ввода элементов использовать StringGrid

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

			{ TForm1 }

   TForm1 = class(TForm)
						StringGrid1: TStringGrid;
						procedure FormCreate(Sender: TObject);
      procedure StringGrid1SetEditText(Sender: TObject; ACol,
									ARow: Integer; const Value: string);
			private
						{ private declarations }
			public
						{ public declarations }
			end;

var  max,min:Double;
			Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
			const Value: string);
var d:double;
begin
 if TryStrToFloat(StringReplace(Value,',','.',[]),d) then begin
  if (d>0)and(d>max) or (Tag=0) then max:=d;
  if (d<0)and(d<min) or (Tag=0) then min:=d;
  Tag:=1;
 end;
 Caption:=Format('Max=%5.2f * Min=%5.2f = %5.2f',[max,min,max*min]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tag:=0;
  StringGrid1.Options:=StringGrid1.Options+[goEditing,goAlwaysShowEditor];
  FormatSettings.DecimalSeparator:='.';
end;

end.

Подходит идея?

[Bleddix]

Сообщение от Stilet

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

			{ TForm1 }

   TForm1 = class(TForm)
						StringGrid1: TStringGrid;
						procedure FormCreate(Sender: TObject);
      procedure StringGrid1SetEditText(Sender: TObject; ACol,
									ARow: Integer; const Value: string);
			private
						{ private declarations }
			public
						{ public declarations }
			end;

var  max,min:Double;
			Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
			const Value: string);
var d:double;
begin
 if TryStrToFloat(StringReplace(Value,',','.',[]),d) then begin
  if (d>0)and(d>max) or (Tag=0) then max:=d;
  if (d<0)and(d<min) or (Tag=0) then min:=d;
  Tag:=1;
 end;
 Caption:=Format('Max=%5.2f * Min=%5.2f = %5.2f',[max,min,max*min]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tag:=0;
  StringGrid1.Options:=StringGrid1.Options+[goEditing,goAlwaysShowEditor];
  FormatSettings.DecimalSeparator:='.';
end;

end.

Подходит идея?

Мне нужно чтоб таблица кнопкой заполнялась, и выводила результат над ней
Если не сложно можете это сделать?

[Bleddix]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j,s:integer;
  a:array[1..10,1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin   randomize;
 s:=0;
    for i:=1 to 10 do
      for j:=1 to 10 do   begin
        a[i,j]:=random(100)-50;
        StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
          end;
    for i:= 1 to 10 do
for j:= 1 to 10 do
if a[i,j] > s then    begin
s:= (a[i,j]);

Label2.Caption:='наибольший положительный элемент ' + inttostr(s)+ ' координаты ' + inttostr(i)+ ' ; '+inttostr(j);


end;

end.

Что-то типа этого, только вместо наибольшего положительного элемента подставить произведение наибольшего положительного и наименьшего отрицательного чисел.

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);

begin   randomize;
 s:=0;
    for i:=1 to 10 do
      for j:=1 to 10 do   begin
        a[i,j]:=random(100)-50;
        StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
          end;
    for i:= 1 to 10 do for j:= 1 to 10 do
      if (a[i,j] > s) and (a[i,j]>0) then  s:= (a[i,j]) else
       if (a[i,j] < s2) and (a[i,j]<0) then  s2:= (a[i,j]) ;

Label2.Caption:='наибольший положительный элемент ' + inttostr(s)
 +'наименьший отрицательный элемент ' + inttostr(s2);


end;