GwPz

@Simon Viegas Tentei arrumar, pode dar uma olhada Algoritmo "Ex01" Var mat:vetor[0..5,0..5]de inteiro l,c: inteiro sl:vetor[0..5]de inteiro sc:vetor[0..5]de inteiro k,soma,soma1:inteiro Inicio soma <- 0 Escreval("Insira os valores da matriz") para l de 0 ate 5 faca para c de 0 ate 5 faca leia(mat[l,c]) fimpara fimpara para k de 0 ate 5 faca para l de 0 ate 5 faca para c de 0 ate 1 faca sc[k] <-mat[l,c] soma <- soma + sc[k] fimpara fimpara fimpara Escreval("A soma das colunas é ",soma) para k de 0 ate 5 faca para l de 0 ate 1 faca para c de 0 ate 5 faca sl[k] <-mat[l,c] soma1 <- soma1 + sl[k] fimpara fimpara fimpara Escreval("A soma das linhas é ",soma1) Fimalgoritmo

@Simon Viegas Faça um algoritmo que lê uma matriz M[5,5]. Criar dois vetores SL e SC, com 5 elementos cada, que contenham, respectivamente, as somas dos valores das linhas e as somas dos valores das colunas da matriz. No final, mostrar os 2 vetores.

Preciso apenas de uma segunda opinião, conferir com vetores menores e deu certo, apenas me confirmem se está correto. Algoritmo "FUAQ08" Var mat:vetor[0..1,0..1]de inteiro l,c: inteiro si:vetor[0..1]de inteiro sj:vetor[0..1]de inteiro k,g:inteiro Inicio g <- 0 k <- 0 Escreval("Insira os valores para a matriz!") para l de 0 ate 1 faca para c de 0 ate 1 faca leia(mat[l,c]) fimpara fimpara para l de 0 ate 1 faca para c de 0 ate 1 faca sj[c] <- mat[c] k <- k + sj[c] fimpara fimpara escreval("A soma das colunas da matriz é ", k) para l de 0 ate 1 faca si[l] <- mat[l] g <- g + si[l] fimpara escreval("A soma dos linhas da matriz é ", g) Fimalgoritmo

FUAQ lê valores para um vetor A[10]. A seguir, inserir num vetor B[10], de forma compactada, os fatoriais dos elementos com valores ímpares contidos no vetor A. Preencher os elementos restantes de B com o valor zero. Algoritmo "FUAQ03" Var vet_A:vetor[0..9]de inteiro vet_B:vetor[0..9]de inteiro l :inteiro funcao fat(x:inteiro) : inteiro var fatorial,c: inteiro inicio fatorial <- 1 para c de x ate 2 passo -1 faca fatorial<- fatorial *c fimpara retorne fatorial fimfuncao Inicio Escreval("Informe os valores para o vetor!") para l de 0 ate 9 faca leia(vet_A[l]) fimpara Escreval("Fatoriais no vetor B") para l de 0 ate 9 faca se (vet_A[l] mod 2 = 1) entao vet_B[l] <- fat(vet_A[l]) fimse Escreval(vet_B[l]) fimpara Fimalgoritmo Ele me retorna os fatoriais certinhos, mas com zeros no lugar dos pares, não estou conseguindo preenche-los por último, podem me ajudar?

@Simon Viegas Obrigado, vou prestar mais atenção e tentar melhorar! Valeu

@Simon Viegas, consegui até aqui, mas o VisualG n exibe em forma de uma matriz então ta complicado pra eu entender se está correto. Algoritmo "matriz001" Var mat : vetor[0..7,0..7] de inteiro l,c: inteiro Inicio para l de 0 ate 7 faca para c de 0 ate 7 faca se (l>c) entao mat[l,c] <- -1 escreva(mat[l,c]) senao se (l<c)entao mat[l,c] <- 1 escreva(mat[l,c]) senao se (l=c)entao mat[l,c] <- 0 escreva(mat[l,c]) fimse fimse fimse fimpara fimpara Fimalgoritmo adicionado 31 minutos depois Segunda questão, podem me dizer se está correta? Algoritmo "matriz002" Var mat:vetor[0..11,0..11] de inteiro soma,cont,l,c: inteiro media: real op:caractere Inicio soma <- 0 media <- 0 para l de 0 ate 11 faca para c de 11 ate 0 passo -1 faca leia(mat[c,l]) fimpara fimpara Escreval("Deseja calcular a soma(S) ou a média(M)?") Leia(op) se (op = "S") entao para l de 0 ate 11 faca para c de 11 ate 0 passo -1 faca se (c < l) entao soma <- soma + mat[c,l] fimse fimpara fimpara Escreval(soma) fimse se (op = "M") entao para l de 0 ate 11 faca para c de 11 ate 0 passo -1 faca se (c < l) entao soma <- soma + mat[c,l] cont <- cont + 1 fimse fimpara fimpara media <- soma/cont Escreval(media::1) fimse Fimalgoritmo

<> Olá galera, sou novo aqui, bom meu professor começou a matéria de matrizes, passou três exemplos bem simples mas na última aula ele cobrou dois exercícios que me bugaram muito, alguém pode me ajudar? 1) Crie uma matriz quadrada de 8x8 que preencha (de maneira automática) a triangular superior com o número 1, preencha a Diagonal Principal com 0 e a triangular inferior com -1 2)