Pascal/Delphi Erro na hora de imprimir os resultados.

[Nikollas G. Ohta]

Olá, boa noite! Sou eu novamente.

Bom, dessa vez venho aqui pedir ajuda para vocês uma luz nesse código, onde é impresso a soma de todas as colunas ao invés de imprimir o resultado da soma de cada uma individualmente. O que pode estar errado, alguma variável ou atribuição?

 

Program SomaCol_ValDiagonal;

var    mat: array[1..5,1..5] of integer;
         vet: array[1..5] of integer;
      soma,  somaC, l, c : integer;

//Linha e coluna de 1 até 5
begin
    soma:=0;
    for l:=1 to 5 do
    begin
         for c:=1 to 5 do
          begin
  	     	write('Digite um valor para a ',l,'ª linha e ',c,'ª coluna: ');  //Usuário insere valor para a coluna
          	readln(mat[l,c]);
          	somaC:=somaC+(mat[l,c]);
          begin
          if l=c then   //Se a linha for igual a coluna, é um cenário propício a formar a diagonal
            vet[l]:=mat[l,c];  
          end;
          end;
      writeln;
    end;

//Imprime os valores da diagonal   
  for l:=1 to 5 do
      begin
          soma:=soma+vet[l];
          writeln('Os elementos na diagonal são: ',vet[l]); 
        end;
    writeln;

//Imprime a soma das colunas individualmente (corrigir)  
    for c:=1 to 5 do
        begin
            writeln('A soma da ',c,'ª coluna resulta em: ',somaC);
        end;
    readkey;
end.

 

[devair1010]

@Nikollas G. Ohta     a identação do código facilita a detecção de erros , e a sua variável  "somaC"  vai acumulando os valores de todas as colunas assim no final ele contém esses valores somados uns com os outros ,  então uma solução seria usar um vetor que armazenasse os valores de cada coluna em cada uma de suas 5 posições , ou escrever os valores lá na hora que faz a leitura , e seu código modificado poderia ser assim  :

Program SomaCol_ValDiagonal;
var    
  mat      : array[1..5,1..5] of integer;
  vet      : array[1..5]      of integer;
  somaC    : array[1..5]      of integer;
  soma,l,c :                     integer;

                                              //  Linha e coluna de 1 até 5
begin
  soma:=0;
  for l := 1 to 5 do
  begin
    for c := 1 to 5 do
    begin                                      //  Usuário insere valor para a coluna
      write('Digite um valor para a ',l,'ª linha e ',c,'ª coluna: ');  
      readln(mat[l,c]);                        //  lê o teclado e insere nas posições da matriz                        
      somaC[l] := somaC[l] + ( mat[ l,c ] );   //  acumula o total na posição de somaC
      if l = c then                            //  Se a linha for igual a coluna, é um 
                                               //  cenário propício a formar a diagonal
      //begin                                  //  esse bigin estava fora de lugar e 
                                               //  nem precisa dele , pois tem apenas uma linha
        vet[l] := mat[ l,c ];                  //  armazena o valor da diagonal
      //end;
    end;
    writeln;
  end;
                                               //  Imprime os valores da diagonal   
  for l := 1 to 5 do
  begin
    soma := soma + vet[ l ];
     writeln('Os elementos na diagonal são: ',vet[ l ] ); 
  end;
  writeln;

                                               //  Imprime a soma das colunas individualmente (corrigir)  
  for c := 1 to 5 do
  begin                                        //  escreve os valores totais de cada coluna 
    writeln('A soma da ',c,'ª coluna resulta em: ',somaC[ c ]);
  end;
  readkey;
end.

 

[Simon Viegas]

Resumo:

- a variável soma não tem utilidade no código. Basta removê-la;

- não é interessante ficar tendo que ficar digitando valores para cada execução. Implemente algo como gerar os números ou já deixar uma matriz fixa. Na versão final retira. (Ou deixa gerando automaticamente mesmo.)

- o valor da diagonal já está na matriz, não precisaria de outro vetor;

 

Segue um exemplo de código:

program SomaCol_ValDiagonal;
{$CODEPAGE UTF8} //para permitir acentos nas string em alguns compiladores [Não necessário no PascalZim, mas pode deixar]
uses
  CRT; //Unit que disponibiliza o Readkey() para alguns compiladores [Não necessário no PascalZim, mas pode deixar]
var    
  matriz: array[1..5,1..5] of integer;
  somaC : array[1..5]      of integer;
  l,c,i :                     integer;

begin
  Randomize; //evitar que os números gerados pelo Random() repitam ao reexecutar o programa
  
  for l := 1 to 5 do
  begin
    for c := 1 to 5 do
    begin                                   
      write ('Digite um valor para a ', l, 'ª linha e ', c, 'ª coluna: ');  
      //readln(matriz[l,c]);
      matriz[l,c] := Random(10)+1; writeln(matriz[l,c]); //preenche com valores aleatórios     
      somaC[l] := somaC[l] + matriz[l,c];
    end;
    writeln();
  end;

  write  ('Os elementos na diagonal são respectivamente: '); 
  for i := 1 to 5 do
    write  (matriz[i,i], ' '); 
  writeln();
  
  write  ('As somas das colunas são respectivamente: ');
  for c := 1 to 5 do
    write  (somaC[c], ' ');
  
  Readkey();
end.

 

[Nikollas G. Ohta]

@devair1010 entendi! ficou muito mais claro com a identação correta e com mais espaçamentos, muito obrigado!

@Simon Viegas vou começar a usar essa dica de automatizar a entrada de números. Muito obrigado!