Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
бестолочь
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 6
1

Найти произведение главной диагонали и суммы побочной диагонали матрицы

14.05.2009, 20:13. Просмотров 938. Ответов 5
Метки нет (Все метки)

Дана матрица действительных чисел M(n,m). Найти произведение главной диагонали и суммы побочной диагонали.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2009, 20:13
Ответы с готовыми решениями:

Найти произведения элементов главной диагонали и побочной диагонали матрицы
Найдите для массива nxn произведение чисел главной диагонали и боковой диагонали.

В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали
В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение...

Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и ниже побочной диагонали
Дана квадратная матрица порядка М. Обнулить элементы матрицы,лежащие одновременно выше главной...

Напечатать элементы матрицы, ее главной диагонали, если все они отличны от соответствующих элементов побочной диагонали и наоборот
Пусть дана символьная квадратная матрица размерности n. Напечатайте элементы матрицы, лежащие на ее...

Матрицы. Найти сумму элементов главной и побочной диагонали.
Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной...

5
demidrolll
131 / 130 / 60
Регистрация: 10.12.2008
Сообщений: 286
14.05.2009, 23:06 2
Главная и побочная диагональ есть только у квадратной матрицы m(n,n)
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
uses
  crt;
const
  n=4;
var
  i,j,mult,sum,k,l: integer;
  m: array [1..n,1..n] of integer;
begin
  clrscr;
  randomize;
  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      m[i,j]:=random(9)+1;
      write(m[i,j],' ');
    end;
    writeln;
  end;
  mult:=1;
  for i:= 1 to n do
    mult:=mult*m[i,i];
  k:=1;
  l:=n;
  i:=1;
  sum:=0;
  while i<=n do
  begin
    sum:=sum+m[l,k];
    inc(k);
    dec(l);
    inc(i);
  end;
  writeln('Mult = ',mult);
  writeln('Summa = ',sum);
  readkey;
end.
1
бестолочь
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 6
15.05.2009, 07:59  [ТС] 3
сорри..там в услови ошибка..
Найти произведение суммы главной диагонали и суммы побочной диагонали.
так должно быть((
0
alex_x_x
16.05.2009, 18:00
  #4

Не по теме:

бестолочьчем же преподаватель так провинился перед вами, что вы игнорируете его лекции?)

0
бестолочь
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 6
16.05.2009, 18:21  [ТС] 5
мы матрици не проходили((
и вообще паскаль и программирование не для меня..но надо за этот курс всё сдать..чтоб уйти..
0
Vzik
32 / 26 / 7
Регистрация: 05.05.2009
Сообщений: 58
16.05.2009, 18:51 6
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
uses crt;
type matrix = array [1..11,1..11] of integer;
var
   A:matrix;
   i,j,m,n,sum1,sum2,sub:integer;
   
   begin
        clrscr;
        write ('Введите число строк: '); readln(m);
        write ('Введите число столбцов: '); readln(n);
        writeln;
        if m <> n then
        writeln('Ошибка! ')
        else
         begin
        for i:=1 to n do
            for j:=1 to m do begin
                write('A[',i,',',j,'] = ');
                readln (A[i,j]);
            end;
        clrscr;
        writeln ('Исходная матрица: ');
 for i:=1 to n do
            for j:=1 to n do begin
                writeln ('A[',i,',',j,'] = ',A[i,j]);
            end;
 for i:=1 to n do
                 sum1:=sum1+A[i,i];
 
       j:=n;
       for i:=1 to n do begin
                sum2:=sum2+A[i,j];
                dec (j);
       end;
writeln ('Сумма элементов главной диагонали: ',sum1);
       writeln ('Сумма элементов побочной диагонали: ',sum2);
sum:=sum1*sym2;
writeln('proizvedenee ravno',sum);
readkey;       
end;end.
Добавлено через 10 минут 51 секунду
В Var я написала sub, а надо sum
1
16.05.2009, 18:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2009, 18:51

Вычислить четыре суммы: элементов на главной диагонали, на побочной, над главной и под главной диагональю
1. сформировать двумерный массив размером 4х4 с помощью функции random из промежутка и вывести на...

Двумерные массивы - Найти сумму элементов главной, побочной диагонали матрицы
3. Дана квадратная матрица порядка*M. Найти сумму элементов ее главной, побочной диагонали.

Найти произведение элементов главной диагонали матрицы
есть задача: &quot;Разместить в динамической памяти двумерный массив чисел. Найти произведение элементов...


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

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

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