Algoritmo (vetores)
Casos: Algoritmo (vetores). Pesquise 861.000+ trabalhos acadêmicosPor: C.Gonzaga • 26/11/2013 • 1.635 Palavras (7 Páginas) • 1.821 Visualizações
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/11/2013
// Seção de Declarações
//Um armazém trabalha com 50 mercadorias diferentes. O dono do
// armazém anota a descrição, a quantidade de cada mercadoria
//vendida durante o mês e o seu preço unitário. Faça um algoritmo
//para calcular o faturamento mensal do armazém.
var
v: vetor [1..50] de inteiro
i, soma:inteiro
inicio
escreval ("Entre com os valores:")
para i de 1 ate 50 faca
leia (v[i])
fimpara
soma<-0
para i de 1 ate 50 faca
soma<-soma+v[i]
fimpara
escreval(soma)
fimalgoritmo
=============================================================================
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/11/2013
// Seção de Declarações
//Faça um algoritmo que leia 100 valores e os escreva na ordem
//contrária à que foram digitados.
var
a:vetor[1..100] de inteiro
i:inteiro
inicio
// Seção de Comandos
para i de 1 ate 100 faca
escreval ("entre com o ",i,":")
leia(a[i])
fimpara
escreval("Numeros ao contrario")
para i de 100 ate 1 passo -1 faca
escreva(a[i])
fimpara
fimalgoritmo
=============================================================================
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/11/2013
// Seção de Declarações
//Faça um algoritmo que leia 100 valores e os escreva na ordem
//contrária à que foram digitados.
var
a:vetor[1..100] de inteiro
i:inteiro
inicio
// Seção de Comandos
para i de 1 ate 100 faca
escreval ("entre com o ",i,":")
leia(a[i])
fimpara
escreval("Numeros ao contrario")
para i de 100 ate 1 passo -1 faca
escreva(a[i])
fimpara
fimalgoritmo
=============================================================================
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/11/2013
// Seção de Declarações
//Faça um algoritmo para calcular a média
//aritmética de uma quantidade 10 de valores numéricos lidos.
var
n:vetor[1..3] de inteiro
i,soma:inteiro
media:real
inicio
// Seção de Comandos
para i de 1 ate 3 faca
escreval ("Informe o numero:")
leia(n[i])
fimpara
para i de 1 ate 3 faca
soma<-soma+n[i]
media<-soma/3
escreval(media)
fimpara
fimalgoritmo
=============================================================================
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/11/2013
// Seção de Declarações
//Escrever um algoritmo que lê um vetor A(15)
//e o escreve. Ordene a seguir os elementos
//de A em ordem crescente e escreva novamente A.
var
v:vetor [1..15] de inteiro
i,j,aux:inteiro
inicio
// Seção de Comandos
para i de 1 ate 15 passo 1 faca
leia(v[i])
fimpara
para j de 1 ate 14 passo 1 faca
...