-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una compañía extranjera de aviación que fumigó los cultivos contra una amplia gama de plagas. Los valores que se cobran a los agricultores dependen de lo que quieren fumigar y del número de hectáreas que se rociarán según las siguientes opciones:
Tipo 1: pulverización contra malezas, 10 dólares por hectárea.
Tipo 2: pulverización contra langostas, 15 dólares por hectárea.
Tipo 3: pulverización contra gusanos, 20 dólares por hectárea.
Tipo 4: pulverización contra todo, 30 dólares por hectárea.
Si el área de fumigación es menor o igual a 1000 hectáreas el agricultor no tiene descuento si la zona para fumigar esta entre 1000 y 2000 hectáreas el descuento es del 5 por ciento y si el área de fumigación es mayor o igual a 2000 hectáreas , El agricultor disfruta de un descuento del 10% sobre el valor a pagar. Para otros, cualquier agricultor cuya cuenta supere los 3000 dólares (incluyendo el primer descuento) tiene un descuento adicional del 10% sobre el valor que excede este precio. Calcule el valor a pagar por el agricultor.
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
39
Escribir Sin Saltar "Ingresa el valor de numero de hectareas:";
Leer numero_de_hectareas;
costo_por_hectarea <- 0;
Escribir "Selecciona el valor de tipo.";
Escribir " 1.- Pulverización contra malezas";
Escribir " 2.- Pulverización contra langostas";
Escribir " 3.- Pulverización contra gusanos";
Escribir " 4.- Pulverización contra todo";
Escribir Sin Saltar " :";
Repetir
Leer tipo;
Si tipo<1 O tipo>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo>=1 Y tipo<=4;
costo_por_hectarea <- 10;
costo_por_hectarea <- 15;
costo_por_hectarea <- 20;
costo_por_hectarea <- 30;
pago <- costo_por_hectarea*numero_de_hectareas;
primer_descuento <- 0;
Si numero_de_hectareas>1000 Y numero_de_hectareas<2000 Entonces
primer_descuento <- pago*0.05;
FinSi
Si numero_de_hectareas>=2000 Entonces
primer_descuento <- pago*0.1;
FinSi
Si pago-primer_descuento>3000 Entonces
descuento_adicional <- (pago-primer_descuento-3000)*0.1;
SiNo
descuento_adicional <- 0;
FinSi
pago <- pago-primer_descuento-descuento_adicional;
Escribir "Valor de costo por hectarea: ", costo_por_hectarea;
Escribir "Valor de descuento adicional: ", descuento_adicional;
Escribir "Valor de pago: ", pago;
Escribir "Valor de primer descuento: ", primer_descuento;
FinProceso