-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Un agricultor desea fumigar sus plantíos de café para protegerlas de las principales plagas que las afectan, para lo cual,
contrata una empresa que brinda servicios de fumigación, la cual cobra sus servicios de acuerdo al cuadro adjunto:
Tipo | Fumigación contra | Precio $ (por Hectarea)
1 | La broca | 20
2 | El minador de la hoja | 30
3 | La palomilla de las raíces | 40
4 | Todas las anteriores | 70
Si el área a fumigar es mayor de 50 hectáreas se tiene un descuento del 10%. Mostrar lo siguiente:
- Cálculo del monto a pagar (bruto).
- Cálculo del monto del descuento.
- Cálculo del 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
29
30
31
32
33
34
35
36
37
38
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
Proceso FumigacionDePlantios
Escribir Sin Saltar "Ingresa el valor de hectareas:";
Leer hectareas;
monto_a_pagar <- 0;
Escribir "Selecciona el valor de tipo de fumigacion.";
Escribir " 1.- La broca";
Escribir " 2.- El minador de la hoja";
Escribir " 3.- La palomilla de las raíces";
Escribir " 4.- Todas las anteriores";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_fumigacion;
Si tipo_de_fumigacion<1 O tipo_de_fumigacion>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_fumigacion>=1 Y tipo_de_fumigacion<=4;
Si tipo_de_fumigacion = 1 Entonces
monto_a_pagar <- hectareas*20;
FinSi
Si tipo_de_fumigacion = 2 Entonces
monto_a_pagar <- hectareas*30;
FinSi
Si tipo_de_fumigacion = 3 Entonces
monto_a_pagar <- hectareas*40;
FinSi
Si tipo_de_fumigacion = 4 Entonces
monto_a_pagar <- hectareas*70;
FinSi
Si hectareas>50 Entonces
descuento <- monto_a_pagar*0.1;
SiNo
descuento <- 0;
FinSi
total_a_pagar <- monto_a_pagar-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto a pagar: ", monto_a_pagar;
Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso
Escribir Sin Saltar "Ingresa el valor de hectareas:";
Leer hectareas;
monto_a_pagar <- 0;
Escribir "Selecciona el valor de tipo de fumigacion.";
Escribir " 1.- La broca";
Escribir " 2.- El minador de la hoja";
Escribir " 3.- La palomilla de las raíces";
Escribir " 4.- Todas las anteriores";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_fumigacion;
Si tipo_de_fumigacion<1 O tipo_de_fumigacion>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_fumigacion>=1 Y tipo_de_fumigacion<=4;
Si tipo_de_fumigacion = 1 Entonces
monto_a_pagar <- hectareas*20;
FinSi
Si tipo_de_fumigacion = 2 Entonces
monto_a_pagar <- hectareas*30;
FinSi
Si tipo_de_fumigacion = 3 Entonces
monto_a_pagar <- hectareas*40;
FinSi
Si tipo_de_fumigacion = 4 Entonces
monto_a_pagar <- hectareas*70;
FinSi
Si hectareas>50 Entonces
descuento <- monto_a_pagar*0.1;
SiNo
descuento <- 0;
FinSi
total_a_pagar <- monto_a_pagar-descuento;
Escribir "Valor de descuento: ", descuento;
Escribir "Valor de monto a pagar: ", monto_a_pagar;
Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso