Crie 3 vetores de inteiros com 5 elementos cada. Receba os valores dos 3 vetores em uma matriz de 3 colunas e 5 linhas, onde cada coluna armazenará um vetor. Escreva a matriz final.
Algoritmo em Visual G ("Portugol")
algoritmo "semnome"
// Autor : Thiago Campos
// Data : 25.08.2012
var
vetA:vetor[1..5]de inteiro
vetB:vetor[1..5]de inteiro
vetC:vetor[1..5]de inteiro
mat:vetor [1..5,1..3]de inteiro
i,j,k,m,n:inteiro
inicio
//vetor A
para k de 1 ate 5 passo 1 faca
Escreva("Informe
o elemento inteiro do vetor A:")
leia (vetA[k])
fimpara
//vetor B
para m de 1 ate 5 passo 1 faca
Escreva("Informe
o elemento inteiro do vetor B:")
leia (vetB[m])
fimpara
//vetor C
para n de 1 ate 5 passo 1 faca
Escreva("Informe
o elemento inteiro do vetor C:")
leia (vetC[n])
fimpara
j<-1 //linha 1
para i de 1 ate 5 faca
mat[i,j] <-
vetA[i]
fimpara
j<-2 //linha 2
para i de 1 ate 5 faca
mat[i,j] <-
vetB[i]
fimpara
j<-3 //linha 3
para i de 1 ate 5 faca
mat[i,j] <-
vetC[i]
fimpara
//SAIDA
Escreval ("A matriz é:
")
Escreva("|") //imprime
a barra
i<-1 //linha 1
para j de 1 ate 3 passo 1 faca
Escreva
(mat[i,j]," ")
fimpara
Escreva("|")
//imprime a barra
i<-2 //linha 2
Escreval(" ")
Escreva("|") //imprime
a barra
para j de 1 ate 3 passo 1 faca
Escreva
(mat[i,j]," ")
fimpara
Escreva("|") //imprime
a barra
i<-3 //linha 3
Escreval(" ")
Escreva("|") //imprime
a barra
para j de 1 ate 3 passo 1 faca
Escreva
(mat[i,j]," ")
fimpara
Escreva("|") //imprime
a barra
i<-4 //linha 4
Escreval(" ")
Escreva("|") //imprime
a barra
para j de 1 ate 3 passo 1 faca
Escreva
(mat[i,j]," ")
fimpara
Escreva("|")
//imprime a barra
i<-5 //linha 5
Escreval(" ")
Escreva("|") //imprime
a barra
para j de 1 ate 3 passo 1 faca
Escreva
(mat[i,j]," ")
fimpara
Escreva("|") //imprime
a barra
fimalgoritmo
chhheeeeeeeeee
ResponderExcluir♥
ResponderExcluir