Algoritmos

Algoritmo vía pseudolenguaje que indica el número de autos y camiones que pagan peaje, además del monto recaudado por cada uno.
Datos:
Autos: $1.500
Camiones: $3.000Considerando la posibilidad de errores.

FUNCIÓN “PARA” (Límite): suponiendo que al día sólo pasan 10 vehículos.

Proceso ALGORITMO_PEAJE
A<-0
C<-0
SA<-0SC<-0
E<-0
PARA i<-1 HASTA 10 CON PASO 1 HACER
ESCRIBIR "INDIQUE LA INICIAL DEL VEHICULO"
LEER V
SI V="A" Entonces
A<-A+1
SA<-SA+1500
Sino
SI V="C"Entonces
C<-C+1
SC<-SC+3000
Sino
E<-E+1
FinSi
FinSi
FinPara
ESCRIBIR "EL NUMERO DE AUTOS ES: ", A
ESCRIBIR "EL NUMERO DE CAMIONES ES: ", C
ESCRIBIR "ELMONTO RECAUDADO POR PEAJE DE AUTOS ES: $", SA
ESCRIBIR "EL MONTO RECAUDADO POR PEAJE DE CAMIONES ES: $", SC
ESCRIBIR "EL NUMERO DE ERRORES ES: ", E
FinProceso

FUNCIÓN“MIENTRAS” (Sin Límite): suponiendo que al presionar o ingresar “0” se finalizará el algoritmo.

Proceso ALGORITMO_PEAJE
A<-0
C<-0
SA<-0
SC<-0
ST<-0
E<-0ESCRIBIR "INDIQUE LA INICIAL DEL VEHICULO"
LEER V
Mientras V<>"0" HACER
SI V="A" Entonces
A<-A+1
SA<-SA+1500
ESCRIBIR "INDIQUE LA INICIAL DEL VEHICULO"
LEERV
Sino
SI V="C" Entonces
C<-C+1
SC<-SC+3000
ESCRIBIR "INDIQUE LA INICIAL DEL VEHICULO"
LEER V
Sino
E<-E+1
ESCRIBIR "INDIQUE LA INICIAL DEL VEHICULO"
LEER VFinSi
FinSi
FINMIENTRAS
ST<-SA+SC
ESCRIBIR "EL NUMERO DE AUTOS ES: ", A
ESCRIBIR "EL NUMERO DE CAMIONES ES: ", C
ESCRIBIR "EL MONTO RECAUDADO POR PEAJE DE AUTOS ES:$", SA
ESCRIBIR "EL MONTO RECAUDADO POR PEAJE DE CAMIONES ES: $", SC
ESCRIBIE "EL TOTAL RECAUDADO POR PEAJE ES: $", ST
ESCRIBIR "EL NUMERO DE ERRORES ES: ", E
FinProceso