Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Демонстрация алгоритма сортировки методом подсчета Разработайте приложение Windows Form, наглядно демонстрирующее алгоритм сортировки методом подсчета. https://www.cyberforum.ru/ delphi-beginners/ thread2391940.html Delphi Демонстрация алгоритма шейкер-сортировки
Разработайте приложение Windows Form, наглядно демонстрирующее алгоритм шейкер-сортировки.
Delphi COM Port https://www.cyberforum.ru/ delphi-beginners/ thread2391899.html
Добрый день господа. В Delphi XE4 использую компонент COMport от Dejan Crnila. В ходе работы софта устройство на ком порте может выниматься и устанавливаться вновь. Я в таймер поставил такую...
Delphi Сплиттеры и компоненты Ткните носом, не могу понять что не правильно делаю?... _____________________________ панель1 | панель2 | панель 3 | ________|_________|_________| < нижний сплиттер панель4 ... https://www.cyberforum.ru/ delphi-beginners/ thread2391840.html
Можно ли добавить новые стили для кнопок VCL формы или создать свои в RAD Studio 10.1 Berlin? Delphi
Распишу по подробнее нужно изменить стиль компонента Button1. У него есть свойство Style в нем есть три варианта стиля: bsSplitButton, bsPushButton, bsCommandLink, есть ли возможность добавить в это...
Delphi Как выписать слова? Подскажите пожалуйста, как можно выписать в edit2 последние 4 слова из текста, который в edit1?:wall: https://www.cyberforum.ru/ delphi-beginners/ thread2391334.html
Delphi Как переместить объекты из одной формы в другую во время выполнения программы? https://www.cyberforum.ru/ delphi-beginners/ thread2391175.html
В общем задача такая: есть две формы Form1 и Form2, в Form1(есть кнопка допустим button1), в Form2 (есть groupbox и edit в нем, в goupbox). Нужно чтобы после нажатия на кнопку в Form1 переместились...
Шифрование сразу всего текстового файла, а не фразы из Edit Delphi
Надо сделать чтобы текст зашифровывал и расшифровывал не из Edit1, а из текстовика и сохранял в отдельный текстовик результат. Срочно нужно.
Delphi Множество CheckBox https://www.cyberforum.ru/ delphi-beginners/ thread2390957.html
Добрый день! Подскажите пожалуйста как можно реализовать: На форме 1 Edit и 64 CheckBox. Нужно чтобы при вводе в Edit числа от 1 до 64 параметр Checked соответствующего CheckBox устанавливался в...
Delphi Преобразование переменных ЗД всем! Такой вопрос... С ком порта получаю, 32 байта, из них 1-4 это long без знака, 5-6 это int без знака, 7-20 это массив char и 21-32 это тоже массив char. char-ы это строки и заканчивается... https://www.cyberforum.ru/ delphi-beginners/ thread2390932.html
Delphi Генерация начинается с одного и того же
Здравствуйте! Подскажите...почему по этому коду генерация случайного числа из данного диапазона всегда начинается с 5, потом 6, а потом уже действительно разные числа из диапазона? procedure...
Delphi Лист excel файла открыть в stringgrid https://www.cyberforum.ru/ delphi-beginners/ thread2390745.html
Добрый вечер! Есть компонент StringGrid1, при нажатии кнопки мы выбираем excel файл, после всех действий отображается 1-й лист excel файла в StringGrid1. Подскажите как сделать чтобы отображался...
0 / 0 / 0
Регистрация: 01.12.2018
Сообщений: 42
0

Обратная матрица - Delphi - Ответ 13259846

21.01.2019, 17:28. Показов 1085. Ответов 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;
а ещё этот массив, ето типо свой тип данных создали?
ещё бы с мат точки зрения пояснить как тут, а то не понимаю(

Вернуться к обсуждению:
Обратная матрица Delphi
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2019, 17:28
Готовые ответы и решения:

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2019, 17:28

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

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

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

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

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