Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Определение Handle https://www.cyberforum.ru/ delphi-beginners/ thread167805.html
Всем привет ! Я открил с помошю шеллехекут калкулятора. Тепер нужно определит его хендил. Заранее спасибо ! 		Delphi Как изменить кодировку?
как сделать, чтобы дельфи открывал файл, менял кодировку на свою, выполнял код и потом менял обратно? сам код: interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type
Delphi массив типа TObject надо как-нибудь реализовать построение динамических элементов - чекбокс\радиокнопка\эдит через один массив. Для этого как я понял у него должен быть тип TOBject, так? procedure TForm1.Button2Click(Sender: TObject); begin inc(a); for b:=1 to ms.num do begin if (ms.aText.smm=1)and(ms.num=1) then begin btns:=TCheckbox.Create(self); with btns do begin Parent :=Self; https://www.cyberforum.ru/ delphi-beginners/ thread167588.html Delphi Создание динамического класса https://www.cyberforum.ru/ delphi-beginners/ thread167585.html
Здравствуйте, не могу разобраться, нужно чтобы в приложении на форме Form1 динамически создавалась панель, с расположенными на ней компонентами Label, количество создаваемых панелей до 4-х. Я решила создать класс в отдельном модуле, класс на основе компонента TPanel и добавить к нему компонент TLabel в качестве полей (не знаю вообще можно ли так делать, но компилятор не ругается) type ...
Delphi Заливка эллипса по периметру снаружи.
Здравствуйте все. Хочу ещё раз поблагодарить модератора с ником Puporev. Восхищён вашими решениями моих вопросов. Это была торжественная часть текста. Теперь спрошу: Можно ли сделать так, что бы на CANVAS заливать замкнутую фигуру снаружи, а не внутри её периметра. Например залить белым окружность снаружи, не трогая внутри, что бы оставалась возможность чертить что-либо внутри окружности и... 		Delphi Delphi классы https://www.cyberforum.ru/ delphi-beginners/ thread167561.html
Доброго всем времени суток! Помогите решить проблему с классом: Написал класс Tunit с конструктором unit Unit1; interface uses
Delphi Поиск выхода из лабиринта https://www.cyberforum.ru/ delphi-beginners/ thread167475.html
Добрый день форумчане. У меня курсовик по теме: "Поиск выхода из лабиринта", программу написал (рабочая). Посмотрите пожалуйста, что можно подкорректировать в коде. {Поиск минимального пути в лабиринте. Лабиринт задается с помощью текстового файла. Каждый символ является клеткой лабиринта и означает: " " (пробел) - пустая ячейка; "A" - начало поиска; "B" - выход из... 		Ошибка при закрытии вкладки созданой програмно в PageControl Delphi
Здраствуйте. Такое дело. На форме есть PageControl(без вкладок), вкладки создаются програмно, и на каждой вкладке есть РичЕдит(Один). Создаю владки с РичЕдитами так: procedure AddPage(ACaption: string; AControl: TPageControl); var NewPage: TTabSheet ; NewSEdit: TRichEdit; begin NewPage := TTabSheet.Create(AControl.Owner); NewPage.PageControl := AControl; NewPage.Caption :=...
Delphi Не работает программа Не работает программа, результат - только мерцание черного окошка. Программа должна выводить массив чисел. Заполнение происходит так: -имеем массив 1 с целыми числами от 1 до 2000; далее циклом. выполняется, пока массив 1 не будет пуст. -получаем случайное число в диапазоне от 1 до 2000; -записываем число в массив 2, который будет выводится; -проверяем есть ли это число в массиве 1,... https://www.cyberforum.ru/ delphi-beginners/ thread167454.html Delphi не сходится с ответом http://s41.***********/i093/1009/6e/e6b008115d71.jpg Помогите !!!!! Завтра нужно сдать отчёт...... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; https://www.cyberforum.ru/ delphi-beginners/ thread167420.html
Delphi Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 007B90DA in module 'Project1.exe'...
При нажатии кнопки "Добавить запись" должна показываться вторая форма, вместо этого ошибка //-Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 007B90DA in module 'Project1.exe'. Read of address 00000004'.-// Код первой формы: unit Cursovaya; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ... 		Delphi Строка. Вывести слова. https://www.cyberforum.ru/ delphi-beginners/ thread167397.html
Дана строка с латинскими словами, разделенными одним или несколькими пробелами. Вывести в другую строку те слова, перед которыми находятся только предшествующие по алфавиту, а за ними только последующие. Пример: Дано: abc cde fgh aaa kkk lmh Вывести: cde kkk
215 / 215 / 20
Регистрация: 18.05.2010
Сообщений: 865
22.09.2010, 00:41 0

Определитель матрицы 6х6 - Delphi - Ответ 972902

22.09.2010, 00:41. Показов 4538. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено MonT как решение

Решение

Не совсем понятен вопрос? точнее сказать вас интересует математическая часть или сложность в части алгоритма? если вы знаете все это с части математики то могу вам предложить метод гаусса или же воспользоватся рекурсивной процедурой используя формулу def (N)=(-1^(i+j))*a(i,j)*def(n-1)+..... т.е. как сумму определителей матрицы с размерностью на 1 меньше.

Добавлено через 9 часов 17 минут
Для определителя матрицы можно использовать следующую рекурсивную функцию
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

type
  TMatrix = Array of Array of Extended;
//..................
function TForm1.Def(var A: TMatrix): Extended;
var
  I, J, K: Integer;
  B      : TMatrix;
begin
  if Length(A)=1
    then Result:=A[0, 0]
    else
      begin
        Result:=0;
        for I := 0 to Length(A) - 1 do
          begin
            SetLength(B, Length(A)-1, Length(A)-1);
            for J := 1 to Length(A) - 1 do
              for K := 0 to Length(A) - 1 do
                begin
                  if K<I then B[J-1, K]:=A[J, K];
                  if K>I then B[J-1, K-1]:=A[J, K];
                end;
            if (I mod 2)=0
              then Result:=Result+A[0, I]*Def(B)
              else Result:=Result-A[0, I]*Def(B);
          end;
      end;
end;
ну а дальше уже вы сами.

Вернуться к обсуждению:
Определитель матрицы 6х6 Delphi
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 22.09.2010, 00:41
Готовые ответы и решения:

Определитель матрицы
Всем привет! Ребят помогите сделать программку, вычисляющую определитель матрицы 3*3 . Спасибо!

Определитель Матрицы
Всем привет! у меня возникла проблема. Я считаю детерминант матрицы, когда он не равен нулю, все...

Определитель матрицы
Доброго времени суток, помогите доделать задачку, почему он программа не правильно считает...

Определитель матрицы
Друг попросил сделать, код оформить смогу сам, нужны советы - как оформить покрасивее? (Вводится...

1
22.09.2010, 00:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 22.09.2010, 00:41
Помогаю со студенческими работами здесь

Определитель матрицы n*n
Пытался перевести с С++ код для нахождения определителя методом Гаусса(нашел на просторах...

Определитель матрицы
Помогите пожалуйста написать функцию определения определителя матрицы на основе stringgrid, не...

Определить Определитель матрицы
Доброго времени суток. Завтра нужно здать лабу. Буду очень благодарен. Нужно написать программу...

Найти определитель матрицы
Дана матрица размерностью NxN. Найти определитель данной матрицы. Значение N вводит пользователь.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru