• 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.

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
39
Proceso PulverizacionContraPlagas
    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