top of page

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

bottom of page