[Resolvido] Matriz diagonal

[dedeboy 0]

Olá eu estou com problema nesse exercicio que diz assim:

 

Ler uma matriz A de duas dimensões com 5 linhas e 5 colunas. Construir uma matriz B de mesma dimensão, onde cada elemento da matriz B deverá ser o dobro de cada elemento correspondente da matriz A,com exceção para os valores situados na diagonal principal (posições B[1,1], B[2,2], B[3,3], B[4,4], B[5,5]) os quais deverão ser o triplo de cada elemento de cada elemento correspodente a matriz A. Apresentar ao final a matrizes B.

Então eu fiz o algoritmo, só que não estou conseguindo fazer a parte diagonal principal eu ja fiz com a condição se mas não deu certo. Eu gostaria de como proceder para saber como fazer isso?

Por enquanto vou pensando como fazer, se consegui resolver antes eu postarei como eu fiz.

 

Obrigado. []s

[quitZAUMMM 18]

Como você desenvolveu a principio é assim:

 

. // Faz o loop para colunas: vou usar a variavel col
. // Faz o loop para linhas : vou usar a varival lin
Se (col = lin) então 
    B[i] <- A[i] * 3;
Senão
    B[i] <- A[i] * 2;
Fim_Se

[]s

[dedeboy 0]

Resolvido! valeu quitzumm se não fosse você pra ajudar a tirar as minhas dúvidas eu não sei quanto tempo ia demorar pra resolver esse algoritmo. http://forum.imasters.com.br/public/style_emoticons/default/natal_laugh.gif

Eu fiquei pensando a noite inteira como resolver, eu sabia que era a condição se, mas não sabia como eu ia fazer a instrução. Aí ta o código que eu fiz.

[]s

var
A,B: vetor[1..5,1..5] de real
I,J: inteiro
inicio

// Seção de Comandos
{Matriz A}
Escreval("Digite os elementos da Matriz A:")
Para I de 1 ate 5 passo 1 faca
   Para J de 1 ate 5 passo 1 faca
      Leia(A[I,J])
   fimpara
fimpara
{Matriz B}
Para I de 1 ate 5 passo 1 faca
   Para J de 1 ate 5 passo 1 faca
        Se(I = J) entao
        B[I,J]:= A[I,J] * 3
      senao
         B[I,J]:= A[I,J] * 2
      fimse
   fimpara
fimpara
{Saida da Rotina de dados}
Escreval("Os Resultados da Matriz B sera:")
Para I de 1 ate 5 passo 1 faca
  Para J de 1 ate 5 passo 1 faca
       Escreva(B[I,J])
  fimpara
fimpara

fimalgoritmo

[quitZAUMMM 18]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif