Datos de N productos en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Un almacén ha recopilado los datos de N productos, para esto se ingresan en un proceso repetitivo: el tipo (comida, vestido), la procedencia (Nacional, Importado) y el precio de cada producto. Construya un algoritmo que permita calcular lo siguiente:
a) El promedio de precios de productos procedencia Nacional.
b) El promedio de precios de productos procedencia Importado.
c) El menor precio.
d) La cantidad de productos del tipo Comida.
e) La cantidad de productos del tipo Vestido.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

Proceso DatosDeNProductos

    cantidad_comida <- 0;

    cantidad_importados <- 0;

    cantidad_nacionales <- 0;

    cantidad_vestido <- 0;

    menor_precio <- 0;

    promedio_importados <- 0;

    promedio_nacionales <- 0;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

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

        Leer precio;

        Escribir "Selecciona el valor de tipo.";

        Escribir "    1.- Comida";

        Escribir "    2.- Vestido";

        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 procedencia.";

        Escribir "    1.- Nacional";

        Escribir "    2.- Importado";

        Escribir Sin Saltar "    :";

        Repetir

            Leer procedencia;

            Si procedencia<1 O procedencia>2 Entonces

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

            FinSi

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

        Si procedencia = 1 Entonces

            promedio_nacionales <- promedio_nacionales+precio;

            cantidad_nacionales <- cantidad_nacionales+1;

        SiNo

            promedio_importados <- promedio_importados+precio;

            cantidad_importados <- cantidad_importados+1;

        FinSi

        Si i = 1 O menor_precio>precio Entonces

            menor_precio <- precio;

        FinSi

        Si tipo = 1 Entonces

            cantidad_comida <- cantidad_comida+1;

        SiNo

            cantidad_vestido <- cantidad_vestido+1;

        FinSi

        Escribir "";

    FinPara

    Si cantidad_importados = 0 Entonces

        promedio_importados <- 0;

    SiNo

        promedio_importados <- promedio_importados/cantidad_importados;

    FinSi

    Si cantidad_nacionales = 0 Entonces

        promedio_nacionales <- 0;

    SiNo

        promedio_nacionales <- promedio_nacionales/cantidad_nacionales;

    FinSi

    Escribir "Valor de cantidad comida: ", cantidad_comida;

    Escribir "Valor de cantidad importados: ", cantidad_importados;

    Escribir "Valor de cantidad nacionales: ", cantidad_nacionales;

    Escribir "Valor de cantidad vestido: ", cantidad_vestido;

    Escribir "Valor de menor precio: ", menor_precio;

    Escribir "Valor de promedio importados: ", promedio_importados;

    Escribir "Valor de promedio nacionales: ", promedio_nacionales;

FinProceso