Evap 10

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