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

Написать программу нахождения суммы диагональных элементов A*B.

11.08.2010, 10:03. Показов 1711. Ответов 2
Метки нет (Все метки)

Даны две матрицы A и B. Написать программу нахождения суммы диагональных элементов A*B.

Добавлено через 19 минут
Помогите пожалуйса решить задачу!!! Очень срочно!!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.08.2010, 10:03
Ответы с готовыми решениями:

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

Написать программу для нахождения суммы
Написать программу для нахождения суммы: S=1+1/1!+1/2!+1/3!+...+1/n. Расчет суммы должен...

Написать программу для нахождения суммы членов ряда
Написать программу для нахождения суммы членов ряда:S=3+6+9+12+15+...+N(Все ли виды циклов можно...

Написать программу нахождения суммы делителей числа, введенного с клавиатуры
Написать программу нахождения суммы делителей числа, введенного с клавиатуры.

2
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
11.08.2010, 10:20 2
Лучший ответ Сообщение было отмечено 369dimon369 как решение

Решение

Цитата Сообщение от 369dimon369 Посмотреть сообщение
... суммы диагональных элементов A*B.
Пусть матрица C=A*B, тогда
Pascal
1
2
3
Sum:=0;
for i:=1 to n do
  Sum:=Sum+C[i,i];
Переменная Sum содержит сумму диагональных элементов матрицы C...
0
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.08.2010, 10:28 3
Pascal
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
const nmax=8;
var A,B,C:array [1..nmax, 1..nmax] of real;
    n,i,j,k:byte;
    s:real;
begin
clrscr;
repeat
write ('введите размер матриц до ',nmax,' n=');
readln (n);
until n in [1..nmax];
writeln ('введите элементы матрицы А: ');
for i:=1 to n do
for j:=1 to n do
begin
write ('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln ('введите элементы матрицы B : ');
for i:=1 to n do
for j:=1 to n do
begin
write ('B[',i,',',j,']=');
readln(B[i,j]);
end;
clrscr;
writeln('Matrica A:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:6:2);
    writeln;
  end;
writeln;
writeln('Matrica B:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(b[i,j]:6:2);
    writeln;
  end;
writeln;
{умножение матриц}
for k:=1 to n do
for j:=1 to n do
  begin
    C[k,j]:=0;
    for i:=1 to n do
    C[k,j]:=C[k,j]+A[k,i]*B[i,j];
  end;
writeln ('матрица С=A*B:');
s:=0;
for i:=1 to n do
   begin
     for j:=1 to n do
      begin
       write (C[i,j]:8:2);
       if i=j then s:=s+C[i,j];{сумма элементов главной диагонали}
      end;
     writeln;
   end;
writeln;
write('Сумма диагональных элементов=',s:0:2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.08.2010, 10:28
Помогаю со студенческими работами здесь

Составить программу нахождения суммы элементов F[10] >= 10
Составить программу нахождения суммы элементов F >= 10

Написать программу для нахождения суммы большего и меньшего из трех чисел
Написать программу для нахождения суммы большего и меньшего из трех чисел (вводимых с клавиатуры)....

Составить программу нахождения суммы элементов 2 таблиц
Составить программу нахождения суммы элементов 2 таблиц. Результаты записать в третью таблицу

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


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

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

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