Ing. Electronica
Algoritmo Algoritmo_tarea
Escribir '**********MENÚ*******'
Escribir '1: POTENCIA:'
Escribir '2: CAPACITANCIA:'
Escribir '3: EJERCICIO3:'
Escribir 'INGRESE LA OPCION:'
Leer PROCESO1234
Segun PROCESO1234 Hacer
1:
Definir INICIO,FINAL,V Como Entero
Definir P,I,Coseno como REAL
INICIO=110
FINAL=220
Coseno=0.85;
Escribir 'INGRESE EL VALOR DE LA INTENSIDAD DE CRRIENTE: '
Leer I
PARA V<-INICIO HASTA FINAL CON PASO 10 HACER
P<-V*I*Coseno
Escribir C,'*',I,'*',Coseno,'=',P;
Escribir 'La potencia es: ',P;
FinPara
2:
Definir INICIO1,FINAL1,INICIO2,FINAL2,CP1 Como Entero
Definir CP_RES,CP2,CP3 como REAL
INICIO=100;
FINAL=200;
Escribir 'INGRESE EL VALOR DE LA CAPACITANCIA2: '
Leer CP2
Escribir 'INGRESE EL VALOR DE LA CAPACITANCIA3: '
Leer CP3
PARA CP1<-INICIO HASTA FINAL CON PASO 15 HACER
CP_RES<-1/((1/CP1)+(1/CP2)+(1/CP3))
ESCRIBIR 1,'/','(',1,'/',CP1,')','+','(',1,'/',CP2,')','+','(',1,'/',CP3,')','=',CP_RES;
Escribir 'LA CAPACITANCIA RESULTANTE ES : ',CP_RES;
FinPara
3:
Definir INICIO,FINAL,A Como Entero
Definir VF,VI,T como REAL
INICIO1=0;
FINAL1=100;
INICIO2=50;
FINAL2=80;
Escribir 'INGRESE EL VALOR DE TIEMPO : '
Leer T
PARA VF<-INICIO1 HASTA FINAL1 CON PASO 5 HACER
PARA VI<-INICIO2 HASTA FINAL2 CON PASO 10 HACER
A<-(VF-VI)/T
Escribir '(',VF,'-',VI,')','/',T,'=',A;
Escribir 'LA ACELERCION ES : ',A;
FinPara
FinPara
FinSegun
FinAlgoritmo