VPF::матрицы - Форум программистов

alexey4251

Дата 9.4.2011, 02:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 17.10.2009

Репутация: нет
Всего: нет

И так всем привет. Вот возникла проблема.
У меня есть две матрицы мне их нужно сложить. Я их заполняю так.

Ответ общий по идее должен получиться 20, т.к при сложении 1 матрицы выдается ответ 10. Но значение ответа в принципе может меняться от введенной размерности матрицы. У меня же выдает 52. Пожалуйста помогите мне и объясните по возможности трабл. smile

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    Label3: TLabel;
    Edit2: TEdit;
    StringGrid2: TStringGrid;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
begin
n:=strtoint(edit1.text);
StringGrid1.ColCount:=n;                                                      
StringGrid1.RowCount:=n;                                                    
StringGrid1.height:=n; 
                                                                                                
StringGrid1.Width:=n;    
StringGrid1.height:=n*StringGrid1.DefaultRowHeight+10; 
                                                                                                
StringGrid1.Width:=n*StringGrid1.DefaultColWidth+10;


end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Sum,i,j:integer;
begin
Sum:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
Sum:=Sum+StrToInt(StringGrid1.Cells[j,i])+(Sum+StrToInt(StringGrid2.Cells[j,i]));
Label2.Caption:='Сумма элементов матриц ='+IntToStr(Sum);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
n:=strtoint(edit2.text);
StringGrid2.ColCount:=n;                                                      
StringGrid2.RowCount:=n;                                                    
StringGrid2.height:=n; 
                                                                                             
StringGrid2.Width:=n;    
StringGrid2.height:=n*StringGrid2.DefaultRowHeight+10; 
                                                                                                
StringGrid2.Width:=n*StringGrid2.DefaultColWidth+10;
end;

end.

Это сообщение отредактировал(а) alexey4251 - 9.4.2011, 02:20

Keeper89

Дата 9.4.2011, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Обе матрицы всегда одинаковы по размеру (2 и 2, 3 и 3)? Если да - делаем одно поле размерности и один раз считываем n. Нет - заводим n и m и считываем 2 раза.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

alexey4251

Дата 9.4.2011, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 17.10.2009

Репутация: нет
Всего: нет

Уже решил проблему. Строка должна выглядеть так.

Код


Sum:=Sum+StrToInt(StringGrid1.Cells[j,i])+(StrToInt(StringGrid2.Cells[j,i]));

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »