No todos los estudiantes aprenden de la misma manera. A unos el estímulo visual les llega antes, a otros el auditivo, el táctil o el kinestésico. Si descubres qué tipo de aprendizaje sigues, podrás conseguir que tu rendimiento académico sea mayor y mejor.
EVAP 11: Procedimientos y SubProcesos con Vectores-(Martes)
//1-SUMAR
SubProceso SUMA()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//SUMAR LOS ELEMENTOS DEL VECTOR
Escribir "Ingrese el Numero de Elementos del Vector a emplear:"
Leer n;
Escribir "********************************************************";
i=1;
Escribir "Sumar los Elementos del Vector";
Escribir "********************************";
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
FinMientras
Escribir "La Suma de los Elementos de los ", i-1, " primeros elementos es =",Adicion;
FinSubProceso
​
​
//2-PROMEDIO
SubProceso PROMEDIO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector";
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//SUMA Y PROMEDIO DE LOS ELEMENTOS DEL VECTOR
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Promedio de los Elementos del Vector";
Escribir "*************************************************";
i=1;
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
Fin Mientras
Pro_medio<-Adicion/n;
Escribir "El Promedio de los ", i-1, " primeros elementos es =", Pro_medio;
FinSubProceso
​
​
//3-MAXIMO
SubProceso MAXIMO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector:"
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MAXIMO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Resultado Maximo de los Elementos del Vector";
Escribir "********************************************************";
i=1;
MAX<-Vector(i);
Para i=1 Hasta n Con Paso 1 Hacer
Si Vector(i)>MAX Entonces
MAX<-Vector(i);
SiNo
MAX<-MAX;
Fin Si
Fin Para
Escribir "El Maximo Numero es:", MAX;
FinSubProceso
​
​
//4-MINIMO
SubProceso MINIMO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector";
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MINIMO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Resultado Minimo de los Elementos del Vector";
Escribir "********************************************************";
i=1;
MIN<-Vector(i)
Para i=1 Hasta n Con Paso 1 Hacer
Si Vector(i)<MIN Entonces
MIN<-Vector(i);
SiNo
MIN<-MIN;
Fin Si
Fin Para
Escribir "El Minimo Numero es:", MIN;
FinSubProceso
​
​
//5-CONTAR
SubProceso CONTAR()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector";
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//CONTAR
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Numero de Veces Repetidas del Elemento del Vector";
Escribir "**************************************************************";
Escribir "Ingrese El Numero a Comprobar:";
Leer A;
i=1;
C=0;
Mientras A=Vector(i) Hacer
Si i<=n Entonces
C<-C+1;
i=i+1;
SiNo
Escribir "Fuera de Rango";
Fin Si
FinMientras
Escribir "El Numero ", A," se repite " C, " veces";
FinSubProceso
​
//6-MEDIANA
SubProceso MEDIAN()
Dimension Vector(10);
Escribir "Ingrese el Numero de Elementos del Vector:";
Escribir "*******************************************";
Leer n;
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "*******************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MEDIANA
Escribir "Hallar La Mediana de los Elementos del Vector";
Escribir "**************************************************************";
Dimension Factor(10)
Repetir
Mediana<-i;
Factorial<-Factorial*Factor(i);
Mediana<-rc(Factorial)
i<-i+1
Hasta Que i<=n
Escribir "La Mediana es:" Mediana;
FinSubProceso
​
//7-MAYORES AL PROMEDIO
SubProceso MAYORES_AL_PROMEDIO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Escribir "*******************************************";
Leer n;
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
​
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "*******************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
​
//MAYORES AL PROMEDIO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar La Cantidad de Numeros Mayores al Promedio";
Escribir "**************************************************************";
i=1;
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
Fin Mientras
Pro_medio<-Adicion/n;
MAYORES=0;
Para i<-1 Hasta n Con Paso 1 Hacer
Si Vector(i)<Pro_medio Entonces
MAYORES<-MAYORES+1;
SiNo
Escribir "Fuera de Rango";
Fin Si
Fin Para
Escribir "Los Numeros Mayores al Promedio son:", MAYORES;
FinSubProceso
​
​
//8-MENORES AL PROMEDIO
SubProceso MENORES_AL_PROMEDIO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MENORES AL PROMEDIO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar La Cantidad de Numeros Menores al Promedio";
Escribir "**************************************************************";
i=1;
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
Fin Mientras
Pro_medio<-Adicion/n;
menores=0;
Para i<-1 Hasta n Con Paso 1 Hacer
Si Vector(i)>Pro_medio Entonces
menores<-menores+1;
SiNo
Escribir "Fuera de Rango";
Fin Si
Fin Para
Escribir "Los Numeros Menores al Promedio son:", menores;
FinSubProceso
Proceso EJERCICIOS
//DECLARACION PUBLICA
Definir opciones, Mediana, MAYORES, menores, Adicion, Pro_medio,MAX, MIN, A, i, n, C, Factor, Factorial como Entero
Dimension Vector(10)
//ELEGIR OPCION FORMULA
Escribir "***********MENU***********"
Escribir "1)SUMAR"
Escribir "2)PROMEDIO"
Escribir "3)MAX"
Escribir "4)MIN"
Escribir "5)CONTAR"
Escribir "6)MEDIANA"
Escribir "7)MAYORES AL PROMEDIO"
Escribir "8)MENORES AL PROMEDIO"
Escribir "********************************************";
Escribir "ELEGIR UNA FORMULA"
Leer opciones
Segun opciones Hacer
1:
SUMA()//1-INVOCAR
2:
PROMEDIO()//2-INVOCAR
3:
MAXIMO()//3-INVOCAR
4:
MINIMO()//4-INVOCAR
5:
CONTAR()//5-INVOCAR
6:
MEDIAN()//6-INVOCAR
7:
MAYORES_AL_PROMEDIO()//7-INVOCAR
8:
MENORES_AL_PROMEDIO()//8-INVOCAR
De Otro Modo:
Escribir "NO HA SELECCIONADO UNA OPCION"
Fin Segun
FinProceso
//FIN
EVAP 11: Procedimientos y SubProcesos con Vectores-(Jueves)
//1-SUMAR
SubProceso CAMPO_MAGNETICO()
//VECTORIZANDO
Dimension Campo(20)
Escribir "Ingrese La Permeabilidad Magnetica:";
Leer Perm_Mag;
Escribir "Ingrese La Corriente:";
Leer Intensidad;
Escribir "Ingrese el Numero de Espiras:";
Leer N_Espiras;
L=1;
FINAL_1<-20;
INICIAL<-2.5;
FINAL<-8;
Induct<-INICIAL;
Mientras (Induct<=FINAL) y (L<=FINAL_1) Hacer
Campo(L)<-(Perm_Mag*Intensidad*N_Espiras)/Induct;
L<-L+1;
Induct<-Induct+0.25;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
L=1;
Escribir "Valores de los Elementos del Vector"
Escribir "**************************************";
Mientras L<=FINAL_1 Hacer
Escribir "El V[", L, "]=", Campo(L);
L<-L+1;
FinMientras
//SUMA DE ELEMENTOS
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "Sumar los Elementos del Vector";
Escribir "*********************************";
Para L=1 Hasta n Con Paso 1 Hacer
SUMAR<-SUMAR+Campo(L);
Fin Para
Escribir "La Suma de los Elementos es:",SUMAR;
FinSubProceso
​
​
//2-PROMEDIO
SubProceso POTENCIA_1()
Dimension Potencia(13)
Escribir "Ingrese el Voltaje:";
Leer Volt;1
Escribir "Ingrese la Corriente:";
Leer Intensidad;
INICIAL<-60;
FINAL<-120;
Ang<-INICIAL;
A=1;
FINAL_1<-13;
Mientras (Ang<=FINAL) y (A<=FINAL_1) Hacer
rad<-(2*PI*Ang)/360;
Potencia(A)<-Volt*Intensidad*Cos(rad);
A<-A+1;
Ang<-Ang+5;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
A=1;
Escribir "Valores de los Elementos del Vector"
Escribir "**************************************";
Mientras A<=FINAL_1 Hacer
Escribir "El V[", A, "]=", Potencia(A);
A<-A+1;
FinMientras
//LA MAXIMA POTENCIA HALLADA
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "Hallar El Maximo Resultado";
Escribir "********************************";
A=1
MAX<-Potencia(A)
Para A=1 Hasta n Con Paso 1 Hacer
Si Potencia(A)>MAX Entonces
MAX<-Potencia(A)
SiNo
MAX<-MAX
Fin Si
Fin Para
Escribir "La Maxima Potencia Hallada es:",MAX;
FinSubProceso
Proceso EJERCICIOS
//DECLARACION PUBLICA
Definir Perm_Mag, Induct, Camp_Mag, Intensidad, N_Espiras, L, SUMAR, n, rad, A, MAX, Ang, Volt como Real
Definir opciones, INICIAL, FINAL, INICIAL_1, FINAL_1 Como Entero
//ELEGIR OPCION FORMULA
Escribir "***********MENU***********"
Escribir "1)CAMPO MAGNETICO"
Escribir "2)POTENCIA"
Escribir "ELEGIR UNA FORMULA"
Leer opciones
Segun opciones Hacer
1:
CAMPO_MAGNETICO()//1-INVOCAR
2:
POTENCIA_1()//2-INVOCAR
De Otro Modo:
Escribir "NO HA SELECCIONADO UNA OPCION"
Fin Segun
FinProceso
//FIN