Ing. Electronica
MIENTRAS
Algoritmo Algoritmo_tarea
Escribir '**********MENÚ*******'
Escribir '1: CALCULAR FUERZA:'
Escribir '2: CALCULAR VELOCIDAD:'
Escribir '3: CALCULAR PRESION:'
Escribir '4:CALCULAR GANANCIA:'
Escribir 'INGRESE UNA OPCION:'
Leer PROCESO1234
Segun PROCESO1234 Hacer
1:
Definir PRESION,FUERZA,AREA,INICIO,FINAL Como Real
INICIO=10
FINAL=100
Escribir 'INGRESE AREA'
Leer AREA
PRESION=INICIO
Mientras (PRESION<=FINAL) Hacer
FUERZA=PRESION*AREA
PRESION=PRESION+5
Escribir 'RESULTADO DE F ES:' ,FUERZA;
Fin Mientras
2:
Definir VELOCIDAD,GRAVEDAD,MASA,ALTURA Como Real
INICIO=5
FINAL=10
Escribir 'INGRESE MASA'
Leer MASA
ALTURA=INICIO
Mientras (ALTURA<FINAL) Hacer
GRAVEDAD=9.8
VELOCIDAD=GRAVEDAD*MASA*ALTURA
ALTURA=ALTURA+0.5
Escribir 'RESULTADO DE V ES:' ,VELOCIDAD;
Fin Mientras
3:
Definir PRESION,VOLTAJE,INTENSIDAD Como Real
INICIO=110
FINAL=220
Escribir 'INGRESE INTENSIDAD'
Leer INTENSIDAD
VOLTAJE=INICIO
Mientras (VOLTAJE<=FINAL) Hacer
PRESION=VOLTAJE*INTENSIDAD
VOLTAJE=VOLTAJE+10
Escribir 'RESULTADO DE P ES:' ,PRESION;
Fin Mientras
4:
De Otro Modo:
Definir PIC,IB,GANANCIA Como Real
INICIO=1
FINAL=5
Escribir 'INGRESE IB'
Leer IB
IC=INICIO
Mientras (IC<=FINAL) Hacer
GANANCIA=IC*IB
IC=IC+0.2
Escribir 'RESULTADO DE G ES:' ,GANANCIA;
Fin Mientras
Fin Segun
FinAlgoritmo