Alg1 - 2ªlista. 21 - A comissão de formatura de um curso está organizando a festa de formatura de sua turma e levantou as seguintes informações:

A comissão de formatura de um curso está organizando a festa de formatura de sua turma e
levantou as seguintes informações:

1. custo do salão (capacidade de 800 pessoas com mesas de 4 pessoas) R$ 2000.00;
2. custo da sonorização: R$ 500,00
3. custo da decoração: R$ 800,00

Além desses custos, que serão rateados igualmente entre os formandos, há custos cuja divisão é proporcional ao número de convidados do formando. São eles:

1. segurança: necessário um segurança para cada 80 pessoas da festa;
2. garçom: um garçom consegue atender 48 pessoas (ou 12 mesas de 4 pessoas); e
3. bebida.

Escreva um algoritmo que leia o nome de cada um dos cinco formandos com seus respectivos
números de convidados. Ele também deve ler os custos de um segurança, de um garçom e da
bebida. O algoritmo deve calcular e escrever, para cada formando o número de mesas desitnadas para seus convidados e o custo da festa para eles. As mesas poderão ser compartilhadas entre convidados de diferentes formandos.

_______________________________________________________________


algoritmo "Custo para cada pessoa na Festa de formatura "
// Função : Calcular custos de uma festa de formatura
// Autor : Vinicius B.dos Reis
// Data : 04/09/2010
// Seção de Declarações

var
c_salao,c_som,c_decoracao,cgarcon,cseguranca,cbebidas : real
cust1,cust2,cust3,cust4,cust5 : real
c1,c2,c3,c4,c5,capacidade,n,nseguranca,nbebidas,ngarcon : inteiro
mesa1,mesa2,mesa3,mesa4,mesa5,sobra_pessoas,nmesas,sem_mesa : inteiro
f1,f2,f3,f4,f5 : literal

inicio
escreval ("Digite o nome dos formandos e aperte enter após cada um: ")
leia(f1,f2,f3,f4,f5)
escreval ("Digite o número de convidados e aperte enter após cada um: ")
leia (c1,c2,c3,c4,c5)
escreval ("Digite o custo de um segurança: ")
leia(cseguranca)
escreval ("Digite o custo de um garcom: ")
leia(cgarcon)
escreval ("Digite o custo da bebida: ")
leia (cbebidas)
capacidade <- 800
mesa1 <- c1 div 4
mesa2 <- c2 div 4
mesa3 <- c3 div 4
mesa4 <- c4 div 4
mesa5 <- c5 div 4
// Primeiro comando //
sobra_pessoas <- (((c1 mod 4)+(c2 mod 4)+(c3 mod 4)+(c4 mod 4)+(c5 mod 4)) div 4)
sem_mesa <- (sem_mesa+((c1 mod 4)+(c2 mod 4)+(c3 mod 4)+(c4 mod 4)+(c5 mod 4)) mod 4)
nmesas <- (mesa1+mesa2+mesa3+mesa4+mesa5+sobra_pessoas)
SE (sem_mesa>0) entao
nmesas <- (nmesas+1)
Fimse
c_salao <- 2000/5
c_som <- 500/5
c_decoracao <- 800/5
n <- ((c1+c2+c3+c4+c5)+5)
cust1 <- ((cseguranca*(c1/80))+(cgarcon*(c1/48))+(cbebidas*c1)+(c_salao+c_som+c_decoracao))
cust2 <- ((cseguranca*(c2/80))+(cgarcon*(c2/48))+(cbebidas*c2)+(c_salao+c_som+c_decoracao))
cust3 <- ((cseguranca*(c3/80))+(cgarcon*(c3/48))+(cbebidas*c3)+(c_salao+c_som+c_decoracao))
cust4 <- ((cseguranca*(c4/80))+(cgarcon*(c4/48))+(cbebidas*c4)+(c_salao+c_som+c_decoracao))
cust5 <- ((cseguranca*(c5/80))+(cgarcon*(c5/48))+(cbebidas*c5)+(c_salao+c_som+c_decoracao))
Se (n>capacidade) entao
escreva ("A capacidade de até 800 pessoas no salão foi ultrapassada ")
fimalgoritmo
Fimse
escreval ("O formando ", f1 ," tem ", mesa1 ," mesa(s) reservada(s) e pagará ", cust1:5:2 ," R$")
escreval ("O formando ", f2 ," tem ", mesa2 ," mesa(s) reservada(s) e pagará ", cust2:5:2 ," R$")
escreval ("O formando ", f3 ," tem ", mesa3 ," mesa(s) reservada(s) e pagará ", cust3:5:2 ," R$")
escreval ("O formando ", f4 ," tem ", mesa4 ," mesa(s) reservada(s) e pagará ", cust4:5:2 ," R$")
escreval ("O formando ", f5 ," tem ", mesa5 ," mesa(s) reservada(s) e pagará ", cust5:5:2 ," R$")
escreval ("O número de mesas ocupadas é ", nmesas)
escreval ("O número de mesas mescladas de convidados dos 5 formandos é ", sobra_pessoas)
escreval ("O número de pessoas em uma mesa que não está completa é ",sem_mesa)
fimalgoritmo