MARTES 20
Proceso sin_titulo Definir opcion,inicial,final como entero Definir U,K,Q1,Q2,r como real Definir T,F,W como real Escribir "MENU" Escribir "1) energia potencial eléctrico" Escribir "2) frecuencia angular" Escribir "3) Frecuencia" Escribir "4) inductancia " Escribir " escribir Opción" Leer opcion Segun opcion hacer 1: Escribir "Calculo de la energia potencial eléctrica" k=0.175 Escribir "ingrese distancia r" leer r inicial=20 final=100 si r<>0 Entonces Escribir "ingrese la carga de Q2" Leer Q2 para Q1<-inicial Hasta final con Paso 25 Hacer U<-(k* Q1 *Q2)/r; Escribir "El resultado de EPE es : ", U FinPara Sino Escribir "fuera de rango" FinSi 2: Escribir "leer K" leer K inicio1=5 final2=20 Para M<-inicio1 Hasta final2 Con Paso 1 hacer w = rc(K/M) Escribir "la frecuencia angular es :", w FinPara 3: Escribir " ingrese W" leer W si W>60 y W<120 F=W/2*PI Escribir " la frecuencia es :",F sino Escribir "fuera de rango " FinSi 4: Escribir "ingrese I" Leer I Escribir "ingrese O" Leer Q inicial1=10 final22=100 si I<>0 entonces Para N<- inicial1 hasta final22 con paso 5 hacer L=(Q*N)/I Escribir "la inductancia es : ", L FinPara sino Escribir "fuera de rango" FinSi FinSegun FinProceso
コメント