Empresa de renta de autos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

La empresa de renta de autos tiene tres tipos de vehículos y se rentan por día.
Si la renta es menor a 5 días, tiene un cargo adicional del 7.5% sobre el costo diario.
Calcular el monto que se debe cobrar por la renta de un vehículo.
Chico: $800
Mediano: $1,200
Grande: $1,600

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

Proceso EmpresaDeRentaDeAutos

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

    Leer numero_de_dias;

    costo_diario <- 0;

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

    Escribir "    1.- Chico";

    Escribir "    2.- Mediano";

    Escribir "    3.- Grande";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_vehiculo;

        Si tipo_de_vehiculo<1 O tipo_de_vehiculo>3 Entonces

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

        FinSi

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

    Si tipo_de_vehiculo = 1 Entonces

        costo_diario <- 800;

    FinSi

    Si tipo_de_vehiculo = 2 Entonces

        costo_diario <- 1200;

    FinSi

    Si tipo_de_vehiculo = 3 Entonces

        costo_diario <- 1600;

    FinSi

    renta <- costo_diario*numero_de_dias;

    Si numero_de_dias<5 Entonces

        cargo_adicional <- renta*0.075;

    SiNo

        cargo_adicional <- 0;

    FinSi

    monto_a_cobrar <- renta+cargo_adicional;

    Escribir "Valor de cargo adicional: ", cargo_adicional;

    Escribir "Valor de costo diario: ", costo_diario;

    Escribir "Valor de monto a cobrar: ", monto_a_cobrar;

    Escribir "Valor de renta: ", renta;

FinProceso