Name: Anonymous 2008-03-03 17:28
Could you guys help me with this?
//Purpose: A program that calculates the prices of a family.
//Global constants
Constant Pric_tick_men As real 3.50
Constant Pric_tick_adul As real 5.50
Constant Pric_tick_enveje As real 4.00
Procedure Control
//Local Variables
Declare answer As character
Declare cantMenor, cantAdult, cantEnveje, totmenor, totadult, totseni As integer
Declare granTotal, costTick As real
granTotal0.00
totMenor0
totAdult0
totSeni0
Execute GetAnswer(answer)
While answer = ‘S’ Or answer =‘s’
Execute GetNumOfTickets (cantMenor ,cantAdult, cantEnveje, , totmenor,
totadult, totseni)
costTick CalcCostOfTickets (cantMenor, cantAdult, cantEnveje)
Execute ShowCostOfTickets (costTick)
Execute GetAnswer (answer)
End While
Execute ShowFinalResults (totMenor, totAdult, totSeni, granTotal )
End
Procedure GetAnswer (by ref. choice As character)
Displayline “Bienvenidos al cine”
Display “¿Desea procesar grupos familiares? (S o N)”
Get choice
While choice < > ‘S’ Or choice < > ‘s’ Or choice < >’N’ Or Choice < > ‘n’
Displayline “Error!!! La contestación debe ser S o N”
Display “,¿Desea procesar grupos familiares? (S
o N )”
Get choice
End While
Return
Procedure GetNumOfTickets (by ref. menor As integer, by ref. adulto As integer, by ref.
enveje As integer, by ref. totmin As integer, totad As
integer, by ref. totenv As integer)
Displayline “Entre la cantidad de personas.”
Execute GetNumOfMinors (menor)
Execute GetNumOfAdults (adulto)
Execute GetNumOfSeniors (enveje)
totmin totmin + menor
totad totad + adulto
totenv totenv + enveje
Return
Procedure GetNumOfMinors (by ref. min As integer)
Display “Entre la cantidad de menores :”
Get min
While min < 0 Or min >10
Displayline “Error!! La cantidad debe estar entre 0 y 10 .”
Display “Entre la cantidad de menores:”
Get min
End while
Return
Procedure GetNumOfAdults(by ref. adlt As integer)
Display “Entre la cantidad de adultos:”
Get adlt
While min < 0 Or adlt >10
Displayline “La cantidad de adultos debe estar entre 0 y 10,.”
Display “Entre la cantidad de adultos:”
Get adlt
End while
Return
Procedure GetNumOfSeniors(by ref. seni As integer)
Display “Entre la cantidad de envejecirntes:”
Get seni
While min < 0 Or seni >10
Displayline “ La cantidad de envejecientes debe estar entre 0 y 10,.”
Display “Entre la cantidad de envejecientes:”
Get seni
End while
Return
Fuction CalcCostOfTickets (minor As integer, adult As integer, senior As integer)
//Local Variable
Declare costo As real
costo (minor * Prec_taq_men) + (adult * Prec_taq_adul) + (senior * Prec_taq_enveje)
Return costo
Procedure ShowCostOfTickets (total As real, by ref. gtot As real)
Display “El costo de sus taquillas es $”, total, “.”
gtot gtot + total
// Actualizacion debe estar antes de el proximo get answer
Return
Procedure ShowFinalResults (mnr As integer, adlt As integer, envj As integer, tot As
real)
Displayline “Durante el día se vendieron “, mnr, “ taquillas de menores,”, adlt, “
taquillas de adultos, y “, envj,” taquillas de envejecientes.”
Display “El balace total de taquillas vendidas durante el dia fue $”, tot,”.”
Return
//Purpose: A program that calculates the prices of a family.
//Global constants
Constant Pric_tick_men As real 3.50
Constant Pric_tick_adul As real 5.50
Constant Pric_tick_enveje As real 4.00
Procedure Control
//Local Variables
Declare answer As character
Declare cantMenor, cantAdult, cantEnveje, totmenor, totadult, totseni As integer
Declare granTotal, costTick As real
granTotal0.00
totMenor0
totAdult0
totSeni0
Execute GetAnswer(answer)
While answer = ‘S’ Or answer =‘s’
Execute GetNumOfTickets (cantMenor ,cantAdult, cantEnveje, , totmenor,
totadult, totseni)
costTick CalcCostOfTickets (cantMenor, cantAdult, cantEnveje)
Execute ShowCostOfTickets (costTick)
Execute GetAnswer (answer)
End While
Execute ShowFinalResults (totMenor, totAdult, totSeni, granTotal )
End
Procedure GetAnswer (by ref. choice As character)
Displayline “Bienvenidos al cine”
Display “¿Desea procesar grupos familiares? (S o N)”
Get choice
While choice < > ‘S’ Or choice < > ‘s’ Or choice < >’N’ Or Choice < > ‘n’
Displayline “Error!!! La contestación debe ser S o N”
Display “,¿Desea procesar grupos familiares? (S
o N )”
Get choice
End While
Return
Procedure GetNumOfTickets (by ref. menor As integer, by ref. adulto As integer, by ref.
enveje As integer, by ref. totmin As integer, totad As
integer, by ref. totenv As integer)
Displayline “Entre la cantidad de personas.”
Execute GetNumOfMinors (menor)
Execute GetNumOfAdults (adulto)
Execute GetNumOfSeniors (enveje)
totmin totmin + menor
totad totad + adulto
totenv totenv + enveje
Return
Procedure GetNumOfMinors (by ref. min As integer)
Display “Entre la cantidad de menores :”
Get min
While min < 0 Or min >10
Displayline “Error!! La cantidad debe estar entre 0 y 10 .”
Display “Entre la cantidad de menores:”
Get min
End while
Return
Procedure GetNumOfAdults(by ref. adlt As integer)
Display “Entre la cantidad de adultos:”
Get adlt
While min < 0 Or adlt >10
Displayline “La cantidad de adultos debe estar entre 0 y 10,.”
Display “Entre la cantidad de adultos:”
Get adlt
End while
Return
Procedure GetNumOfSeniors(by ref. seni As integer)
Display “Entre la cantidad de envejecirntes:”
Get seni
While min < 0 Or seni >10
Displayline “ La cantidad de envejecientes debe estar entre 0 y 10,.”
Display “Entre la cantidad de envejecientes:”
Get seni
End while
Return
Fuction CalcCostOfTickets (minor As integer, adult As integer, senior As integer)
//Local Variable
Declare costo As real
costo (minor * Prec_taq_men) + (adult * Prec_taq_adul) + (senior * Prec_taq_enveje)
Return costo
Procedure ShowCostOfTickets (total As real, by ref. gtot As real)
Display “El costo de sus taquillas es $”, total, “.”
gtot gtot + total
// Actualizacion debe estar antes de el proximo get answer
Return
Procedure ShowFinalResults (mnr As integer, adlt As integer, envj As integer, tot As
real)
Displayline “Durante el día se vendieron “, mnr, “ taquillas de menores,”, adlt, “
taquillas de adultos, y “, envj,” taquillas de envejecientes.”
Display “El balace total de taquillas vendidas durante el dia fue $”, tot,”.”
Return