Algoritmo "Consumo de Combustível"
Por: Alex Ferreira • 4/4/2016 • Exam • 1.257 Palavras (6 Páginas) • 450 Visualizações
ALEX FERREIRA 135023-4
ALGORÍTIMO – LP1
- EXERCICIO 1
algoritmo "Consumo de Combustivel"
// Função : Calcular o consumo do veiculo
// Autor : Alex Ferreira
// Data : 21/08/2013
// Seção de Declarações
var
km,lt:real
valor:real
repetir:caractere
inicio
// Seção de Comandos
repetir<-"s"
enquanto (repetir="s") faca
escreval("Média Consumo de Combustivel")
escreval
escreval("Digite a Kilometragem Percorrida: ")
leia(km)
escreval("Digite o Total de Combustível Gasto:")
leia(lt)
valor <- km/lt
limpatela
escreval
escreval("Média de Consumo --> ",(valor):8:2," KM/L.")
escreval
escreval ("Deseja Recalcular Nomente?")
escreval
ESCREVAl ("SIM(S) / NÃO(N): ")
LEIA (REPETIR)
LIMPATELA
FIMENQUANTO
LIMPATELA
Fimalgoritmo
- EXERCICIO 2
algoritmo "Algarismo Casa da Dezena em Uma Centena"
// Função : Alex Ferreira
// Autor :
// Data : 21/08/2013
// Seção de Declarações
var
n,d:inteiro
resul:inteiro
repetir:caractere
inicio
// Seção de Comandos
repetir<-"s"
enquanto (repetir="s") faca
escreval("Digite um Número Inteiro entre 100 e 999:")
leia (n)
se (n >=100) e (n<=999) entao
d<- n%100
resul<- d\10
escreval("O Algarismo da Casa das Dezenas é, ", resul," .")
escreval
senao
limpatela
escreval("Número Inválido!!! Digite Novamente:")
escreval
escreval("Digite um Número Inteiro entre 100 e 999:")
leia(n)
se (n >=100) e (n<=999) entao
d<- n%100
resul<- d\10
escreval("O Algarismo da Casa das Dezenas é, ", resul," .")
escreval
fimse
fimse
escreval("Deseja Digitar Novamente? S(sim) N(não):")
leia(repetir)
limpatela
fimenquanto
fimalgoritmo
- EXERCICIO 3
algoritmo "Algarismo Casa da Dezena em Uma Centena"
// Função : Alex Ferreira
// Autor :
// Data : 21/08/2013
// Seção de Declarações
var
n,d:inteiro
resul:inteiro
inicio
// Seção de Comandos
escreval("Algarismo Casa da Dezena em Uma Centena")
escreval
escreval("Digite um Número Inteiro entre 100 e 999:")
leia(n)
se (n >=100) e (n<=999) entao
d<- n%100
resul<- d\10
escreval("O Algarismo da Casa das Dezenas é -->", resul," .")
senao
limpatela
escreval("Número Inválido!!! Digite Novamente:")
escreval
escreval("Digite um Número Inteiro entre 100 e 999:")
leia (n)
se (n>=100) e (n<=999) entao
d<- n%100
resul<- d\10
escreval("O Algarismo da Casa das Dezenas é -->", resul," .")
fimse
fimse
fimalgoritmo
- EXERCICIO 4
algoritmo "EXIBIR DATA"
// Função : EXIBIR A DATA EM FORMATO ESPECIFICO
// Autor : ALEX FERREIRA
// Data : 8/22/2013
// Seção de Declarações
var
m,mes,d,dia,a:real
ano,novo,data:inteiro
inicio
// Seção de Comandos
escreval("Digite uma Data no Formato(mmddaaaa):")
leia(data)
escreval
m<- data/10000
mes<- m/100
dia<-data%1000000
d<-dia/10000
ano<-data%10000
se (mes<13) ou (dia<32) entao
escreval("Mês=",int(mes)," Dia=",(d):2, " Ano=",int(ano))
senao
escreval("Data Inválida!!! Digite Novamente")
escreval
escreval("Digite uma Data no Formato(mmddaaaa):")
leia(data)
fimse
fimalgoritmo
- EXERCICIO 5
algoritmo "Cálculo de Média"
// Função :
// Autor : Alex Ferreira
// Data : 23/08/2013
// Seção de Declarações
var
n1,n2,n3,n4,n5,soma:inteiro
inicio
// Seção de Comandos
escreval("Digite 5 Números, para Calcular a Média:")
escreval
escreval("Digite o Primeiro Número: ")
leia (n1)
escreval("Digite o Segundo Número: ")
leia(n2)
escreval ("Digite o Terceiro Número: ")
leia(n3)
escreval("Digite o Quarto Número: ")
leia (n4)
escreval ("Digite o Quinto Número: ")
leia (n5)
soma <- (n1 + n2 + n3 + n4 + n5)\5
escreval
escreval("Média dos Cinco Números --->",soma)
fimalgoritmo
- EXERCICIO 6
algoritmo "Calcular Quadrado e Raiz Quadrada"
// Função :
// Autor : Alex Ferreira
// Data : 23/08/2013
// Seção de Declarações
var
n:real
inicio
// Seção de Comandos
escreval("Digite um Número para Calcular seu Quadrado e Raiz Quadrada:")
...