Ir para o conteúdo

Publicidade

 Estatísticas do Fórum

  • 0 Usuários ativos

    0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

Foto:

Matriz Pascal

  • Por favor, faça o login para responder
1 resposta neste tópico

#1 DSR

DSR
  • Membros
  • 13 posts

Postado 08 setembro 2009 - 21:05

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[I]);
for J:=1 to NC do
writeln('Soma da Coluna ',J,': ',C[J]);
writeln('Soma da Matriz: ',SOMA);
end.

Editado por Mário Monteiro, 19 setembro 2009 - 09:25 .
Retirada a palavra "AJUDA" do Titulo ou Descrição

  • 0

#2 Kandrade

Kandrade
  • Membros
  • 2.671 posts

Postado 08 setembro 2009 - 23:38

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);

  • 0