Даны две квадратные матрицы n-го порядка. Напечатать ту из них, в которой наименьший след (сумма диагональных элементов)

@Bombur3 · Регистрация: 23.03.2019

Вот пример кода, по нему нужно сделать задание которое я написал в заголовке, как подкорректировать, обязательно через процедуру или функцию, буду очень благодарен -

Pascal

program pz2;
const n=3;
type matrix = array [1..n,1..n] of real;
var A,B:matrix; {Початкові матриці}
{Процедура введення матриці. Параметри: Х – довільна матриця, Name – її ім'я}
procedure Input (var X:matrix; Name:char);
var i,j:integer; {Лічильники}
begin
writeln('Введіть елементи матриці ', Name);
for i:=1 to n do
for j:=1 to n do read (X[i,j]);
writeln;
end;
{Процедура друку матриці. Параметри: Х – довільна матриця, Name – її ім'я}
procedure Print (X:matrix; Name:char);
var і,j:integer; {Лічильники}
begin
writeln('Матрица ', Name);
for i:=1 to n do
begin
for j:=1 to n do write (X[i,j]:6:2);
writeln;
end;
end;
{Функція підрахунку суми елементів останнього стовпця матриці. Параметри: Х -
довільна матриця}
function Summa (X:matrix): real;
var i,j:integer; {Лічильники}
Sum: real; {Розрахункова сума}
begin
Sum:=0;
for i:=1 to n do
Sum:=Sum+X[i,n];
Summa:= Sum;
end;
{Основна програма}
begin
input(A,'A'); input(B,'B');
if Summa(A)>Summa(B) then print(A,'A')
else print(B,'B');
end.

@WildDen · 23.03.2019, 21:40

Pascal

Uses Crt;
const 
N=5;
var
a: array [1..N, 1..N] of integer;
b: array [1..N] of integer;
c: array [1..N] of integer;
d: array [1..N, 1..N] of integer;
e: array [1..N] of integer;
g: array [1..N] of integer;
k,i,j,s,s1,s2,s3,f,f1:integer;
begin
clrscr;
for i:=1 to N do 
for j:=1 to N do 
a[i,j]:=random(-10,10);
for i:=1 to N do begin
for j:=1 to N do 
write(a[i,j]:4);
writeln;
end;
k:=0;
s:=0;
for i:=1 to N do begin 
c[i]:=a[1+k,1+k];
k:=k+1;
s:=s+c[i];
end;
writeln; 
k:=0;
s1:=0;
for i:=1 to N do begin
b[i]:=a[1+k,N-k];
k:=k+1;
s2:=s2+b[i];
end;
f:=s+s1;
for i:=1 to N do 
for j:=1 to N do 
d[i,j]:=random(-10,10);
for i:=1 to N do begin
for j:=1 to N do 
write(d[i,j]:4);
writeln;
end;
k:=0;
s:=0;
for i:=1 to N do begin 
e[i]:=d[1+k,1+k];
k:=k+1;
s:=s+e[i];
end;
writeln; 
k:=0;
s3:=0;
for i:=1 to N do begin
g[i]:=d[1+k,N-k];
k:=k+1;
s3:=s3+g[i];
end;
f1:=s2+s3;
writeln('mensiy sled u matrisi:');
if f<f1 then begin
for i:=1 to N do begin
for j:=1 to N do 
write(a[i,j]:4);
writeln;
end;
end
else for i:=1 to N do begin
     for j:=1 to N do
     write(d[i,j]:4);
     writeln;
     end;
end.

Добавлено через 2 минуты
Я взял в учет и главную, и побочную диагональ, но если побочные диагонали вам не нужны, то просто удалите массивы : c[i],g[i]. Надеюсь смог вам помочь))

@Cyborg Drone · 24.03.2019, 04:56

WildDen, след матрицы по определению - это сумма элементов главной диагонали матрицы.

@WildDen · 24.03.2019, 08:54

Pascal

Uses Crt;
const 
N=5;
var
a: array [1..N, 1..N] of integer;
b: array [1..N] of integer;
d: array [1..N, 1..N] of integer;
e: array [1..N] of integer;
k,i,j,s1,s2,f,f1:integer;
begin
clrscr;
for i:=1 to N do 
for j:=1 to N do 
a[i,j]:=random(-10,10);
for i:=1 to N do begin
for j:=1 to N do 
write(a[i,j]:4);
writeln;
end;
k:=0;
s1:=0;
for i:=1 to N do begin
b[i]:=a[1+k,N-k];
k:=k+1;
s1:=s1+b[i];
end;
f:=s1;
writeln;
for i:=1 to N do 
for j:=1 to N do 
d[i,j]:=random(-10,10);
for i:=1 to N do begin
for j:=1 to N do 
write(d[i,j]:4);
writeln;
end;
k:=0;
s2:=0;
for i:=1 to N do begin 
e[i]:=d[1+k,1+k];
k:=k+1;
s2:=s2+e[i];
end;
writeln; 
f1:=s2;
writeln('mensiy sled u matrisi:');
if f<f1 then begin
for i:=1 to N do begin
for j:=1 to N do 
write(a[i,j]:4);
writeln;
end;
end
else for i:=1 to N do begin
     for j:=1 to N do
     write(d[i,j]:4);
     writeln;
     end;
end.

Добавлено через 2 минуты
Тогда эта программа больше подходит

@axbor · 24.03.2019, 10:22

Если нужно найти главный диагонали то вот это:

Pascal

var
  I, J, S, N, K: integer;
  A, B: array [1..1000,1..1000] of integer;
 
begin
  Write('massivlar oxirini kiriting');
  Readln(n);
  Randomize;
  for i := 1 to n Do
    for j := 1 to n Do 
    begin
      Write('A[ ', I, ' , ', J, ']=');
      Readln(A[I, J]);
    end;
  for i := 1 to n Do
    for j := 1 to n Do 
    begin
      Write('B[ ', I, ' , ', J, ']=');
      Readln(B[I, J]);
    end;
  for i := 1 to n Do
    for j := 1 to n Do 
    begin
      if J-1=N-I then begin
        S := S + A[i, j];
        K := K + B[I, J];
      end;
    end;
  if K > S then 
    Writeln('eng kattasi massiv B massiv') 
  else if K = S then 
    Writeln('ikkala massiv bir-biriga teng')
  else 
    Writeln('eng kattasi massiv A massiv')
end.

@WildDen · 24.03.2019, 10:37

axbor, ваша программа тоже имеет место быть, но тут нет вывода матриц, а по условию это нужно

@axbor · 25.03.2019, 06:34

Вывод той матрицы которое больше диагонали ?

Добавлено через 19 минут
Так надо:

Pascal

uses crt;
var
  I, J, S, N, K: integer;
  A, B: array [1..1000,1..1000] of integer;
 
begin
  Write('massivlar oxirini kiriting');
  Readln(n);
  Randomize;
  for i := 1 to n Do
    for j := 1 to n Do 
    begin
      A[I,J]:=random(1000);
      Write( A[i,j],' ');
      if j=n then Writeln
    end;
    Writeln;Writeln;
    Randomize;
  for i := 1 to n Do
    for j := 1 to n Do 
    begin
      B[I,J]:=random(5000);
      Write( B[i,j],' ');
      if j=n then Writeln
    end;
  for i := 1 to n Do
    for j := 1 to n Do 
    begin
      if J-1=N-I then begin
        S := S + A[i, j];
        K := K + B[I, J];
      end;
    end;
    Writeln;
      if K > S then begin
      Writeln('меньший след главный диагонали');
      Writeln;
    for i:=1 to n do 
for j:=1 to n do begin
Write( A[i,j],' ');
if j=n then Writeln
end
end
  else if K = S then   begin
  Writeln;
    Writeln('след главный диагонали одинаковы');
    Writeln
    end
  else begin
  Writeln('меньший след главный диагонали');Writeln;
    for i:=1 to n do 
for j:=1 to n do begin
Write( A[i,j],' ');
if j=n then Writeln
    end
    end
end.

@WildDen · 25.03.2019, 06:49

Нет, нужно вывести 2 матрицы, а потом ту, у которой меньший след

@axbor · 25.03.2019, 08:31

должно быть 3 матрицы так ?

@WildDen · 25.03.2019, 10:38

Да, 3 матрицы

@axbor · 25.03.2019, 10:58

Там же уменя тоже выходят 3 матрицы только число рандомно выбирает

@Puporev · 25.03.2019, 11:03

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

Да, 3 матрицы

Матриц должно быть 2, ту матрицу у которой меньше след, вывести еще раз.

Pascal

const n=3;
type matrix = array [1..n,1..n] of real;
{Процедура введения матриц}
procedure Input (var X:matrix);
var i,j:integer; 
begin
for i:=1 to n do
for j:=1 to n do
X[i,j]:=9*random;
end;
{Процедура вывода матриц}
procedure Print (X:matrix; Name:char);
var i,j:integer;
begin
writeln('Матрица ', Name);
for i:=1 to n do
 begin
  for j:=1 to n do
  write (X[i,j]:6:2);
  writeln;
 end;
end;
{Нахождение следа}
function Summa (X:matrix): real;
var i,j:integer;
Sum: real;
begin
Sum:=0;
for i:=1 to n do
Sum:=Sum+X[i,i];
Summa:= Sum;
end;
{Основная программа}
var A,B:matrix;
begin
input(A);
input(B);
print(A,'A');
writeln('След=',Summa(A):0:2);
print(B,'B');
writeln('След=',Summa(B):0:2);
writeln('Матрица с наименьшим следом');
if Summa(A)<Summa(B) then print(A,'A')
else print(B,'B');
end.

@axbor · 25.03.2019, 11:10

Ну я понял пожалуйста посмотрите на мой код ёще раз у меня точна как у вас выходят только я не использовал процедуры и функций.

@axbor 3 / 2 / 1 Регистрация: 06.01.2019 Сообщений: 32
	25.03.2019, 11:10	13
	Ну я понял пожалуйста посмотрите на мой код ёще раз у меня точна как у вас выходят только я не использовал процедуры и функций. 0

@Cyborg Drone Модератор 9534 / 4861 / 3230 Регистрация: 17.08.2012 Сообщений: 15,203
	24.03.2019, 04:56	3
	WildDen, след матрицы по определению - это сумма элементов главной диагонали матрицы. 0

@WildDen 109 / 68 / 46 Регистрация: 13.01.2019 Сообщений: 288
	24.03.2019, 10:37	6
	axbor, ваша программа тоже имеет место быть, но тут нет вывода матриц, а по условию это нужно 1

@WildDen 109 / 68 / 46 Регистрация: 13.01.2019 Сообщений: 288
	25.03.2019, 06:49	8
	Нет, нужно вывести 2 матрицы, а потом ту, у которой меньший след 0

@axbor 3 / 2 / 1 Регистрация: 06.01.2019 Сообщений: 32
	25.03.2019, 08:31	9
	должно быть 3 матрицы так ? 0

@WildDen 109 / 68 / 46 Регистрация: 13.01.2019 Сообщений: 288
	25.03.2019, 10:38	10
	Да, 3 матрицы 0

@axbor 3 / 2 / 1 Регистрация: 06.01.2019 Сообщений: 32
	25.03.2019, 10:58	11
	Там же уменя тоже выходят 3 матрицы только число рандомно выбирает 0

Опции темы