Agencia de transporte en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

En una agencia de transporte, se desea llevar el control del la venta de pasaje de un cliente, para ello se considera el destino, el costo, según la tabla, también se sabe que por cada destino se aplica un descuento.
Destino | Piura | Lima | Arequipa | Tumbes | Ica
Costo | 35 | 90 | 150 | 60 | 130
Porcentaje % | 10 | 20 | 30 | 25 | 35

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

Proceso AgenciaDeTransporte

    costo <- 0;

    descuento <- 0;

    Escribir "Selecciona el valor de destino.";

    Escribir "    1.- Piura";

    Escribir "    2.- Lima";

    Escribir "    3.- Arequipa";

    Escribir "    4.- Tumbes";

    Escribir "    5.- Ica";

    Escribir Sin Saltar "    :";

    Repetir

        Leer destino;

        Si destino<1 O destino>5 Entonces

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

        FinSi

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

    Si destino = 1 Entonces

        costo <- 35;

    FinSi

    Si destino = 2 Entonces

        costo <- 90;

    FinSi

    Si destino = 3 Entonces

        costo <- 150;

    FinSi

    Si destino = 4 Entonces

        costo <- 60;

    FinSi

    Si destino = 5 Entonces

        costo <- 130;

    FinSi

    Si destino = 1 Entonces

        descuento <- costo*0.1;

    FinSi

    Si destino = 2 Entonces

        descuento <- costo*0.2;

    FinSi

    Si destino = 3 Entonces

        descuento <- costo*0.3;

    FinSi

    Si destino = 4 Entonces

        descuento <- costo*0.25;

    FinSi

    Si destino = 5 Entonces

        descuento <- costo*0.35;

    FinSi

    venta <- costo-descuento;

    Escribir "Valor de costo: ", costo;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de venta: ", venta;

FinProceso