-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una compañía renta autos de 3 tipos: chicos, medianos y grandes. El alquiler por día de los autos es el siguiente:
Auto | Alquiler por día
Chico | $35
Mediano | $40
Grande | $50
Además la compañía cobra 30 centavos por Km recorrido en el auto chico, 40 centavos por Km recorrido en el auto mediano y 50 centavos por Km recorrido en el auto grande. Calcula el importe total a pagar.
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
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
Proceso RentaDeAutos
Escribir Sin Saltar "Ingresa el valor de dias de renta:";
Leer dias_de_renta;
Escribir Sin Saltar "Ingresa el valor de km recorridos:";
Leer km_recorridos;
total_a_pagar <- 0;
Escribir "Selecciona el valor de tipo de auto.";
Escribir " 1.- Chico";
Escribir " 2.- Mediano";
Escribir " 3.- Grande";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_auto;
Si tipo_de_auto<1 O tipo_de_auto>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_auto>=1 Y tipo_de_auto<=3;
Si tipo_de_auto = 1 Entonces
total_a_pagar <- dias_de_renta*35+km_recorridos*0.3;
FinSi
Si tipo_de_auto = 2 Entonces
total_a_pagar <- dias_de_renta*40+km_recorridos*0.4;
FinSi
Si tipo_de_auto = 3 Entonces
total_a_pagar <- dias_de_renta*50+km_recorridos*0.5;
FinSi
Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso
Escribir Sin Saltar "Ingresa el valor de dias de renta:";
Leer dias_de_renta;
Escribir Sin Saltar "Ingresa el valor de km recorridos:";
Leer km_recorridos;
total_a_pagar <- 0;
Escribir "Selecciona el valor de tipo de auto.";
Escribir " 1.- Chico";
Escribir " 2.- Mediano";
Escribir " 3.- Grande";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_auto;
Si tipo_de_auto<1 O tipo_de_auto>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_auto>=1 Y tipo_de_auto<=3;
Si tipo_de_auto = 1 Entonces
total_a_pagar <- dias_de_renta*35+km_recorridos*0.3;
FinSi
Si tipo_de_auto = 2 Entonces
total_a_pagar <- dias_de_renta*40+km_recorridos*0.4;
FinSi
Si tipo_de_auto = 3 Entonces
total_a_pagar <- dias_de_renta*50+km_recorridos*0.5;
FinSi
Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso