En una caseta de cobro los vehículos se clasifican en 3 tipos y se cobra una tarifa de acuerdo a la siguiente tabla:


Problema CASETA. 10 puntos. En una caseta de cobro los vehículos se clasifican en 3 tipos y se cobra una tarifa de acuerdo a la siguiente tabla:
TIPO
INCLUYE
CUOTA
A
Autos y motos
$10
BAutobuses de 2 ejes
$15
C
Transporte de 3 ejes o mas
$20

Para cada vehículo que pase por la caseta indicar el monto que se debe de cobrar (el usuario teclea el tipo de vehículo). Alfinalizar el día, determinar el monto acumulado, total y por tipo, los vehículos que pasaron por la caseta
ANALISIS PROBLEMA CASETA.
Entrada: Tipo: Carácter
Relaciones:
Si tipo= “A” entoncestAuto= tAuto+1;
Si tipo= “B” entonces tAuto=tAuto+1;
Si tipo= “C” entonces tAuto=tAuto+1;
Monto total tipo “A”:= Total tAuto “A”* 10
Monto total tipo”B”:= Total tAuto “B”*15
Monto total tipo“C”:= Total tAuto”C”*20
Monto total Acumulado:= Total tAuto”A”*10+Total tAuto”B”*15+Total tAuto*20
Salida: Monto total acumulado; monto total por tipo de vehículos: reales










DIAGRAMADE FLUJO
















Pseudocódigo pascal


BEGIN
tAuto:= 0;
Continuar:= “s”
Mientras que continuar:= “s” hacer
Writeln “Teclea el tipo de auto “
Writeln “A.motos yautos; B. Autobuses de 2 ejes; C. Transporte de 3 ejes o más”
Readln tipo;
If tipo:=”A” then
tAuto:=tAuto+1
If tipo: “B” then
tAuto:=tAuto+1
if tipo:= “C” then
tAuto:=tAuto+1
Writeln“¿Desea seguir? s/n?”
Readln continuamos;
End-mientras
impAuto:= tAuto*10;
impAuto:=tAuto*15;
impAuto:=tAuto*20;
Writeln “montoT.tipo. A.motos y autos; B. Autobuses de 2 ejes; C. Transporte de 3ejes o más”
Readln montoT.tipo;
If MontoTotal:= “A” then
MontoT:=Total.tAuto*10
If MontoTotal:=”B” then
MontoT:= Total.tAuto*15
If Monto Total:=”C” then
MontoT.tAuto*20
Writeln “Monto Totalacumulado”
Readln Mointo T.acumulado;
If MTAcum:= “A+B+C” then
MonTotalAcum:= Total tAuto”A”*10+Total tAuto”B”*15+Total tAuto*20
Writeln “Se cobro”;impAuto “a”; tAuto; “autos”
END...