Asociación de farmacéuticos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

La asociación de farmacéuticos tiene como política fijar un precio inicial de antibióticos, la cual se clasifica en tipos A y B, y además en tamaños por lote 1 y 2, cuando se realiza la venta de los antibióticos, esta es de un sólo tipo y tamaño, se requiere determinar cuanto recibirá un productor de antibióticos que entrega un lote, considerando lo siguiente : si es de tipo A se le cargan 20 ¢ al precio inicial cuando es de lote 1 y 30 ¢ cuando es lote 2. Si es de tipo B se le rebajan 30 ¢ si es de lote 1 y 50 ¢ si es de lote 2.

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
40
41
42

Proceso AsociacionDeFarmaceuticos

    Escribir Sin Saltar "Ingresa el valor de precio inicial:";

    Leer precio_inicial;

    Escribir Sin Saltar "Ingresa el valor de tamano del lote:";

    Leer tamano_del_lote;

    Escribir "Selecciona el valor de tipo.";

    Escribir "    1.- A";

    Escribir "    2.- B";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo;

        Si tipo<1 O tipo>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que tipo>=1 Y tipo<=2;

    Escribir "Selecciona el valor de lote.";

    Escribir "    1.- Uno";

    Escribir "    2.- Dos";

    Escribir Sin Saltar "    :";

    Repetir

        Leer lote;

        Si lote<1 O lote>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que lote>=1 Y lote<=2;

    precio_fijado <- precio_inicial;

    Si tipo = 1 Y lote = 1 Entonces

        precio_fijado <- precio_fijado+0.2;

    FinSi

    Si tipo = 1 Y lote = 2 Entonces

        precio_fijado <- precio_fijado+0.3;

    FinSi

    Si tipo = 2 Y lote = 1 Entonces

        precio_fijado <- precio_fijado-0.3;

    FinSi

    Si tipo = 2 Y lote = 2 Entonces

        precio_fijado <- precio_fijado-0.5;

    FinSi

    ganancia_obtenida <- tamano_del_lote*precio_fijado;

    Escribir "Valor de ganancia obtenida: ", ganancia_obtenida;

    Escribir "Valor de precio fijado: ", precio_fijado;

FinProceso