Создание программы по выполнению вычислительных операций над матрицами

[andrew_1]

на форме 2 едитки(в них вводится размерность матрицы и она создается при нажатии на баттон1), матрица создается в stringgrid1(первая матрица) и аналогично через другие две едитки(при нажатии на баттон2) создается вторая матрица в stringgrid2. Нужно например чтобы между матрицами стояло RadioGroup1 и в них выбиралось действия которое необходимо совершить с матрицей(+,-,*, и умножение на число(при выборе умножение на число создается едитка и туда вводим число или вводим просто в существующую едитку не имеет значения) и весь результат выводится в stringgrid3.

ну вообщем мне нужно чтобы написали код только для RadioGroup1 и как это все вывести в stringgrid3 и вычислить. помогите пожалуйста!!!
Все должно выглядеть приблизительно как на картинке.

[Serge_Bliznykov]

1) картинка - это, конечно, зашибись!
Но вам код тут же, на картинке нарисовать?!
Давайте исходники проекта.

2) матрицы целочисленные или вещественные?!

3) умножить матрицу на число? А зачем тогда ДВЕ исходные матрицы?
ну и прочие операции (+ - *): расписывайте алгоритм вычитания/сложения/умножения матриц.

p.s. а вообще, я не понимаю, что у Вас вызывает затруднение?
Как получить, какая операция выбрана? или как сложить две ячейки (к примеру) из разных StringGrid и поместить результат в третий StringGrid ?!
так:

StringGrid3.Cells[j, i] :=FloatToStr( StrToFloat(StringGrid1.Cells[j,i]) + StrToFloat(StringGrid2.Cells[j,i]) );

[andrew_1]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Button3: TButton;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas1,mas2:array of real;
  a:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 StringGrid1.FixedCols :=0;
  StringGrid1.FixedRows :=0;

  StringGrid1.ColCount := StrToInt(Edit1.Text);
  StringGrid1.RowCount := StrToInt(Edit2.Text);

  StringGrid1.Options := StringGrid1.Options + [goEditing];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with StringGrid1 do
SetLength(mas1, ColCount * RowCount);
with StringGrid2 do
SetLength(mas2, ColCount * RowCount);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    StringGrid2.FixedCols :=0;
  StringGrid2.FixedRows :=0;

  StringGrid2.ColCount := StrToInt(Edit6.Text);
  StringGrid2.RowCount := StrToInt(Edit7.Text);

  StringGrid2.Options := StringGrid2.Options + [goEditing];
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

У меня вызывает затруднение как вывести все в stringGrid3, тут две матрицы потому что умножение матрицы на матрицу тоже должно выполнятся.

Нужно что бы при выборе в radiogroup1 +-* или *на число выполнялись соответственные действия.Я забыл в картинке той что там должно стоять умножение матриц тоже ну потому и две матрицы. Тут в коде куча ошибок потому что я всякую фигню пробовал сделать и случайно сохранил


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[andrew_1]

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

1) картинка - это, конечно, зашибись!
Но вам код тут же, на картинке нарисовать?!
Давайте исходники проекта.

2) матрицы целочисленные или вещественные?!

3) умножить матрицу на число? А зачем тогда ДВЕ исходные матрицы?
ну и прочие операции (+ - *): расписывайте алгоритм вычитания/сложения/умножения матриц.

p.s. а вообще, я не понимаю, что у Вас вызывает затруднение?
Как получить, какая операция выбрана? или как сложить две ячейки (к примеру) из разных StringGrid и поместить результат в третий StringGrid ?!
так:

StringGrid3.Cells[j, i] :=FloatToStr( StrToFloat(StringGrid1.Cells[j,i]) + StrToFloat(StringGrid2.Cells[j,i]) );

да я сложил два stringgrid и поместил в 3-й но при нажатии на кнопку вычислить выбивает ошибку(все поля заполняю числами целыми)
вот ошибка:

[andrew_1]

Вот сделал что хотел, может в дальнейшем кому-то поможет

[wolf_den]

andrew_1, это бы конечно многим помогло, если бы вы правильно реализовали умножение матриц....результат выдает неправильный