Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.01.2012, 22:57   #1
Linkfanka
Новичок
Джуниор
 
Регистрация: 23.01.2012
Сообщений: 1
По умолчанию Нахождение обратной матрицы

Даны 2 объекта StringGrid, задание размерности матрицы через PopupMenu. Вывести во второй StringGrid обратную матрицу(не транспонирование).

Код:
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Grids;
 
type
   TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    N1: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
 
 
    procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  result:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then PopupMenu1.Popup(0, 0);
end;
 
procedure TForm1.N21Click(Sender: TObject);
begin
result:=2;
stringgrid1.RowCount:=2;
stringgrid1.ColCount:=2;
end;
 
procedure TForm1.N31Click(Sender: TObject);
begin
result:=3;
stringgrid1.RowCount:=3;
stringgrid1.ColCount:=3;
end;
 
procedure TForm1.N41Click(Sender: TObject);
begin
result:=4;
stringgrid1.RowCount:=4;
stringgrid1.ColCount:=4;
end;
 
 
end.

Последний раз редактировалось Stilet; 24.01.2012 в 09:05.
Linkfanka вне форума Ответить с цитированием
Старый 24.01.2012, 08:23   #2
was3110
Форумчанин
 
Аватар для was3110
 
Регистрация: 25.04.2010
Сообщений: 254
По умолчанию

Сначала найти определитель матрицы,
потом получить обратную (если определитель<>0, по алгоритму)
А если нужен готовый код, могу помочь... обращайтесь в личку
помогать студентам - моя вторая профессия
was3110 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод обратной матрицы EddieG Общие вопросы C/C++ 1 01.02.2011 22:26
Построение обратной матрицы lecume Общие вопросы C/C++ 2 18.12.2009 00:06
Нахождение обратной матрицы произвольного размера Widow Maker Помощь студентам 0 10.05.2009 12:09