AGRADECIMENTO...

Pessoal, Gostaria de pedir desculpas aqueles que deixam perguntas/comentários/elogios/críticas e ainda não foram respondidos.

Aproveito a oportunidade para informar a todos que devido a correria do dia a dia não conclui o curso de BSI, por isso meus conhecimentos são limitados rsrsrs...

Ainda não retirei o blog do ar porque tem ajudado a diversos estudantes, principalmente os iniciantes.

As vezes, quando o trabalho me permite, ainda arrisco tentar resolver algumas questões rs... mas para não deixar esse blog parar no tempo, o ESTUDANTE que quiser enviar a resolução de alguma questão (código próprio) para o meu e-mail, terei o prazer de posta-la neste blog e será mantido a autoria.

Desde já agradeço a todos pelas visitas e desejo bons estudos.

Thiago Campos
(srthiago@hotmail.com)

segunda-feira, 27 de agosto de 2012

Exemplo de Algoritmo usando vetores e matriz no VisualG ("Portugol")

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

2 comentários: