Question

Una compañía de transporte internacional tiene servicio en algunos países de América del Norte, América Central, América del Sur, Europa y Asia. El costo por el servicio de transporte se basa en el peso del paquete y la zona a la que va dirigido. Lo anterior se muestra en la tabla:

Zona

Ubicación

Costo/gramo

1

América del Norte

24.00 euros

2

América Central

20.00 euros

3

América del Sur

21.00 euros

4

Europa

10.00 euros

5

Asia

18.00 euros

Diseñe un algoritmo que determine:

Calcular el costo por cada ubicación (2 puntos)
Calcular el costo por Zona (2 puntos)
El importe a pagar incluyendo el IGV (3 puntos)

Answer 1

Pseudocódigo en Pseint de cálculos del costo del servicio de encomiendas internacionales según tabla que se muestra abajo. Se adjunta imagen de salida por pantalla.

Algoritmo VentaBoletosTransporteI

• // Definir variables

Definir cg, res Como Entero

Definir i,igv,pan,pac,pas,pe,pa, peso, c Como Real

Definir apan,apac,apas,ape,apa, t, tt, ti Como Real

Definir continuar Como caracter

t <- 0

tt <- 0

ti <- 0

c <- 0

res <- 0

peso <- 0

i <- 0

igv <- 16

pan <- 24

pac <- 20

pas <- 21

pe <- 10

pa <- 18

apan <- 0

apac <- 0

apas <- 0

ape <- 0

apa <- 0

continuar <- 's'

Escribir '*********Compañía de transporte internacional**********'

• // Ingrese peso de la encomienda

Mientras continuar='s' Hacer

 cg <- cg+1

 Escribir 'Encomienda No. ',cg

 Escribir 'Indique el peso (gramos): ' Sin Saltar

 Repetir

  Leer peso

 Hasta Que peso>0

•  // Ingrese destino

 Escribir ' '

 Escribir '***Eliga el destino*** '

 Escribir '1.- América del Norte '

 Escribir '2.- América Central   '

 Escribir '3.- América del Sur   '

 Escribir "4.- Europa "

 Escribir '5.- Asia '

 Repetir

  Leer res

  Si  NO (res=1 O res=2 O res=3 O res=4 O res=5) Entonces

   Escribir 'Entrada inválida'

  FinSi

 Hasta Que res=1 O res=2 O res=3 O res=4 O res=5

•  // Calcular costo del servicio y Acumula los ingresos

 Segun res  Hacer

  1:

   c <- pan*peso

   apan <- apan+c

  2:

   c <- pac*peso

   apac <- apac+c

  3:

   c <- pas*peso

   apas <- apas+c

  4:

   c <- pe*peso

   ape <- ape+c

  5:

   c <- pa*peso

   apa <- apa+c

   

 FinSegun

•  // Calcular e imprimir los impuestos y total a pagar

 i <- c*igv/100

 t <- c+i

 Escribir 'El costo de servicio es: ' c  

 Escribir 'Impuestos: ' i, " (16%)"

 Escribir 'Total a pagar: ' t

 Escribir ' '

 Repetir

  Escribir '¿Registrar otro servicio?  (s/n)'

  Leer continuar

 Mientras Que (continuar<>'s' Y continuar<>'n')

FinMientras

• // Mostrar resultados totales

tt <- apan + apac + apas + ape + apa

ti <- tt*igv/100

Escribir ' '

Escribir 'Registro total del día: ',tt

Escribir 'Impuestos: ',ti

Escribir 'Total de ingreso: ',tt + ti

• // Mostrar resultados por zonas

Escribir ' '

Escribir '   El total ingresos por zonas (mas impuestos)'

Escribir ' '

Escribir 'América del Norte: ', apan + (apan*igv/100)

Escribir 'América Central:  ' , apac + (apac*igv/100)

Escribir 'América del Sur:  ', apas + (apas*igv/100)

Escribir "Europa: ", ape + (ape*igv/100)

Escribir 'Asia: ', apa + (apa*igv/100)

FinAlgoritmo

Para saber más acerca de algoritmo en pseint cálculos de costos e impuestos consulte: https://brainly.lat/tarea/14440712

#SPJ1