Question

Diseñe un programa que permita registrar la cantidad de vehículos que pasan por un peaje en autos, motocicletas y camiones. Por cada vehículo se ingresará el tipo de vehículo y el turno (mañana, tarde y noche). El turno de la mañana tiene un descuento del 10%, el turno de la tarde el doble del de la mañana, y el de la noche el promedio de los anteriores.?

Answer 1

A continuación programa en pseint que muestra por pantalla el total por cobro de peaje según descuentos por turno de servicio, y también lleva la contabilidad de los vehículos que transitan por el anden.

Pseudocódigo en pseint para contar los vehículos de un peaje y calcular el ingreso por el cobro del servicio.

Algoritmo registroEnPeaje

• // Definir e inicializar variables

Definir fila,columna, respuesta, turno, _registro Como entero

fila <- 3 //  tipos de vehículos (autos, motocicletas, y camiones)

columna <- 3 // turno (mañana, tarde y noche)

n <- 0

turno <- 0

Dimension _registro[fila,columna]

Dimension precio[3]

• // Seleccionar acción en en menú

Repetir

 Escribir '        Menú (1-6)'

 Escribir '*************************'

 Escribir '1.- Peaje en la mañana'

 Escribir '2.- Peaje en la tarde'

 Escribir '3.- Peaje en la noche'

 Escribir '4.- Mostrar registro '

 Escribir '5.- Precios del peaje'

 Escribir '6.- Salir'

 Repetir

  Leer respuesta

 Hasta Que respuesta<>1 O respuesta<>2 O respuesta<>3 O respuesta<>4 O respuesta<>5 O respuesta<>6

 Segun respuesta  Hacer

  1:

   turno <- 1

   _registroPeaje(_registro, turno)

  2:

   turno <- 2

   _registroPeaje(_registro, turno)

  3:

   turno <- 3

   _registroPeaje(_registro, turno)

  4:

   mostrarRegistros(_registro, precio)

  5:

   _registroPrecio(precio)  

 FinSegun

Hasta Que respuesta=6

FinAlgoritmo

Funcion _registroPeaje(_registro Por Referencia, turno Por Referencia)

• // Definir e inicializar variables

Definir op, t_veh Como Entero

Definir pausa Como Caracter

t_veh <-0

• // Contar vehículos

Repetir

 Escribir 'Tipo de vehículo '

 Escribir '*************************'

 Escribir '1.- Auto'

 Escribir '2.- Motocicleta'

 Escribir '3.- camión'

 Escribir '4.- Volver al menú'

 Repetir

  Leer op

 Hasta Que op<>1 O op<>2 O op<>3 O op<>4

 Segun op  Hacer

  1:

   t_veh <- 1

   _registro[t_veh,turno] <- _registro[t_veh,turno]+1

   Escribir 'Registrado paso de auto, presione enter para continuar "

   leer pausa

  2:

   t_veh <- 2

   _registro[t_veh,turno] <- _registro[t_veh,turno]+1

   Escribir 'Registrado paso de motocicleta, presione enter para continuar "

   leer pausa

  3:

   t_veh <- 3

   _registro[t_veh,turno] <- _registro[t_veh,turno]+1

   Escribir 'Registrado paso de camión, presione enter para continuar "

   leer pausa

 FinSegun

Hasta Que op==4

FinFuncion

Funcion _registroPrecio(precio Por Referencia)

• // Definir e inicializar variables

Definir op Como Entero

• // Ingresar precio del peaje

Repetir

 Escribir 'Precio x tipo de vehículo '

 Escribir '*************************'

 Escribir '1.- Auto' , " (", precio[1], ")"

 Escribir '2.- Motocicleta' , " (", precio[2], ")"

 Escribir '3.- camión', " (", precio[3], ")"

 Escribir '4.- Volver al menú'

 Repetir

  Leer op

 Hasta Que op<>1 O op<>2 O op<>3 O op<>4

 Segun op  Hacer

  1:

   Escribir 'Ingrese precio peaje para autos'

   Leer precio(op)

  2:

   Escribir 'Ingrese precio peaje para autos'

   Leer precio(op)

  3:

   Escribir 'Ingrese precio peaje para autos'

   Leer precio(op)

 FinSegun

Hasta Que op==4

FinFuncion

Funcion mostrarRegistros(_registro Por Referencia, precio Por Referencia )

• // Definición e inicialización de variables

Definir x, j, desaprobados Como Entero

x<-0

j<-0

desaprobados<-0

• // Mostrar resultados por pantalla

Escribir '           REGISTRO PEAJE'

Escribir '****************************************'

Escribir '          MAÑANA  TARDE  NOCHE'

Escribir ''

Escribir "Autos          " _registro[1,1],'       ',_registro[1,2],'       ',_registro[1,3]

Escribir "Motocicletas   " _registro[2,1],'       ',_registro[2,2],'       ',_registro[2,3]

Escribir "Camiones       " _registro[3,1],'       ',_registro[3,2],'       ',_registro[3,3]

• // Calcular totales

Para x<-1 Hasta 3 Hacer

 Para j<-1 Hasta 3 Hacer

  subtotal <- subtotal + (_registro[j,x]*precio[j])

 FinPara

•  // Aplicar descuentos

 si x=1 Entonces

  totalMan <- subtotal-(subtotal*0.10)  

 FinSi

 si x=2 Entonces

  totalTar <- subtotal-(subtotal*0.20)  

 FinSi

 si x=1 Entonces

  totalTNoc <- subtotal-(subtotal*0.15)  

 FinSi

 subtotal <- 0

FinPara

Escribir ''

Escribir "Total x turno " totalMan,'       ',totalTar,'       ',totalTNoc

Escribir "Total general: ", totalMan+totalTar+totalTNoc

Escribir '****************************************'

FinFuncion

Para saber más acerca de algoritmo en pseint de facturación y cobros consulte: https://brainly.lat/tarea/23390221

#SPJ2