Создание и реализация программ с использованием квадратных матриц

@HolivyD · Регистрация: 22.10.2018

В массиве А (X, X) найти произведения элементов каждой параллели к боковой диагонали и самой диагонали, и найдены произведения объединить в одномерный массив.

@Puporev · 27.11.2018, 22:15

Сообщение от HolivyD

каждой параллели к боковой диагонали и самой диагонали

Объясните или нарисуйте что это такое.

@HolivyD · 27.11.2018, 23:52 **[ТС]**

А чёрт его знает как это объяснить, сам не понимаю. Если есть возможно то напишите программу которая если не 100% задана по заданию то приближенная к нему.

@Puporev · 28.11.2018, 08:34

Условие нужно писать человеческим языком, видимо такое.
В массиве А (X, X) найти произведения элементов каждой диагонали параллельной к побочной диагонали и ее самой.
Найденные произведения объединить в одномерный массив.

Pascal

var a:array[1..10,1..10] of real;
    b:array[1..19] of real;
    n,z,i,j,nd:integer;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Матрица');
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);
   end;
  writeln;
 end;
writeln('Произведения на диагоналях, параллельных побочной и на ней');
for z:=n-1 downto -n+1 do
 begin
  nd:=2*n-(j+z);//номер диагонали, начиная с [1,1]
  b[nd]:=1;
  for j:=1 to n do
  if (j+z>0) and (j+z<=n) then
  b[nd]:=b[nd]*a[n-(j+z)+1,j];
 end;
for i:=1 to 2*n-1 do
write(b[i]:0:2,' ');
end.

@HolivyD 0 / 0 / 0 Регистрация: 22.10.2018 Сообщений: 43
		1
	Создание и реализация программ с использованием квадратных матриц 27.11.2018, 19:09. Просмотров 706. Ответов 3 Метки нет (Все метки) В массиве А (X, X) найти произведения элементов каждой параллели к боковой диагонали и самой диагонали, и найдены произведения объединить в одномерный массив. 0

@Puporev Модератор 62251 / 46534 / 32083 Регистрация: 18.05.2008 Сообщений: 112,502
	27.11.2018, 22:15	2
	Сообщение от HolivyD каждой параллели к боковой диагонали и самой диагонали Объясните или нарисуйте что это такое. 0

@HolivyD 0 / 0 / 0 Регистрация: 22.10.2018 Сообщений: 43
	27.11.2018, 23:52 [ТС]	3
	А чёрт его знает как это объяснить, сам не понимаю. Если есть возможно то напишите программу которая если не 100% задана по заданию то приближенная к нему. 0

Опции темы