Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Олег Чобу
0 / 0 / 0
Регистрация: 08.05.2011
Сообщений: 9
1

Нужно найти след матрицы

10.05.2011, 11:16. Просмотров 1022. Ответов 4
Метки нет (Все метки)

Нужно найти след матрицы СА и АС. Матрицы а и с заданы. Нахождение матриц АС и СА оформить ввиде подпрограммы процедуры.

Вот что я сделал...помогите довести до ума, разобраться.

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
29
30
31
32
33
34
35
type matr= array[1..3,1..3] of real;
procedure TForm1.Button1Click(Sender: TObject);
begin
i,j:integer;
procedure AC(a,c:matr; var i,j:integer);
begin
for i to 3 do
for j to 3 do
ac:=a[i,j]*c[i,j];
end;
begin
for i to 3 do
for j to 3 do
a[i,j]:=strtofloat(stringgrid1.cells[j-1,i-1];
for i to 3 do
for j to 3 do
c[i,j]:=strtofloat(stringgrid2.cells[j-1,i-1];
begin
for i to 3 do
for j to 3 do
ca=c[i,j]*a[i,j];
end;
begin
for i to 3 do
for j to 3 do
sl[ac]:=(ac[1,1]+ac[2,2]+ac[3,3];
for i to 3 do
for j to 3 do
sl[ca]:=(ca[1,1]+ca[2,2]+ca[3,3];
end;
edit1.Text:=Floattostr(sl[ac]);
edit2.Text:=Floattostr(sl[ca]);
 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2011, 11:16
Ответы с готовыми решениями:

Найти сумму элементов главной диагонали матрицы (след матрицы)
Дана целочисленная квадратная матрица А порядка 4. Найти сумму элементов...

Найти след матрицы
Для заданной квадратной матрицы сформировать одномерный массив из ее...

След матрицы
Заданы три квадратные матрицы разного размера A, B и C. Найти минимальное из...

И нужно каждое след число (начиная с 2-ки ) Заменить на среднее арифметическое соседних чисел.
Есть ен-й набор чисел (пр: 1 2 3 4 5 6 7 8 9). И нужно каждое след число...

Подпрограммы: Вычислить след матрицы, сформированной из трех векторов
Здравствуйте! Срочно нужно написать данную прогу, ну или хотя бы как саму...

4
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
10.05.2011, 13:20 2
Посмотри вот так.
1
Вложения
Тип файла: rar Умножение матриц_2.rar (199.3 Кб, 29 просмотров)
Олег Чобу
0 / 0 / 0
Регистрация: 08.05.2011
Сообщений: 9
10.05.2011, 13:55  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Посмотри вот так.
Благодарю!

Добавлено через 4 минуты
А как правильно в виде процедуры оформить?
0
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
10.05.2011, 13:56 4
Так там и так процедура, ты хоть код посмотри...
1
Олег Чобу
0 / 0 / 0
Регистрация: 08.05.2011
Сообщений: 9
10.05.2011, 14:03  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Так там и так процедура, ты хоть код посмотри...

ИЗВИНЯЮСЬ!
Все увидел,большое спасибо.
0
10.05.2011, 14:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2011, 14:03

Найти номера столбцов матрицы, в которых элементы одинаковы (нужно исправление кода)
Задание такое Дано квадратную матрицу А размером n на n целых чисел.Знайты...

Дана матрица 15х15, нужно найти бинарным методом поиска элемент в 10ой строке матрицы
Прошу помочь в решении такой задачи : "Дана матрица 15х15, нужно найти...

Найти количество строк матрицы, похожих на первую строку данной матрицы
Дана целочисленная матрица M*N, Элементы которой могут принимать значения от 0...


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

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

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