Funciones con Parámetros
( LUNES)
​
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
MATRICES
( JUEVES)
​
​
1.- Campo Magnético
Algoritmo:
​
1.- INICIO
2.- DECLARACIÓN
corriente, n, u <- real
campo (11) <- real
inicial, final, i, x <- real
3.- ASIGNACIÓN
x = 2.5
final = 8
Leer (corriente, n, u);
4.- PROCESO
Mientras (x <= final) Hacer
Leer campo [i] <- (u * corriente * n) /x;
i <- i + 1;
x <- x + 0.5;
FinMientras
FinProceso
SubProceso suma ()
Definir suma () como real
Suma = 0
Para <i = inicial> hacer <final>, i <- i + 1;
Suma <- suma + campo [i];
FinPara
Escribir (suma);
FinSubProceso
2.- Potencia
Algoritmo:
​
​​
​
​
POTENCIA
​
​
1.- INICIO
2.- DECLARACIÓN
Pi, v, corriente <- real
Alpha, potencia (120) <- real
Rad, inicial, final, i <- real
3.- ASIGNACIÓN
Alpha = 60
Final = 120
Pi = 3.1415
Leer (v, corriente)
4.- PROCESO
Mientras (Alpha <= final) Hacer
Rad <- (2*Pi*Alpha) / 360;
Leer potencia [i] <- v*corriente*cos(Rad);
I <- i + 1
Alpha <- Alpha + 5
FinMientras
FinProceso
SubProceso Maximo ()
i = 1
Maximo <- Potencia ()
Si Potencia [i] > Maximo Entonces
Maximo <- Potencia [i];
Sino
Maximo <- Maximo;
FinSi
Escribir (Maximo);
FinSubProceso