algoritmo "Cálculo para fazer uma festa de formatura."
var
var
f1,f2,f3,f4,f5:literal
ncf1,ncf2,ncf3,ncf4,ncf5:inteiro
pg,ps,pb,tc,tg,ts,tm,custotal:inteiro
mf1,mf2,mf3,mf4,mf5,ppc:real
inicio
escreval("Cálculo para fazer uma festa de formatura.")
escreva(" Digite o nome do primeiro formando ")
leia(f1)
escreva(" Digite o número de convidados do primeiro formando ")
leia(ncf1)
escreva(" Digite o nome do segundo formando ")
leia(f2)
escreva(" Digite o número de convidados do segundo formando ")
leia(ncf2)
escreva(" Digite o nome do terceiro formando ")
leia(f3)
escreva(" Digite o número de convidados do terceiro formando ")
leia(ncf3)
escreva(" Digite o nome do quarto formando ")
leia(f4)
escreva(" Digite o número de convidados do quarto formando ")
leia(ncf4)
escreva(" Digite o nome do quinto formando ")
leia(f5)
escreva(" Digite o número de convidados do quinto formando ")
leia(ncf5)
escreva(" Digite o preço de um garçom ")
leia(pg)
escreva(" Digite o preço de um segurança ")
leia(ps)
escreva(" Digite o preço das bebidas ")
leia(pb)
tc <- (ncf1+ncf2+ncf3+ncf4+ncf5)
se tc>800 entao
escreva("O salão não suporta o número de pessoas.")
fimalgoritmo
senao
tg <- (tc div 48)+1
ts <- (tc div 80)+1
tm <- ((tc+5) div 4)
mf1 <- ncf1 / 4
mf2 <- ncf2 / 4
mf3 <- ncf3 / 4
mf4 <- ncf4 / 4
mf5 <- ncf5 / 4
custotal < pb+((tg*pg)+(ts*ps))
ppc <- custotal/tc
fimse
escreval("Para o(s) convidado(s) de ",f1," existe(m) ",mf1," mesa(s).")
escreval("Cada convidado de ",f1," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f2," existe(m) ",mf2," mesa(s).")
escreval("Cada convidado de ",f2," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f3," existe(m) ",mf3," mesa(s).")
escreval("Cada convidado de ",f3," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f4," existe(m) ",mf4," mesa(s).")
escreval("Cada convidado de ",f4," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f5," existe(m) ",mf5," mesa(s).")
escreval("Cada convidado de ",f5," pagará R$",ppc:5:2,".")
escreval(" *** F I M *** ")
Fimalgoritmo
ncf1,ncf2,ncf3,ncf4,ncf5:inteiro
pg,ps,pb,tc,tg,ts,tm,custotal:inteiro
mf1,mf2,mf3,mf4,mf5,ppc:real
inicio
escreval("Cálculo para fazer uma festa de formatura.")
escreva(" Digite o nome do primeiro formando ")
leia(f1)
escreva(" Digite o número de convidados do primeiro formando ")
leia(ncf1)
escreva(" Digite o nome do segundo formando ")
leia(f2)
escreva(" Digite o número de convidados do segundo formando ")
leia(ncf2)
escreva(" Digite o nome do terceiro formando ")
leia(f3)
escreva(" Digite o número de convidados do terceiro formando ")
leia(ncf3)
escreva(" Digite o nome do quarto formando ")
leia(f4)
escreva(" Digite o número de convidados do quarto formando ")
leia(ncf4)
escreva(" Digite o nome do quinto formando ")
leia(f5)
escreva(" Digite o número de convidados do quinto formando ")
leia(ncf5)
escreva(" Digite o preço de um garçom ")
leia(pg)
escreva(" Digite o preço de um segurança ")
leia(ps)
escreva(" Digite o preço das bebidas ")
leia(pb)
tc <- (ncf1+ncf2+ncf3+ncf4+ncf5)
se tc>800 entao
escreva("O salão não suporta o número de pessoas.")
fimalgoritmo
senao
tg <- (tc div 48)+1
ts <- (tc div 80)+1
tm <- ((tc+5) div 4)
mf1 <- ncf1 / 4
mf2 <- ncf2 / 4
mf3 <- ncf3 / 4
mf4 <- ncf4 / 4
mf5 <- ncf5 / 4
custotal < pb+((tg*pg)+(ts*ps))
ppc <- custotal/tc
fimse
escreval("Para o(s) convidado(s) de ",f1," existe(m) ",mf1," mesa(s).")
escreval("Cada convidado de ",f1," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f2," existe(m) ",mf2," mesa(s).")
escreval("Cada convidado de ",f2," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f3," existe(m) ",mf3," mesa(s).")
escreval("Cada convidado de ",f3," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f4," existe(m) ",mf4," mesa(s).")
escreval("Cada convidado de ",f4," pagará R$",ppc:5:2,".")
escreval("Para o(s) convidado(s) de ",f5," existe(m) ",mf5," mesa(s).")
escreval("Cada convidado de ",f5," pagará R$",ppc:5:2,".")
escreval(" *** F I M *** ")
Fimalgoritmo
Nenhum comentário:
Postar um comentário