Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 27.12.2011
Сообщений: 50
1

Не верная обратная матрица

10.06.2012, 17:42. Показов 555. Ответов 2
Метки нет (Все метки)

Прога работает,но неверно(все ячейки одним числом заполняет), по моему слишком много циклов.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm3.Button5Click(Sender: TObject); //îáðàòíàÿ ìàòðèöà
var i,j:integer;
begin
 If m=n then begin
 StringGrid3.ColCount:=m;
 StringGrid3.RowCount:=m;
  SetLength(A,m,m);
  Transpon(A,m,m);
  For i:=0 to m-1 do
  for j:=0 to m-1 do
   begin
    StringGrid3.Cells[j,i]:=FloatToStrF(Obrat(A,m),ffFixed,5,1);
   end;
   end
   Else Showmessage('Ââåäèòå êâàäðàòíóþ ìàòðèöó!');
 end;
Вот функция:
Delphi
1
2
3
4
5
6
7
8
9
10
function Obrat(A:Dvumer;m:integer):extended; //îáðàòíàÿ
var i,j:integer;
 begin
  For i:=0 to m-1 do
   For j:=0 to m-1 do
    begin
     A[i,j]:=1/(Opred(A,m))*A[i,j];//определитель высчитывает верно
     Result:=A[i,j];
  end;
 end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2012, 17:42
Ответы с готовыми решениями:

Обратная матрица
помогите разобрать код пожалуйста . кусок var var Type TMatr=array of array of real; ...

Обратная матрица
Всем привет! Памагите праграмировати в Delphi рещение обратной матрицы, вот щто я зделала для...

Обратная матрица с класссами
Заказал прогу у плохого автора и он мне вынес все мозги. Помогите дописать (если там есть вообще...

Обратная матрица Гаусса
Здравствуйте)) Помогите пожалуйста дорешать задачу про метод Гаусса. Мне осталось найти обратную...

2
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
10.06.2012, 17:54 2
Цитата Сообщение от TPK1993 Посмотреть сообщение
function Obrat(Avumer;m:integer):extended; //обратная
Это что за чудо? Результатом должно быть не число, а матрица.
Delphi
1
2
3
4
5
6
7
procedure Obrat(var A:Dvumer;m:integer); //обратная
var i,j:integer;
 begin
  For i:=0 to m-1 do
   For j:=0 to m-1 do
   A[i,j]:=1/(Opred(A,m))*A[i,j];//определитель высчитывает верно
 end;
1
0 / 0 / 0
Регистрация: 27.12.2011
Сообщений: 50
10.06.2012, 18:00  [ТС] 3
Puporev,ыы)точно) спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2012, 18:00

Обратная матрица. Исправить программу
Здравствуйте! Мне нужно найти обратную матрицу (7Х7). Я на этом форуме поискала,нашла...

Обратная матрица методом Гаусса
Нужно написать программу нахождения обратной матрицы методом Гаусса в Delphi. Я не очень разбираюсь...

Обратная матрица LU
Проблема в том что он выводит 0вую матрицу, хотя должен выводить матрицу с диагональными элементами...

обратная матрица
помогите написать опрограмму обратной матрицы!!! плиз!!!! никак не получается


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru