ACT APRENDIZAJE

Proceso act_apren_uno

Definir op,menuprin como entero

Definir base,altura,distancia,tiempo,A,velocidad,masa,peso,Vol,ancho,profundidad como real

Definir resp como caracter

resp<-'s';

gravedad<-9.8;

imprimir "Este programa fue traido hacia su computadora por: Martin Navarro"

Repetir

Imprimir "Que opcion quiere efectuar?"

imprimir "1.-Operaciones"

imprimir "2.-Definiciones"

Imprimir "3.-Salir"

leer menuprin

segun menuprin hacer

caso 1:

imprimir "Deme el numero de la opcion a elegir"

imprimir "1. Area del triangulo"

imprimir "2. Velocidad de un objeto"

imprimir "3. Peso de un objeto en Newtons (N)"

imprimir "4. Volumen de un objeto cuadrado"

imprimir "5. Velocidad de un cuerpo en caida libre"

leer op

segun op hacer

caso 1:

imprimir "Area del Triangulo"

imprimir "Dame la base "

leer base

imprimir "Dame la altura "

leer altura

A=(base*altura)/2;

imprimir "El area del triangulo es ",A

caso 2:

imprimir "Velocidad de un objeto"

imprimir "Dame la distancia recorrida en metros "

leer distancia

imprimir "Daame el tiempo en segundos que tardo el objeto en el recorrido "

leer tiempo

velocidad=distancia*tiempo;

imprimir "La velocidad del objeto es de ",velocidad

caso 3:

imprimir "Peso de un objeto"

imprimir "Dame la masa del objeto en kg "

leer masa

peso=masa*gravedad;

imprimir "El peso ebn newtons del objeto es de ",peso

caso 4:

Imprimir "Volumen de un objeto cuadrado"

imprimir "Dame la altura "

leer altura

imprimir "Dame el ancho "

leer ancho

imprimir "Dame la profundidad "

leer profundidad

Vol=altura*ancho*profundidad

imprimir "El volumen del objeto es ",Vol

caso 5:

Imprimir "Velocidad de un cuerpo en caida libre (Sin friccion)"

imprimir "Dime el tiempo que tardo el objeto en caer "

leer tiempo

velocidad=gravedad*tiempo

imprimir "La velocidad del objeto es ",velocidad

de otro modo:

imprimir "Opcion no valida"

finsegun

caso 2:

Imprimir

...