Exercício 01
algoritmo "Próximo número"
// Função : informar o número sucessor
// Autor : Júlio Melo
// Data : 17/3/2009
// Seção de Declarações
var
nm:inteiro
inicio
escreva ("Informe um número qualquer -> ")
leia (nm)
nm <- nm +1
escreva ("O sucessor do número que você digitou é -> ",nm)
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 02
algoritmo "Cigarro gasto ano"
// Função : Cálclar média de cigarros fumado ao ano
// Autor : Júlio Melo
// Data : 17/3/2009
// Seção de Declarações
var
anos,qtd_cig,xano:inteiro
vl_car,vl_cig,total:real
inicio
escreval ("Informe a quantos anos você fuma?")
leia (anos)
escreval ("Informe a quantidade de cigarros que você fuma ao dia?")
leia (qtd_cig)
escreval ("Infomr o preço da carteira de cigarro")
leia (vl_car)
vl_cig <- (vl_car / 20)
xano <- 365
anos <- (anos * xano)
total <- (qtd_cig * vl_cig) * anos
escreva ("O Dinheiro gasto até hoje foi de (R$)",total)
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 03
algoritmo "Ler Números inteiros"
// Função : ler 2 númeors inteiro
// Autor : Júlio Melo
// Data : 17/3/2009
// Seção de Declarações
var
n1,n2:inteiro
qoc:real
resto:real
inicio
escreval ("Informe um número inteiro qualquer")
leia (n1)
escreval ("Informe um número inteiro qualquer")
leia (n2)
qoc <- (n1 div n2)
escreval ("O quociente dos números que você digitou é" ,qoc)
resto <- (n1 mod n2)
escreval ("O Resto da divisão é",resto)
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 04
algoritmo "Soma Produto e quociente"
// Função : informações ...
// Autor : Júlio Cesar Melo
// Data : 22/3/2009
// Seção de Declarações
var
vl1,vl2,soma,mult,divi:real
inicio
escreval ("Informe um valor real qualquer")
leia (vl1)
escreval ("Informe um valor real qualquer")
leia (vl2)
soma <- vl1 + vl2
mult <- vl1 * vl2
divi <- vl1 / vl2
escreval ("A soma entre os valores é ",soma)
escreval ("O produto dos valores é ",mult)
escreval ("O quociente dos valores é ",divi)
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 05
algoritmo "1 maior que os outros"
// Função : Maior
// Autor : Júlio Cesar Melo
// Data : 22/3/2009
// Seção de Declarações
var
n1,n2,n3,soma:real
inicio
escreval ("Informe um número qualquer")
leia (n1)
escreval ("Informe um número qualquer")
leia (n2)
escreval ("Informe um número qualquer")
leia (n3)
soma <- n2 + n3
se n1 < soma entao
escreva ("A soma dos dois últimos números é maior que o primeiro")
fimse
se n1 > soma entao
escreva ("A Soma dos dois últimos número é menor que o primeiro")
fimse
se n1 = soma entao
escreva ("A Soma do primeiro número e os dois últimos são iguais.")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 06
algoritmo "Verificação Nomes"
// Função : Ler nomes
// Autor : Júlio Melo
// Data : 22/3/2009
// Seção de Declarações
var
nome,v_nome:caractere
inicio
nome <- "Júlio Cesar Gomes de Melo"
escreval ("Informe seu nome")
leia (v_nome)
se nome <> v_nome entao
escreva ("Nome Incorreto")
fimse
se v_nome = nome entao
escreva ("Nome Correto")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 07
algoritmo "Verificar números inteiros"
// Função : ler números
// Autor : Júlio Cesar Melo
// Data : 22/3/2009
// Seção de Declarações
var
a,b:inteiro
inicio
escreval ("Informe um valor inteiro qualquer")
leia (a)
escreval ("O Valor ",a," que você digitou será a letra [A]")
escreval ("")
escreval ("")
escreval ("Informe um valor inteiro qualquer")
leia (b)
escreval ("O Valor ",b," que você digitou será a letra [B]")
escreval ("")
escreval ("")
se a > b entao
escreval ("O Valor [A] é maior que o valor [B]")
fimse
se a < b entao
escreval ("O Valor [B] é maior que o valor [A]")
fimse
se a = b entao
escreval ("O Valor [A] e [B] são iguais (A=B)")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 08
algoritmo "Detran"
// Função : Multa
// Autor : Júlio Cesar Melo
// Data : 23/3/2009
// Seção de Declarações
var
vl_pe,vl_co,con:inteiro
mult:real
inicio
escreval ("Informe a velocidade permitida")
leia (vl_pe)
escreval ("Informe a velocidade em que o motorista está")
leia (vl_co)
se vl_co > vl_pe entao
con <- (vl_co - vl_pe)
se (con > 0) e (con < 11) entao
mult <- mult + 50
escreval ("A multa que o motorista irá pagar é de",mult)
fimse
se (con > 11) e (con < 30) entao
mult <- mult + 100
escreval ("A multa que o motorista irá pagar é de",mult)
fimse
se (con > 31) entao
mult <- mult + 200
escreval ("A multa que o motorista irá pagar é de",mult)
fimse
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 09
algoritmo "Quantidade de latão"
// Função : %%
// Autor : Júlio Cesar Melo
// Data : 23/3/2009
// Seção de Declarações
var
dado:real
inicio
escreval ("Informe a quantidade de latão que você deseja em Kg.")
leia (dado)
escreval ("A quantidade de cobre é",dado*0.7,"% de cobre")
escreval ("A quantidade de Zinco é",dado*0.3,"% de Zinco")
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 10
algoritmo "semnome"
// Função : Ler 02 números inteiros
// Autor : Júlio Cesar Melo
// Data : 22/3/2009
// Seção de Declarações
var
n1,n2:inteiro
md,md1,geral:real
inicio
escreval ("Informe um número inteiro qualquer")
leia (n1)
escreval ("Informe um número inteiro qualquer")
leia (n2)
se n2 <> 0 entao
md <- n1 / n2
md1 <- n2 / n1
geral <- md / md1
escreval ("Cálculo dos quocientes é ",geral)
senao
escreval ("DIVISÃO POR ZERO")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 11
algoritmo "semnome"
// Função : maior número
// Autor : Júlio Melo
// Data : 21/3/2009
// Seção de Declarações
var
n1,n2,n3:inteiro
inicio
escreval ("Informe um número inteiro qualquer")
leia (n1)
escreval ("Informe outro número inteiro qualquer")
leia (n2)
escreval ("Informe outro número inteiro qualquer")
leia (n3)
se (n1 > n2) e (n1 > n3) entao
escreva ("O Primeiro valor que você digitou que é -> [",n1, " ] é o maior valor")
fimse
se (n2 > n1) e (n2 > n3) entao
escreva ("O Segundo valor que você digitou que é -> [",n2," ] é o maior valor")
fimse
se (n3 > n1) e (n3 > n2) entao
escreva ("O Terceito valor que você digitou [",n3, " ] é o maior valor")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 12
algoritmo "Ordem crescente"
// Função : Ordem crescente
// Autor : Júlio Cesar Melo
// Data : 22/3/2009
// Seção de Declarações
var
v1,v2,v3:inteiro
inicio
escreval ("Informe um valor qualquer")
leia (v1)
escreval ("Informe um valor qualquer")
leia (v2)
escreval ("Informe um valor qualquer")
leia (v3)
se (v1 > v2) e (v1 > v3) e (v2 > v3) entao
escreval ("Os Valores em ordem crescentes são ", v1,v2,v3)
fimse
se (v2 > v1) e (v2 > v3) e (v1 > v3) entao
escreval ("Os Valores em ordem crescentes são ", v2,v1,v3)
fimse
se (v3 > v1) e (v3 > v2) e (v2 > v1) entao
escreva ("Os Valores em ordem crescentes são ", v3,v2,v1)
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 13
algoritmo "Cálcular números pares"
// Função : 0 2 4 6 8
// Autor : Júlio Cesar Melo
// Data : 22/3/2009
// Seção de Declarações
var
v1,v2,v3,v4,soma:inteiro
inicio
escreval ("Informe um valor inteiro qualquer")
leia (v1)
escreval ("Informe um valor inteiro qualquer")
leia (v2)
escreval ("Informe um valor inteiro qualquer")
leia (v3)
escreval ("Informe um valor inteiro qualquer")
leia (v4)
se v1 = 0 entao
v1 <- v1
fimse
se v1 = 2 entao
v1 <- v1
fimse
se v1 = 4 entao
v1 <- v1
fimse
se v1 = 6 entao
v1 <- v1
fimse
se v1 = 8 entao
v1 <- v1
fimse
se v2 = 0 entao
v2 <- v2
fimse
se v2 = 2 entao
v2 <- v2
fimse
se v2 = 4 entao
v2 <- v2
fimse
se v2 = 6 entao
v2 <- v2
fimse
se v2 = 8 entao
v2 <- v2
fimse
se v3 = 0 entao
v3 <- v3
fimse
se v3 = 2 entao
v3 <- v3
fimse
se v3 = 4 entao
v3 <- v3
fimse
se v3 = 6 entao
v3 <- v3
fimse
se v3 = 8 entao
v3 <- v3
fimse
se v4 = 0 entao
v4 <- v4
fimse
se v4 = 2 entao
v4 <- v4
fimse
se v4 = 4 entao
v4 <- v4
fimse
se v4 = 6 entao
v4 <- v4
fimse
se v4 = 8 entao
v4 <- v4
fimse
se v1 = 1 entao
v1 <- 0
fimse
se v1 = 3 entao
v1 <- 0
fimse
se v1 = 5 entao
v1 <- 0
fimse
se v1 = 7 entao
v1 <- 0
fimse
se v1 = 9 entao
v1 <- 0
fimse
se v2 = 1 entao
v2 <- 0
fimse
se v2 = 3 entao
v2 <- 0
fimse
se v2 = 5 entao
v2 <- 0
fimse
se v2 = 7 entao
v2 <- 0
fimse
se v2 = 9 entao
v2 <- 0
fimse
se v3 = 1 entao
v3 <- 0
fimse
se v3 = 3 entao
v3 <- 0
fimse
se v3 = 5 entao
v3 <- 0
fimse
se v3 = 7 entao
v3 <- 0
fimse
se v3 = 9 entao
v3 <- 0
fimse
se v4 = 1 entao
v4 <- 0
fimse
se v4 = 3 entao
v4 <- 0
fimse
se v4 = 5 entao
v4 <- 0
fimse
se v4 = 7 entao
v4 <- 0
fimse
se v4 = 9 entao
v4 <- 0
fimse
soma <- v1 + v2 + v3 + v4
escreval ("A somas dos números que são pares é: ",soma)
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 14
algoritmo "ano bissexto"
// Função : bissexto
// Autor : Júlio Cesar Melo
// Data : 23/3/2009
// Seção de Declarações
var
dias,ano:inteiro
inicio
escreva ("Infome a quantidades de dias no ano -> ")
leia (dias)
se dias mod 4 = 0 entao
escreval ("O ano é bissexto")
fimse
se dias mod 4 <> 0 entao
escreval ("O ano não bissexto")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
Exercício 15
algoritmo "Números múltiplos"
// Função : idêntificar números múltiplos
// Autor : Júlio Cesar Melo
// Data : 23/3/2009
// Seção de Declarações
var
n1,n2:inteiro
inicio
escreva ("Informe um número qualquer -> ")
leia (n1)
escreva ("Informe um número qualquer -> ")
leia (n2)
se (n1 mod n2) = 0 entao
escreval ("São múltiplos")
fimse
se (n1 mod n2) <> 0 entao
escreval ("Não são múltiplos")
fimse
fimalgoritmo
------------------------------------------------------------------------------------------------------
exercício 16
algoritmo "lanchonete"
// Função : Cardápio
// Autor : Júlio Cesar Melo
// Data : 23/3/2009
// Seção de Declarações
var
c_que,b_sp,b_ovo,hbg,cbg,rfr,soma,qtp,tr,dv:real
pedido:inteiro
inicio
escreval ("******************************************")
escreval ("** Digite 9999 para finalizar uma venda **")
escreval ("******************************************")
escreval ("")
repita
escreval ("Informe o código do produto")
leia (pedido)
escolha pedido
caso 100
c_que <- c_que + 1.20
escreval ("")
escreval ("Cachorro Quente -> R$1,20")
escreval ("")
caso 101
b_sp <- b_sp + 1.30
escreval ("")
escreval ("Bauru Simples -> R$1,30")
escreval ("")
caso 102
b_ovo <- b_ovo + 1.50
escreval ("")
escreval ("Bauru Com Ovo -> R$1,50")
escreval ("")
caso 103
hbg <- hbg + 1.20
escreval ("")
escreval ("Hambúguer -> R$1,20")
escreval ("")
caso 104
cbg <- cbg + 1.30
escreval ("")
escreval ("Cheeseburguer -> R$1,30")
escreval ("")
caso 105
rfr <- rfr + 1.00
escreval ("")
escreval ("Refrigerante -> R$1,00")
escreval ("")
outrocaso
escreval ("")
escreval ("CÓDIGO INVÁLIDO")
escreval ("")
fimescolha
ate pedido = 9999
soma <- (c_que + b_sp + b_ovo + hbg + cbg + rfr)
escreval ("")
escreval ("O valor do seu pedido é R$:",soma)
escreval ("")
fimalgoritmo
------------------------------------------------------------------------------------------------------
Início 
