[Т@tali]

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

[Страдалецъ]

С задание более менее понятно, а вам то что конкретно надо?
Не знаете как StringGrid на форму положить?
Не знаете как событие onCreate обработать?
Конкретный вопрос - конкретный ответ.

[Bars1992]

НАверно она хочет чтоб полностью прогу написали

[Т@tali]

ну во первых я не он а она. И я на самом деле не знаю как это запрограмировть. В делфи я умею работать только с БД. А задачи решать не умею

[Т@tali]

на форму я компоненты могу кинуть. Сложность в самом програмировании у меня. помогите пожалуйста

[Страдалецъ]

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

[Т@tali]

Скажите а сколько будет работа стоит если заказать а?


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

[Bars1992]

Та впринцепи 5 мин дела только я не совсем понял куда надо выводить "диагональных элементах строк находятся максимальные значения из элементов строк." Тоесть максимальные елементы строк надо выводить так:?
тут __ __
__ тут __
__ __ тут

[Bars1992]

Вот тержи недоделаную программу. Роскажешь как надо считать при нажатии второй кнопки допишу.
http://depositfiles.com/files/5mlgst8uv

[lmikle]

Да чего ж там непонятно-то???
Надо по диагонали матрицы вывести максимальные элементы соотв. строки.

Код:

type
  TMatrix = Array [1..3,1..3] Of Integer;

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    Matrix : TMatrix;
    procedure MatrixOut(AMatrix : TMatrix);
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  I, J : Integer;
begin
  For I := 1 To 3 Do
    For J := 1 To 3 Do
      Matrix[I,J] := Random(90) + 10;
end;

procedure TForm1.MatrixOut(AMatrix: TMatrix);
var
  I, J : Integer;
begin
  For I := 1 To 3 Do
    For J := 1 To 3 Do
      StringGrid1.Cells[J-1,I-1] := IntToStr(AMatrix[I,J]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MatrixOut(Matrix);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  _Matrix : TMatrix;
  I, J : Integer;
  _MaxIdx : Integer;
  _Swap : Integer;
begin
  For I := 1 To 3 Do
    For J := 1 To 3 Do
      _Matrix[I,J] := Matrix[I,J];

  For I := 1 To 3 Do
    Begin
      _MaxIdx := 1;
      For J := 2 To 3 Do
        If _Matrix[I,_MaxIdx] < _Matrix[I,J]
          Then _MaxIdx := J;
      If _MaxIdx <> I  Then
        Begin
          _Swap := _Matrix[I,I];
          _Matrix[I,I] := _Matrix[I,_MaxIdx];
          _Matrix[I,_MaxIdx] := _Swap;
        end;
    End;

  MatrixOut(_Matrix);
end;       

Все, весь код.

[Т@tali]

Спасибо огромное. благодарю сердечно.