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