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

Используя процедуру, найти для матриц А(9,9) и В(7,7) произведение и сумму элементов главных диагоналей

26.08.2013, 15:20. Показов 945. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста с задачей:Используя процедуру, найти для матриц А(9,9) и В(7,7) произведение и сумму элементов главных диагоналей.
В массивах ничего не понимаю..(
Буду очень признательна,тем кто поможет,или хотя бы что-нибудь подскажет.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.08.2013, 15:20
Ответы с готовыми решениями:

Найти сумму максимальных элементов главных диагоналей двух матриц
Даны две матрицы. Вычислите значение Z=X+Y, где X и Y максимальные элементы главных диагоналей...

Создать 2 массива, поместив в первый сумму элементов главных диагоналей матриц, а во второй - сумму элементов
Сам недавно начал изучать delphi,вот по чуть-чуть осваиваю,прошу у вас помощи,дорогие гуру...

Найти среднее арифметическое элементов главных диагоналей матриц
Найти среднее арифметическое элементов главных диагоналей матриц Х, У, Z и определить наибольшее...

Найти минимальный из всех максимальных элементов главных диагоналей трёх матриц
Ребята помогите решить задачки)))) 3)Заданы три матрицы A(m, m), B(n, n), C(k, k). Найти...

4
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.08.2013, 15:34 2
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
uses crt;
type mtr=array[1..9,1..9] of real;
procedure matrix(var a:mtr;n:byte;var p,s:real;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
p:=1;
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=5*random;
    write(a[i,j]:5:2);
    if j=i then
     begin
      p:=p*a[i,j];
      s:=s+a[i,j];
     end;
   end;
  writeln
 end;
writeln('Произведение элементов главной диагонали=',p:0:2);
writeln('Их сумма=',s:0:2)
end;
var a,b:mtr;
    ap,as,bp,bs:real;
begin
randomize;
matrix(a,9,ap,as,'A');
matrix(b,7,bp,bs,'B');
end.
1
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
26.08.2013, 15:43 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
uses
  crt;
 
type
  matrix = array [1..9, 1..9] of integer;
 
var
  a, b: matrix;
  sum, mul: integer;
 
procedure Create(var x: matrix; size: byte);
//процедура создания массива
var
  i, j: byte;
begin
  for i := 1 to size do
    for j := 1 to size do
      x[i, j] := Random(9) + 1;
end;
 
procedure Print(x: matrix; size: byte);
//процедура распечатки массива
var
  i, j: byte;
begin
  for i := 1 to size do
  begin
    for j := 1 to size do
      Write(x[i, j]:3);
    Writeln;
  end;
end;
 
procedure Sum_and_Mul(x: matrix; size: byte; var s, p: integer);
//процедура вычисления суммы и произведения элементов главной диагонали
var
  i: byte;
  ss: integer;
  pp: integer;
begin
  ss := 0;
  pp := 1;
  for i := 1 to size do
  begin
    Inc(ss, x[i, i]);
    pp := pp * x[i, i];
  end;
  s := ss;
  p := pp;
end;
 
begin
  Create(a, 9);  //создаем массив А
  Create(b, 7);  //создаем массив В
  Writeln('Матрица A: ');
  Print(a, 9);   //Печатаем массив А
  Sum_and_Mul(a, 9, sum, mul);   //Вычисляем сумму и произведение
  Writeln('Сумма элементов главной диагонали = ', sum, ' произведение = ', mul); // и выводим результат
  Writeln;
  Writeln('Матрица B: ');
  Print(b, 7);  //Печатаем массив В
  Sum_and_Mul(b, 7, sum, mul);  //Вычисляем сумму и произведение
  Writeln('Сумма элементов главной диагонали = ', sum, ' произведение = ', mul); //и выводим результат
end.
1
1 / 1 / 0
Регистрация: 17.05.2013
Сообщений: 36
26.08.2013, 17:32  [ТС] 4
Блин спасибо большое!!! Очень выручили)))

Добавлено через 17 минут
Puporev, программа не запускается..
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.08.2013, 17:41 5
Rustre, Замени это
Pascal
1
2
3
4
5
6
7
var a,b:mtr;
    pa,sa,pb,sb:real;
begin
randomize;
matrix(a,9,pa,sa,'A');
matrix(b,7,pb,sb,'B');
end.
Писал в Турбо Паскале, там нет зарезевированного слова
Pascal
1
as
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.08.2013, 17:41
Помогаю со студенческими работами здесь

Найти сумму внедиагональных элементов матрицы без учета главных диагоналей
а как вот это ещё найти? найти сумму внедиагональных элементов матрицы без учета главных диагоналей

Определить суммы элементов главных диагоналей матриц
Здравствуйте, помогите пожалуйста с заданием. Желательно максимально просто. Сформировать два...

Вычисление суммы элементов главных диагоналей матриц
Написать программу вычисления суммы элементов главных диагоналей матриц А (10,10), В (15,15), С...

Вычислить суммы главных элементов диагоналей матриц
1. Вычислить суммы главных элементов диагоналей матриц A, B (M≤20,N≤30) ...


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

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

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