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

Обратная матрица

21.01.2019, 17:28. Показов 1047. Ответов 2
Метки нет (Все метки)

помогите разобрать код пожалуйста .
кусок var

Delphi
1
2
3
4
5
6
7
8
9
10
var 
    Type TMatr=array [1..36] of array [1..36] of real;
      var matr:TMatr;
          n,m:integer;
          Help: array[0..36, 0..36] of real;
i,j:integer;
k: integer;
det:real;
p:integer;
r:real;
сам код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   for k:=0 to n - 1 do
     begin
        for i:=0 to n - 1 do
         for j:=0 to n - 1 do
         begin
            if (i=k) and (j=k) then Help[i,j] := 1/Matr[i,j];
            if (i=k) and (j<>k) then Help[i,j] := -Matr[i,j]/Matr[k,k];
            if (i<>k) and (j=k) then Help[i,j] := Matr[i,k]/Matr[k,k];
            if (i<>k) and (j<>k) then Help[i,j] := Matr[i,j] - Matr[k,j] * Matr[i,k]/Matr[k,k];
         end;
         for i:= 0 to n - 1 do
          for j:= 0 to n - 1 do
           begin
          Matr[i, j]:= Help[i, j];
          StringGrid2.Cells[i,j] := FloatTostr(Help[j,i]);
           end;
     end;
и как оно находит обратнкую матрицу без нахождения определителя? и что за первый цикл в начале? помогите плиз мне страшно

Matr это исходная матрица, которую вводит пользователь в стринггрид. Хелп это вспомогательная

Delphi
1
    Type TMatr=array [1..36] of array [1..36] of real;
а ещё этот массив, ето типо свой тип данных создали?
ещё бы с мат точки зрения пояснить как тут, а то не понимаю(
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2019, 17:28
Ответы с готовыми решениями:

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

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

Не верная обратная матрица
Прога работает,но неверно(все ячейки одним числом заполняет), по моему слишком много циклов....

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

2
Модератор
64056 / 47472 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
21.01.2019, 17:44 2
Математику не знаешь, программирование тоже, и предлагаешь на форуме в одной теме обучить тебя?
0
0 / 0 / 0
Регистрация: 01.12.2018
Сообщений: 42
21.01.2019, 18:00  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Математику не знаешь, программирование тоже, и предлагаешь на форуме в одной теме обучить тебя?
ну поверхностно так программирование. Ну не обучить, а пояснить код если это возможно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2019, 18:00

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

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

Обратная форма
Есть сайт в формате html, на нем нужно сделать обратную форму связи, чтобы сообщения на мейл мой...

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной
Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной. Описать с помощью...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.