Matriz Pascal

[DSR 0]

Faça um programa em Pascal que carregue uma matriz 5 x 5 com números inteiros, calcule e

mostre a soma:

a) dos elementos da linha 4;

B) dos elementos da coluna 2;

c) dos elementos da diagonal principal;

d) dos elementos da diagonal secundária;

e) de todos os elementos da matriz.

Program 5_x_5;

 

const

NL = 5;

NC = 5;

 

var

 

L : array[1..5] of integer;

C : array[1..5] of integer;

x,y,aux,aux2,acum : integer;

 

begin

 

for I:=1 to NL do

for J:=1 to NC do

begin

write('Elemento da linha ',x,' coluna ',y,' : ');

readln(M[i,J]);

end;

 

for x:=1 to NL do

begin

acum = 0;

aux = 1;

while(aux <= X)

acum =: acum + [aux];

aux =: aux +1;

 

end;

 

for y:=1 to NC do

begin

acum = 1;

aux = 1;

while(aux <= Y)

acum = acum * matriz[1,aux];

aux = aux +1;

 

end;

 

aux = 1;

aux2 = 1;

acum = 0;

while(aux <=X)

 

acum = acum + matriz[aux, aux2];

aux = aux +1;

aux2 = aux2 +1;

 

 

for I:=1 to NL do

writeln('Soma da Linha ',I,': ',L);

for J:=1 to NC do

writeln('Soma da Coluna ',J,': ',C[J]);

writeln('Soma da Matriz: ',SOMA);

end.

[Kandrade 7]

Os nomes de variáveis estão bagunçados.

Vamos tentar começar do zero?

 

Vou arrumar seu algoritmo e fazer a letra "a". Depois disso tente fazer as outras.

 

Program 5_x_5;

const
    NL = 5;
    NC = 5;

var
    M : array[1..5] of integer;
    x,y,acum : integer;

begin

    for x:=1 to NL do
        for y:=1 to NC do
        begin
            write('Elemento da linha ',x,' coluna ',y,' : ');
            readln(M[x,y]);
        end;

Eu não sei bem a sintaxe do Pascal, por isso voce deve testar se isso funciona.

Isso deveria ler uma matriz 5x5. Onde:

"M" é a matriz;

"x" é a linha;

"y" é a coluna.

 

Agora vamos fazer a letra a.

 

a) dos elementos da linha 4;

 

    acum:=0;
    for y:=1 to NC do
    begin
        acum:= acum + M[4,y] 
    end;
    write('A soma dos elementos da linha 4 eh: ',acum);