Empresa de carga en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una empresa de carga brinda servicio a todo el continente americano, la tarifa que cobra por cada tonelada se muestra en el siguiente cuadro:
Destinos ($/tonelada)
Medio de transporte | Norte | Sur | Centro
Aéreo | 30 | 25 | 20
Marítimo | 25 | 20 | 15
Terrestre | 20 | 15| 10
Así mismo, si la carga que se transporta es perecible, se le incrementa el 7% del pago total de acuerdo a las toneladas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

Proceso EmpresaDeCarga

    Escribir Sin Saltar "Ingresa el valor de numero de toneladas:";

    Leer numero_de_toneladas;

    Escribir "Selecciona el valor de destino.";

    Escribir "    1.- Norte";

    Escribir "    2.- Sur";

    Escribir "    3.- Centro";

    Escribir Sin Saltar "    :";

    Repetir

        Leer destino;

        Si destino<1 O destino>3 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que destino>=1 Y destino<=3;

    Escribir "Selecciona el valor de medio de transporte.";

    Escribir "    1.- Aéreo";

    Escribir "    2.- Marítimo";

    Escribir "    3.- Terrestre";

    Escribir Sin Saltar "    :";

    Repetir

        Leer medio_de_transporte;

        Si medio_de_transporte<1 O medio_de_transporte>3 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que medio_de_transporte>=1 Y medio_de_transporte<=3;

    Escribir "Selecciona el valor de perecible.";

    Escribir "    1.- Si";

    Escribir "    2.- No";

    Escribir Sin Saltar "    :";

    Repetir

        Leer perecible;

        Si perecible<1 O perecible>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que perecible>=1 Y perecible<=2;

    tarifa_por_tonelada <- 0;

    Si destino = 1 Y medio_de_transporte = 1 Entonces

        tarifa_por_tonelada <- 30;

    FinSi

    Si destino = 2 Y medio_de_transporte = 1 Entonces

        tarifa_por_tonelada <- 25;

    FinSi

    Si destino = 3 Y medio_de_transporte = 1 Entonces

        tarifa_por_tonelada <- 20;

    FinSi

    Si destino = 1 Y medio_de_transporte = 2 Entonces

        tarifa_por_tonelada <- 25;

    FinSi

    Si destino = 2 Y medio_de_transporte = 2 Entonces

        tarifa_por_tonelada <- 20;

    FinSi

    Si destino = 3 Y medio_de_transporte = 2 Entonces

        tarifa_por_tonelada <- 15;

    FinSi

    Si destino = 1 Y medio_de_transporte = 3 Entonces

        tarifa_por_tonelada <- 20;

    FinSi

    Si destino = 2 Y medio_de_transporte = 3 Entonces

        tarifa_por_tonelada <- 15;

    FinSi

    Si destino = 3 Y medio_de_transporte = 3 Entonces

        tarifa_por_tonelada <- 10;

    FinSi

    pago <- tarifa_por_tonelada*numero_de_toneladas;

    Si perecible = 1 Entonces

        pago <- pago*1.07;

    FinSi

    Escribir "Valor de pago: ", pago;

    Escribir "Valor de tarifa por tonelada: ", tarifa_por_tonelada;

FinProceso