Proceso Parámetros

Definir U, K, Q1, Q2, R como real

Definir Opciones, inicial, final, i como entero

Definir FM, N, L como real

Dimensión Vector (10);

Inicial = 1

Final = 5

Escribir “*****************”

Escribir “1.- Leer Vector”

Escribir “2.- Mirar Vector”

Escribir “3.- Promedio”

Escribir “4.- Máximo”

Escribir “5.- Mínimo”

Escribir “Elija una opción”

Leer (Opciones);

Según Opciones Hacer

1: Leer1 ()

2: Mirar ()

3: Promedio ()

4: Maximo ()

5: Minimo ()

De otro modo:

Escribir “NO ES UNA OPCIÓN”

Fin Según

FinProceso

SubProceso Leer1 ()

Dimension Vector (10);

Inicial = 1

Final = 10

Para <i = inicial> hasta <final> con paso 1 Hacer

Escribir “Ingrese los elementos del V(“,i,”) =”;

Leer Vector(i);

FinPara

FinSubProceso

 

SubProceso Mirar ()

Dimension Vector ()

Inicial = 1

Final = 10

Para <i=Inicial> hasta <Final> con paso 1 Hacer

Escribir “Ingrese los elementos del V(“,i,”) =”;

Leer Vector (i);

FinPara

FinSubProceso

 

SubProceso Promedio ()

Dimension Vector (10);

Definir inicial, final, i como entero

Inicial = 1

Final = 5

Para <i=inicial> hasta <final> con paso 1 Hacer

Escribir “Ingrese los elementos del V(“,i,”) =”;

Leer Vector (i);

FinPara

Para <i=inicial> hasta <final> con paso 1 Hacer

Escribir “Ingrese los elementos del V(“,i,”) =”, Vector (i);

FinPara

FinSubProceso

 

SubProceso Maximo ()

Dimension Vector (10);

Definir inicial, final, i como entero

Inicial = 1

Final = 10

Para <i=inicial> hasta <final> con paso 1 Hacer

Si i < 11 Entonces

Si Vector (i) < Vector (i+1) Entonces

MAX <- Vector (i);

Sino

MAX <- Vector (i+1);

FinSi

Escribir “El máximo es=”;

Leer MAX;

FinPara

Para <i=inicial> hasta <final> con paso 1 Hacer

Si Vector (i) < Vector (i+1) Entonces

MAX <- Vector (i);

Sino

MAX <- Vector (i+1);

FinSi

Escribir “El mínimo es=”, MAX;

FinPara

 

FinSubProceso

 

SubProceso Maximo ()

Dimension Vector (10);

Definir inicial, final, i como entero

Inicial = 1

Final = 10

Para <i=inicial> hasta <final> con paso 1 Hacer

Si Vector (i) < Vector (i+1) Entonces

MIN <- Vector (i+1);

Sino

MIN <- Vector (i);

FinSi

Escribir “Ingrese los elementos del V (“,i,”) =”;

Leer MIN;

FinPara

Para <i=inicial> hasta <final> con paso 1 Hacer

Si Vector (i) < Vector (i+1) Entonces

MIN <- Vector (i+1);

Sino

MIN <- Vector (i);

FinSi

Escribir “El mínimo es=”, MIN;

FinPara

FinSubProceso