-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
En una carretera de cuota se pretende calcular el monto a pagar por los vehículos que circulan por dicha carretera, tomando como base lo siguiente:
a. Si el vehículo es de tipo "moto", la cuota es de $20, sin embargo, se le aplicará un descuento del 4%.
b. Si el vehículo es de tipo "coche", la cuota es de $35, sin embargo, se le aplicará un descuento del 5%.
c. Si el vehículo es de tipo "carga", la cuota es de $50, sin embargo, se le aplicará un descuento del 6%.
d. Pero si el vehículo es de tipo "escolar", pasa sin pagar cuota alguna.
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
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
Proceso CuotaEnUnaCarretera
cuota <- 0;
descuento <- 0;
Escribir "Selecciona el valor de tipo de vehiculo.";
Escribir " 1.- Moto";
Escribir " 2.- Coche";
Escribir " 3.- Carga";
Escribir " 4.- Escolar";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_vehiculo;
Si tipo_de_vehiculo<1 O tipo_de_vehiculo>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_vehiculo>=1 Y tipo_de_vehiculo<=4;
Si tipo_de_vehiculo = 1 Entonces
cuota <- 20;
descuento <- cuota*0.04;
FinSi
Si tipo_de_vehiculo = 2 Entonces
cuota <- 35;
descuento <- cuota*0.05;
FinSi
Si tipo_de_vehiculo = 3 Entonces
cuota <- 50;
descuento <- cuota*0.06;
FinSi
monto_a_pagar <- cuota-descuento;
Escribir "Valor de cuota: ", cuota;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto a pagar: ", monto_a_pagar;
FinProceso
cuota <- 0;
descuento <- 0;
Escribir "Selecciona el valor de tipo de vehiculo.";
Escribir " 1.- Moto";
Escribir " 2.- Coche";
Escribir " 3.- Carga";
Escribir " 4.- Escolar";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_vehiculo;
Si tipo_de_vehiculo<1 O tipo_de_vehiculo>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_vehiculo>=1 Y tipo_de_vehiculo<=4;
Si tipo_de_vehiculo = 1 Entonces
cuota <- 20;
descuento <- cuota*0.04;
FinSi
Si tipo_de_vehiculo = 2 Entonces
cuota <- 35;
descuento <- cuota*0.05;
FinSi
Si tipo_de_vehiculo = 3 Entonces
cuota <- 50;
descuento <- cuota*0.06;
FinSi
monto_a_pagar <- cuota-descuento;
Escribir "Valor de cuota: ", cuota;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto a pagar: ", monto_a_pagar;
FinProceso