Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
gomezoo
0 / 0 / 1
Регистрация: 01.10.2014
Сообщений: 18
#1

Сгенерировать квадратную матрицу T: m x n. Найти произведение элементов на главной диагонали - Pascal ABC

26.11.2014, 04:45. Просмотров 297. Ответов 1
Метки нет (Все метки)

Сгенерировать квадратную матрицу T: m x n.Записать ее в файл matrica.txt. Вычислить произведение элементов лежащих по главной диагонали.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2014, 04:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сгенерировать квадратную матрицу T: m x n. Найти произведение элементов на главной диагонали (Pascal ABC):

В матрице найти произведение элементов главной диагонали минус сумма элементов побочной диагонали
Задание: дана матрица а, найти B= произведение элементов главной диагонали -...

Отразить квадратную матрицу на 90 градусов относительно главной диагонали
отразить квадратную матрицу размером n*n на 90 градусов относительно главной...

Найти произведение элементов, стоящих на главной диагонали
Уважаемые господа, помогите, пожалуйста, с заданием

В двумерном массиве найти произведение элементов ниже главной диагонали и сумму элементов 2-го столбца
В двумерном массиве А из m строк и n столбцов найти произведение элементов ниже...

Найти сумму и произведение элементов главной диагонали матрицы
Ввести матрицу 3х3. Найти сумму и произведение элементов главной диагонали.

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3856 / 2843 / 3631
Регистрация: 05.06.2014
Сообщений: 13,939
26.11.2014, 15:54 #2
Лучший ответ Сообщение было отмечено gomezoo как решение

Решение

Изначально: (с) Puporev
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
const
  m=100;
var
  matr: array [1..m,1..m] of integer;
  i,j: integer;
  n:word;
  p: integer;
  f:text;
begin
  assign(f,'matrica.txt');
  rewrite(f);
  randomize;
  n:=random(8)+2;
  writeln('Заданная матрица порядка', n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          matr [i,j]:=random(19)-9;
          write (matr[i,j]:4);
          write (f,matr[i,j]:4);
        end;
      writeln;
      writeln(f);
    end;
  p:=1;
  for i:=1 to n do
    p:=p*matr[i,i];
  writeln('Произведение элементов главной диагонали = ', p);
  close(f);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2014, 15:54
Привет! Вот еще темы с решениями:

Найти произведение элементов главной диагонали матрицы.
Задача.Необходимо найти произведение элементов матрицы главной диагонали.

Найти произведение элементов главной диагонали массива
Найти произведение элементов главной диагонали массива размером NxN, элементы...

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

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


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

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

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