[Т@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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

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]

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