L2 - 21 - 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 "Gestor de contas financeiras para formatura"
// Autor: Guilherme Paulino
//Data: 10/09/10
Var
  x: inteiro
  custot: real
  nomefor: vetor [1..5] de literal
  numconv: vetor [1..5] de inteiro
  custofor: vetor [1..5] de real
  totalconv: inteiro
  bebida, cseg, segp, cgarcon, garp: real
Inicio
 //capacidade salao 800 pessoas
  custot <- ( 2000 + 500 + 800 )/5
  totalconv <- 0
  Para x de 1 ate 5 faca
    nomefor[x] <- ""
    numconv[x] <- 0
    custofor[x] <- 0
  Fimpara
  Escreval("Informe o nome dos formandos:")
  Para x de 1 ate 5 faca

    Leia(nomefor[x])

  Fimpara

  Limpatela

  Escreval("Informe a quantidade de convidados")

  Para x de 1 ate 5 faca

    Escreva(nomefor[x],": ")

    Leia(numconv[x])

    totalconv <- totalconv + numconv[x]

  Fimpara

  Se(totalconv > 800)entao

    Escreva("O salao nao suporta mais de 800 convidados!")

  Senao

    Escreva("Qual o custo da bebida por pessoa? R$")

    Leia(bebida)

    Escreva("Qual o custo de um seguranca? R$")

    Leia(cseg)

    Escreva("Qual o custo de um garcon? R$")

    Leia(cgarcon)

    Limpatela

    Escreval("- pelo salao    R$ 2000")

    Escreval("- sonorizacao R$ 500")

    Escreval("- decoracao    R$ 800")

    Escreval("O custo por formando sera:")

    Para x de 1 ate 5 faca

      segp <- numconv[x] div 80

      garp <- numconv[x] div 48

      custofor[x] <- custot + (numconv[x] * bebida) + ( cseg * segp ) + ( cgarcon * garp )

      Escreval(nomefor[x]," tera um gasto de R$",custofor[x]:5:2)

    Fimpara

  Fimse

Fimalgoritmo
Verificado pelo VisuAlg