Pasaje de un viaje de estudios 3 en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Los alumnos de una escuela desean realizar un viaje de estudios, pero requieren determinar cuánto les costará el pasaje, considerando que las tarifas del autobús son las siguientes: si son más de 100 alumnos, el costo es de $20; si son entre 50 y 100, $35; entre 20 y 49, $40, y si son menos de 20 alumnos, $70 por cada uno. Realice el algoritmo para determinar el costo del pasaje de cada alumno y el pago total por una determinada cantidad de alumnos, considerar también que si el pago es al crédito, sufre un incremento del 15% caso contrario solo del 6%.

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

Proceso PasajeDeUnViajeDeEstudios3

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

    Leer numero_de_alumnos;

    Escribir "Selecciona el valor de tipo de pago.";

    Escribir "    1.- Crédito";

    Escribir "    2.- Contado";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_pago;

        Si tipo_de_pago<1 O tipo_de_pago>2 Entonces

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

        FinSi

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

    costo_del_pasaje <- 70;

    Si numero_de_alumnos>=20 Entonces

        costo_del_pasaje <- 40;

    FinSi

    Si numero_de_alumnos>=40 Entonces

        costo_del_pasaje <- 35;

    FinSi

    Si numero_de_alumnos>100 Entonces

        costo_del_pasaje <- 20;

    FinSi

    Si tipo_de_pago = 1 Entonces

        incremento <- costo_del_pasaje*0.15;

    SiNo

        incremento <- costo_del_pasaje*0.06;

    FinSi

    pago_total <- numero_de_alumnos*(costo_del_pasaje+incremento);

    Escribir "Valor de costo del pasaje: ", costo_del_pasaje;

    Escribir "Valor de incremento: ", incremento;

    Escribir "Valor de pago total: ", pago_total;

FinProceso