[Katja]

на форме размещены два компонента StringGrid и две кнопки. нужно объявить двумерный массив целух чисел 3 х 3 и задать значения элементов этого массива в событии формы OnCreate. и как запрограммировать щелчек по первой кнопке в StringGrid1 выводился исходным массив(матрица), по кнопке 2 -StringGrid2 выдодится преобразованная матрица, в которой в диагональных элементах строк находятся максимальные значения из элементов строк. помогите пожалуйста написать код !!!

[march]

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

по кнопке 2 -StringGrid2 выдодится преобразованная матрица, в которой в диагональных элементах строк находятся максимальные значения из элементов строк!

Что этим хотели сказать?

[Bars1992]

Я тоже не совсем догнал что он хотел сказать этим.

Ну первое что надо зделать это обявить глобально масив

Код:

var a:array[1..3,1..3] of integer;

Второе: по событию онКреате масив заполняется:

Код:

procedure TForm1.FormCreate(Sender: TObject);
 var i,j:integer;
begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   a[i,j]:=//тут твои значения которіе нужно записать в масив

end;

Третее по кнопке выводится исходный масив

Код:

procedure TForm1.sButton1Click(Sender: TObject);
 var i,j:integer;
begin
 for i:=1 to 3 do
  for j:=1 to 3 do
           StringGrid1.Cells[i,j]:=inttostr(a[j,i]);
end;