0 / 0 / 0
Регистрация: 09.04.2014
Сообщений: 4
1

Произведение тех элементов матрицы, сумма которых является максимальным четным числом

09.04.2014, 15:09. Показов 1275. Ответов 4
Метки нет (Все метки)

Ребят, помогите написать программу по квадратной матрице. Нужно составить программу-функцию для нахождения произведения элементов некоторой квадратной матрицы, у которых сумма является максимально четным числом. Используя функцию определить указанное произведение для матриц: A(m,m),B(m,m), E=A^2*B+A^t*B^t; элементы матрицы А и В задать произвольно
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2014, 15:09
Ответы с готовыми решениями:

Найти количество элементов, сумма которых является четным числом
Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным...

Определите, является ли сумма элементов матрицы четным числом
1) Для заданной целочисленной матрицы А(N,М) определите, является ли сумма ее элементов четным...

Определите, является ли сумма элементов матрицы чётным числом
Затрудняюсь в написании данной программы, помогите плиз буду очень благодарен Для заданной...

Определить , является ли сумма элементов матрицы четным числом
для заданной целочисленной матрицы A (N,M) определить является ли сумма ее элементов четным числом...

4
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32451 / 20945 / 8105
Регистрация: 22.10.2011
Сообщений: 36,213
Записей в блоге: 7
09.04.2014, 15:48 2
Цитата Сообщение от Lazarusnik Посмотреть сообщение
для нахождения произведения элементов некоторой квадратной матрицы, у которых сумма является максимально четным числом
Вот эта часть не понятна. Все остальное - уже делалось на форуме, причем именно на FPC/Lazarus-е.

Еще раз: есть некая квадратная матрица. Хорошо. Сумма тех элементов, которые надо перемножить - должна быть максимально возможным четным? Для матрицы
https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{vmatrix}1 & 2 & 7\\ -5 & -1 & 15\\ -2 & 4 & 6\end{vmatrix}
произведение должно быть равно -5040, или +5040? Сумма (1+2+7+15+4+6+(-1)) = 34, и (2+7+15+4+6)=34, а вот на знак произведения это отрицательное число влияет...

Если будет так:
https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{vmatrix}3 & 2 & 7\\ -5 & -1 & 15\\ -2 & 4 & 6\end{vmatrix}
, то все понятно: произведение будет отрицательным однозначно. Интересует именно предыдущий случай.
1
0 / 0 / 0
Регистрация: 09.04.2014
Сообщений: 4
09.04.2014, 16:13  [ТС] 3
UI, мне кажется это маленький случай выпадения таких элементов), в условий ни сказано о сложений отриц. элементов матрицы, поэтому в первом случае употребим 2-ой вариант(2+7+15+4+6=34). Я никак не могу написать код на форме, допустим с TStringGrid. Можешь накалякать?)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32451 / 20945 / 8105
Регистрация: 22.10.2011
Сообщений: 36,213
Записей в блоге: 7
10.04.2014, 18:33 4
Вот такой вариант, например:
Вложения
Тип файла: zip matrix_ops.zip (128.2 Кб, 7 просмотров)
1
0 / 0 / 0
Регистрация: 09.04.2014
Сообщений: 4
11.04.2014, 13:34  [ТС] 5
Код очень хороший, но я в нём запутался(мне б что попроще). Из твоего я выцепил одну деталь которая мне пригодилась - Нахождение минимального нечетного числа, чтобы найти макс чётное. Я примарно также делал, но через проверки ничего не вышло. Вообщем покапался заработало, но с одним но - не могу исправить:
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
36
//Обработчик Button2 при нажатий
procedure TForm1.Button2Click(Sender: TObject);
var
    i,j,m,n,SumMax1,SumMax2,Min1,Min2:integer;
begin
 
 RazmerMatr:=form2.SpinEdit1.Value;
 SumMax1:=0;
 SumMax2:=0;
 Min1:=MaxInt; //скорее всего от этого надо отталк.
 for i:=0 to RazmerMatr-1 do
 for j:=0 to RazmerMatr-1 do
 begin
 
   if strtoint(sg1.cells[i,j])>=0 then
   SumMax1:=SumMax1+strtoint(sg1.cells[i,j]);
   end;
 
 
 
 if not(SumMax1 mod 2=0) then
 if odd(strtoint(sg1.cells[i, j])) and (strtoint(sg1.cells[i, j]) < Min1) then //Вот это твоё, при некоторых ответах выдаёт //огромное отрц. число. (Пример:-2232312312312)
  Min1:=strtoint(sg1.cells[i,j]);
  SumMax1:=SumMax1 - Min1;
 
 for m:=0 to RazmerMatr-1 do
 for n:=0 to RazmerMatr-1 do
 begin
   if strtoint(sg2.cells[m,n])>=0 then
   SumMax2:=SumMax2+strtoint(sg2.cells[m,n]);
 
 end;
 
 Label4.Visible:=true;
 Label4.Caption:='Суммы элементов матриц A и B равны '+inttostr(SumMax1)+' и '+inttostr(SumMax2)+' соответственно.'
end;
Полный код:
Вложения
Тип файла: rar Matrix1.rar (372.4 Кб, 8 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2014, 13:34
Помогаю со студенческими работами здесь

Определить является ли сумма элементов массива, значение которых меньше 8, четным числом
Здравствуйте. Как правильно оформить задание? Вот условия &quot;Дан массив из 10 целых чисел заполненный...

Определить является ли произведение элементов массива, значение которых меньше 10, чётным числом
Дан массив 3*3 из целых чисел заполненный случайными числами из интервала . Определить является ли...

Определить количество элементов массива, в которых сумма первой и последней цифр является четным числом
дан массив a(n). определить количество элементов массива , в которых сумма первой и последней цифр...

Является ли сумма элементов матрицы, расположенных выше главной диагонали, четным числом
Для заданной целочисленной квадратной матрицы определить, является ли сумма ее элементов,...


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

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

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