Laboratorio 7

Aquí les dejo un pequeño código:

Proceso bucles_de_retencion
Escribir "1. Hallar la fuerza"
Escribir "2. Velocidad en caida libre"
Escribir "3. Factorial de un (N)"
Escribir "4. Potencia electrica"
Escribir "5. Fórmula para transistores"
Leer variable;
Segun variable Hacer
1:
Definir A,F,P como reales
Pin=10
Pfin=100
Escribir "Ingrese el Área: "
Leer A;
P=Pin
Mientras (P<=Pfin) Hacer
F=P/A
P=P+5
Escribir "La fuerza es: ",F;
FinMientras
2:
Definir V,g,h,m como reales
hin=5
hfin=10
Escribir "Ingrese la masa: "
Leer m;
h=hin
Mientras (h<hfin) Hacer
g=9.81
V=g*m*h
h=h+0.5
Escribir "La velocidad es: ",V;
FinMientras
3:
Definir FACT, N, C como entero;
Escribir "Ingrese el, enésimo termino a calcular: ";
Leer N;
FACT=1
C=1;
Mientras (C<=N) Hacer
FACT=FACT*C;
C=C+1;
Escribir "El factorial de ", N, "es: ", FACT;
Fin Mientras
4:
Definir P,V,I como reales
Vin=110
Vfin=220
Escribir "Ingrese la corriente: "
Leer I;
V=Vin
Mientras (V<=Vfin) Hacer
P=V*I
V=V+10
Escribir "La Potencia es: ",P;
FinMientras
5:
Definir beta,Ic,Ib como reales
Icin=1
Icfin=5
Escribir "Ingrese la corriente en base: "
Leer Ib;
Ic=Icin
Mientras (Ic<=Icfin) Hacer
beta=Ic/Ib
Ic=Ic+0.2
Escribir "El resultado es: ",beta;
FinMientras
De Otro Modo:
Escribir "no es una opcion"
Fin Segun
FinProceso