| Gerar matriz transposta |
algoritmo "semnome"
// Autor : Henrique de Amorim
// Data : 03/12/2013
// Seção de Declarações
var
mat1: vetor[1..2,1..3] de real
mat2: vetor[1..3,1..2] de real
i,j: inteiro
inicio
// Seção de Comandos
para i de 1 ate 2 faca
para j de 1 ate 3 faca
escreva("DIGITE UM NUMERO: ")
leia(mat1[i,j])
mat2[j,i]<-mat1[i,j]
fimpara
fimpara
para i de 1 ate 2 faca
para j de 1 ate 3 faca
escreva (mat1[i,j]," ")
fimpara
escreval("")
fimpara
escreval("")
para j de 1 ate 3 faca
para i de 1 ate 2 faca
escreva (mat2[j,i]," ")
fimpara
escreval("")
fimpara
fimalgoritmo
|
Nenhum comentário:
Postar um comentário