Funciones con
parámetros
Hecho en clase el dia 26 de noviembre
Campo Magnético:
B = u . i . n / l
Proceso Parámetro
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