Расчет элементов квадратной матрицы по заданной формуле

@Fredoom · Регистрация: 06.11.2015

Author24 — интернет-сервис помощи студентам

Разработать программу решения первых двух из четырех взаимосвязанных задач работы:
1) расчета элементов квадратной матрицы A = (ai,j ), i,j = 1,2,...,n по заданной формуле;
2) вычисления элементов вектора X = (xi), i = 1,2,...,n по заданному правилу;

1) a_ij=|2,7-i|*2^(-j)
2) xi - скалярное произведение побочной диагонали на i-ю строку;
3) упорядочить элементы четных строк матрицы A по возрастанию значений;
4) y=∏_(i=1)^n i!/e^i

Задание в Microsoft Word прилагается

@Fredoom · 07.11.2015, 21:06 **[ТС]**

Помогите пожалуйста, очень надо для зачета!

@ZX Spectrum-128 · 08.11.2015, 11:08

Fredoom, формулы непонятны. Наберите их в редакторе формул.

@Fredoom · 10.11.2015, 17:08 **[ТС]**

$https://www.cyberforum.ru/cgi-bin/latex.cgi?1){a}_{ij}=\left|2,7-i\right|*{2}^{-j}4)y=\prod_{i=1}^{n}\frac{i!}{{e}^{i}}$

Добавлено через 4 часа 12 минут

Pascal

program prim4;
const n=5;
type Vect=array[1..n]of real;  
      Matr=array[1..n,1..n] of real;
      
var A: Matr;
   x: Vect;
   
  
procedure Matrica(n:integer; var A:Matr);
var i,j: integer;
Begin
   for i:=1 to n do 
   for j:=1 to n do
     A[j,i]:=abs(2.7-i)*exp(ln(2)*(-j));
     end;
     
procedure Vector(n:integer; A:Matr; var X:Vect);
var i,j:integer;
Begin
   for j:=1 to n do begin 
   X[j]:=0.0;
for i:=1 to n do
X[j]:=x[j]+A[i,j]*A[i,n-i+1]; end; 
end;
 
Procedure PORJADOK(N:integer; var A:matr); 
var i,j,k,m,l: integer; 
            max,S : real;
Begin
for i:=1 to n do begin
if i mod 2=0 then for k:=1 to m do begin
max:=a[i,k];
for j:=k to m do
if a[i,j]>max then
begin max:=A[i,j]; l:=j;
S:=A[i,k];
A[i,k]:=max;
A[i,l]:=S end; end;
end;
 
 
begin
MATRICA(N,A);                               
    writeln(' матрица А: ');
for j:=1 to n do begin                        
for i:=1 to n do
write(A[i,j]:10:2); 
 end;           
 
VECTOR(N,A,X);             
  writeln(' Элементы вектора Х: ');
for i:=1 to n do                                  
write(x[i]:10:2);          
 
PORJADOK(N,A);              
 writeln(' Упорядоченная матрица:');
for i:=1 to n do begin           
for j:=1 to n do
write(A[i,j]:10:2);
 end;           
end;
end;  begin
end.

пишет, что значение А нигде не используется, что делать?
Правильно ли я написал вывод всей программы на экран?

Добавлено через 17 часов 10 минут
Опытные программисты, помогите пожалуйста!

Добавлено через 3 часа 28 минут

Pascal

program prim4;
const n=5;
type Vect=array[1..n]of real;  
      Matr=array[1..n,1..n] of real;
      
var A: Matr;
   x: Vect;
   
  
procedure Matrica(n:integer; var A:Matr);
var i,j: integer;
Begin
   for i:=1 to n do 
   for j:=1 to n do
     A[j,i]:=abs(2.7-i)*exp(ln(2)*(-j));
     end;
     
procedure Vector(n:integer; A:Matr; var X:Vect);
var i,j:integer;
Begin
   for j:=1 to n do begin 
   X[j]:=0.0;
for i:=1 to n do
X[j]:=x[j]+A[i,j]*A[i,n-i+1]; end; 
end;
 
Procedure PORJADOK(N:integer; var A:matr); 
var i,j,k,m,l: integer; 
            max,S : real;
Begin
for i:=1 to n do begin
if i mod 2=0 then for k:=1 to m do begin
max:=a[i,k];
for j:=k to m do
if a[i,j]>max then
begin max:=A[i,j]; l:=j;
S:=A[i,k];
A[i,k]:=max;
A[i,l]:=S end; end;
end;
 
 
begin
MATRICA(N,A);                               
    writeln(' матрица А: ');
for j:=1 to n do begin                        
for i:=1 to n do
write(A[i,j]:10:2); 
 end;           
 
VECTOR(N,A,X);             
  writeln(' Элементы вектора Х: ');
for i:=1 to n do                                  
write(x[i]:10:2);          
 
PORJADOK(N,A);              
 writeln(' Упорядоченная матрица:');
for i:=1 to n do begin           
for j:=1 to n do
write(A[i,j]:10:2);
 end;           
end;
end;  begin
end.

У меня не получается с выводом, проверьте пожалуйста программу

Добавлено через 20 часов 38 минут
Никто не может помочь?

@Fredoom 0 / 0 / 0 Регистрация: 06.11.2015 Сообщений: 5
	07.11.2015, 21:06 [ТС]	2
	Помогите пожалуйста, очень надо для зачета! 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	08.11.2015, 11:08	3
	Fredoom, формулы непонятны. Наберите их в редакторе формул. 0

	10.11.2015, 17:08