estructura de vectores de datos
jueves
SubProceso ENERGIA_POTENCIAL()//SUBPROCESO_1
Escribir "Ingrese M";
Leer M;
Escribir "Ingrese q2";
Leer q2;
Escribir "Ingrese k";
Leer k;
INICIAL=20
FINAL=100
Si (M<>0) Entonces
Para q1<-INICIAL Hasta FINAL Con Paso 25 Hacer
U<-(k*q1*q2)/M
Escribir "La Energia Potencial Es: ", U;
Fin Para
SiNo
Escribir "Ingrese un M distinto a Cero";
Fin Si
Fin SubProceso
SubProceso FRECUENCIA_ANGULAR()//SUBPROCESO_2
Escribir "Ingrese k";
Leer k;
INICIAL1=5
FINAL1=20
Para M<-INICIAL1 Hasta FINAL1 Con Paso 1 Hacer
W<-RC(K/M)
Escribir "La Frecuencia Angular Es: ", W;
Fin Para
Fin SubProceso
SubProceso FRECUENCIA()//SUBPROCESO_3
Escribir "Ingrese W";
Leer W;
Si (W>60 Y W<120) Entonces
F<-W/(2*PI)
Escribir "La Frecuencia es: ", F;
SiNo
Escribir "Ingrese un W entre 60 y 120";
Fin Si
Fin SubProceso
SubProceso INDUCTANCIA() //SUBPROCESO_4
Escribir "Ingrese la Fuerza Magnetica: ";
Leer FM;
Escribir "Ingrese la Corriente: ";
Leer I;
INICIAL3=10;
FINAL3=100;
Si (I<>0) Entonces
Para N<-INICIAL3 Hasta FINAL3 Con Paso 5 Hacer
L<-(FM*N)/I
Escribir "La Inductancia Es: ", L;
Fin Para
Sino
Escribir "Ingrese Una Corriente Diferente a 0";
Fin Si
Fin SubProceso
Algoritmo PROCEDIMIENTOS_SEM10_JUEVES
Definir OPC Como Entero
Escribir "*****MENU*****";
Escribir "1)ENERGIA POTENCIAL";
Escribir "2)FRECUENCIA ANGULAR";
Escribir "3)FRECUENCIA";
Escribir "4)INDUCTANCIA";
Escribir "Ingrese una Opcion";
Leer OPC;
Segun OPC Hacer
1:
ENERGIA_POTENCIAL();
2:
FRECUENCIA_ANGULAR();
3:
FRECUENCIA();
4:
INDUCTANCIA();
De Otro Modo:
Escribir "Fuera de Rango";
Fin Segun
Definir U, k, q1, q2, M, W, F Como Real
Definir INICIAL, FINAL, INICIAL1, FINAL1, INCIAL2, FINAL2, INICIAL3, FINAL3 Como Entero
ENERGIA_POTENCIAL();
FRECUENCIA_ANGULAR();
FRECUENCIA();
INDUCTANCIA();
FinAlgoritmo
viernes
SubProceso CAMPO_MAGNETICO() //SUBPROCESO 1
Dimension Campo(100);
Definir Max2 como Real
INICIAL= 2.5;
FINAL= 8;
i=1
L=5
Escribir "Ingrese la Permeabilidad: ";
Leer u;
Escribir "Ingrese la Corriente: ";
Leer I ;
Escribir "Ingrese el Numero de Espiras";
Leer N;
Mientras i<=FINAL Hacer
Campo(i)<-(u*I*N)/L
i<-i+1;
L<-L+0.5
FinMientras
i=1;
L=50;
Mientras i<=FINAL Hacer
Escribir "El Resultado Es: ", Campo(i);
i=i+1
L= L+0.5
Fin Mientras
//Para Hallar Maximo
i=1
Max2<-Campo(1)
Repetir
Si Campo(i)>Max2 Entonces
Max2<-Campo(i)
Sino
Max2<-Max2
Fin Si
Escribir "El Maximo Valor es: ", Max2;
i<-i+1
Hasta Que (i>=FINAL)
Fin SubProceso
SubProceso POTENCIA() // SUBPROCESO 2
Dimension Pote(100)
Definir Max3 como Real
Definir rad Como Real
INICIAL= 6;
FINAL= 12;
i=1
A=5
Escribir "Ingrese el Voltaje: ";
Leer V;
Escribir "Ingrese la Corriente:";
Leer I;
Mientras i<=FINAL Hacer
rad<-(2*PI*A)/360
Pote(i)<-V*I*cos(rad)
i<-i+1;
A<-A+5
FinMientras
i=1;
Mientras i<=FINAL Hacer
Escribir "El Resultado Es: ", Pote(i);
i=i+1
Fin Mientras
//Para Hallar Maximo
i=1
Max3<-Pote(1)
Repetir
Si Pote(i)>Max3 Entonces
Max3<-Pote(i)
Sino
Max3<-Max3
Fin Si
Escribir "El Maximo Valor es: ", Max3;
i<-i+1
Hasta Que (i>=FINAL)
Fin SubProceso
SubProceso Corriente_t() // SUBPROCESO 3
Dimension Corriente(100);
Definir Max1 como Real
INICIAL = 1;
FINAL = 10;
i=1
t=5
Escribir "Ingrese la Frecuencia Angular: ";
Leer W;
Escribir "Ingrese la Corriente Inicial:" ;
Leer Io;
Mientras i<=FINAL Hacer
Corriente(i) <- Io*sen(W*t)
i<-i+1;
t=t+0.5;
FinMientras
i=1;
t=50;
Mientras i<=FINAL Hacer
Escribir "El Resultado Es: ", Corriente(i);
i=i+1
t= t+0.5
Fin Mientras
//Para Hallar Maximo
i=1
Max1<-Corriente(1)
Repetir
Si Corriente(i)>Max1 Entonces
Max1<-Corriente(i)
Sino
Max1<-Max1
Fin Si
Escribir "El Maximo Valor es: ", Max1;
i<-i+1
Hasta Que (i>=FINAL)
Fin SubProceso
Proceso VECTORES
Definir i, INICIAL, FINAL Como Entero
INICIAL = 1;
FINAL = 10;
Definir OPC Como Entero
Escribir "1)CAMPO MAGNETICO";
Escribir "2)POTENCIA";
Escribir "3)CORRIENTE";
Escribir "Ingrese una Opcion";
Leer OPC;
Segun OPC Hacer
1:
CAMPO_MAGNETICO()
2:
POTENCIA()
3:
Corriente_t();
De Otro Modo:
Escribir "Fuera de Rango";
Fin Segun
FinProceso