Помогите пожалуйста с программкой. Нужно ввести массив в стрингрид, найти максимальныфй элемент, и разделить его на каждый элемент массива, исходя из этого вывести преобразованный массив. Также вывести номер строки и столбца массива. Я тут составила програмку, но координаты максимального неправильно выводит. Помогите пожалуйста разобраться!!!! Буду очень рада.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Table1: TStringGrid;
Table2: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mas:array[0..3,0..3] of real;
mas1:array[0..3,0..3] of real;
i,j:integer;
MAX:real;
begin
For i:=0 to 3 do begin
For j:=0 to 3 do begin
mas[i,j]:=Random(100)-Random(100);
Table1.Cells[i,j]:=FloatToStr(mas[i,j]);
Edit1.Text:='';
Edit2.Text:='';
end;
end;
for i:=0 to 3 do begin
MAX:=mas[1,1];
for j:=0 to 3 do begin
if mas[i,j]>MAX then
begin
mas[i,j]:=MAX;
Edit1.Text:=IntToStr(i);
Edit2.Text:=IntToStr(j);
MAX:=not 0;
mas1[j,i]:=mas[j,i]/MAX;
Table2.Cells[i,j]:=FloatToStr(mas1[i,j]);
end;
end;
end;
end;
end
|
|