ativ ALGORITMOS ATV. 07

Prévia do material em texto

algoritmo E PROGRAMAÇÃO
atividades DA aula 07
Todos os algoritmos desta atividade deverão ser desenvolvidos no VISUALG e enviados no Microsoft Word.
Faça um algoritmo para ler um vetor de 10 números inteiros e depois exibi-lo em ordem inversa. 
R:
algoritmo "Vetor 10 números"
// Função : Ler vetor de 10 numeros inteiros
// Autor :LEILIAM DA SILVA BUENO
// Data : 26/11/2017
// Seção de Declarações 
var
elementos:vetor[1..10] de inteiro
I, X, J: inteiro
inicio
para I de 1 ate 10 passo 1 faca
leia(elementos[I])
limpara
para I de 1 ate 9 passo 1 faca
para J de I+1 ate 10 passo 1 faca
se (elementos[I] < elementos[J]) entao
X <- elementos[I]
elementos[I] <- elementos[J]
elementos[J] <- X
fimse
limpara
limpara
para I de 1 ate 10 passo 1 faca
escreval("vetor em ordem inverso:", elementos[I])
fimpara
fimalgoritmo
Faça um algoritmo para ler um vetor de 15 números inteiros e calcular e mostrar quantas vezes o número 10 apareceu no vetor.
R:
algoritmo "Ler 15 vetores"
// Função : Ler 15 vetores e ver quantas vezes foram digitados valor 10
// Autor : LEILIAM DA SILVA BUENO
// Data : 26/11/2017
// Seção de Declarações 
Var
// Seção de Declarações das variáveis
 i:inteiro
 xqdez:inteiro
 vetA:vetor[1..15] de inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
 xqdez<-0
 para i de 1 ate 15 faca
 escreval("informe o numero:",i,"numero")
leia(vetA[i])
 se (vetA[i]=10) então
 xqdez<-xqdez+1
 fimse
 fimpara
 escreva("foram digitados",xqdez,"vezes:")
Fimalgoritmo
Faça um algoritmo para ler dois vetores A e B com 20 números inteiros cada, e construir um vetor C, de forma que cada elemento de C seja a subtração da respectiva posição de A com a respectiva posição de B.
R:
algoritmo "Vetor A e B com 20 inteiros"
// Função : ler vetor A e B com 20 inteiros e construir vetor C
// Autor : LEILIAM DA SILVA BUENO
// Data : 26/11/2017
// Seção de Declarações 
Var
// Seção de Declarações das variáveis
 i:inteiro
 vetorA:vetor[1..20] de inteiro
 vetorB:vetor[1..20] de inteiro
 vetorC:vetor[1..20] de inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
 para i de 1 ate 20 faca
 escreval("vetor A")
 escreval("informe:",i,"valor.")
 fimpara
 para i<-1 ate 20 faca
 escreval("informe:",i,"valor.")
 escreval("vetor B")
leia (vetorB[i])
 fimpara
 para i <-1 ate 20 faca
 vetorC[i] <- vetorA[i]-vetorB[i]
 fimpara
 para i<-1 ate 20 faca
 escreval( vetorA[i],"-",vetorB[i],"-",vetorC[i])
 fimpara
Fimalgoritmo
Faça um algoritmo para ler dois vetores A e B com 15 inteiros cada, e construir um vetor C, com 30 elementos, onde os 15 primeiros são os elementos de A e o restante os elementos de B.
R:
algoritmo "Ler vetores A e B com 15 números inteiros e construir vetor C"
// Função : Ler vetores A e B com 15 números inteiros e construir vetor C
// Autor : LEILIAM DA SILVA BUENO
// Data : 26/11/2017
// Seção de Declarações 
Var
// Seção de Declarações das variáveis
 i:inteiro
 vetorA:vetor[1..15] de inteiro
 vetorB:vetor[1..15] de inteiro
 vetorC:vetor[1..30] de inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
 //vetor A
 para i de 1 ate 15 faca
 escreval("vetor A")
 escreval("informe o valor da posicao:",i,":")
 leia (vetorA[i])
 fimpara
 limpatela
 //vetor B
 para i de 1 ate 15 faca
 escreval("informe o valor da posicao:",i,":")
 escreval("vetor B")
 leia (vetorB[i])
 fimpara
 limpatela
 //uniao de vetores A e B
 //vetor C
 para i de 1 ate 15 faca
 se vetorA[i] <> vetorB[i] entao
 vetorC[i] <- vetorA[i]
 vetorC[i+15]<-vetorB[i]
 senao
 vetorC[i]<-vetorA[i]
 fimse
 fimpara
 escreval("vetor A")
 para i de 1 ate 15 faca
 escreval(vetorA[i])
 fimpara
 escreval("")
 escreval("")
 escreval("vetor B")
 para i de 1 ate 15 faca
 escreval(vetorB[i])
 fimpara
 escreval("")
 escreval("")
 escreval("uniao dos vetores de A e B no vetor C")
 para i de 1 ate 30 faca
 escreval (vetorC[i])
 fimpara
 escreval("")
 escreval("")
Fimalgoritmo