***PROGRAMA QUE CALCUALA EL AREA CUADRATICA DE UNA FIGURA
***VISUAL FOXPRO
SET STATUS OFF
SET SCORE OFF
SET TALK OFF
CLEAR
@ 02, 04 say "programa areas cuadraticas"
A=0
B=0
@ 04, 04 say "menu de opciones"
@ 06, 04 say "1. area de un cuadrado"
@ 08, 04 say "2. area de un circulo"
@ 10, 04 say "3. area de un trapecio"
@ 12, 04 say "4. area de un cilindro"
@ 14, 04 say "5. area de un rectangulo"
@ 16, 04 say "6. area de un triangulo"
@ 18, 04 say "elija el numero de la opcion que desea" get A
read
aro=0
aro2=0
if A=1
@ 20, 04 say "escriba el numero de el primer lado" get aro
read
@ 22, 04 say "escriba el numero de el segundo lado" get aro2
read
z=aro*aro2
@ 24, 04 say "el area de el cuadrado es: " +str(z) +"cm²"
endif
circulo=0
if A=2
@ 20, 04 say "escriba el radio de el circulo" get circulo
read
p=circulo*circulo
z=3.141592654*p
@ 22, 04 say "el area de el circulo es: " +str(z) +"cm²"
endif
n=0
m=0
c=0
if A=3
@ 20, 04 say "ingrese la base mayor" get n
read
@ 22, 04 say "ingrese la base menor" get m
read
@ 24, 04 say "ingrese la altura de el trapecio" get c
read
h=n+m
j=(c*h)/2
@ 26, 04 say "el area de el trapecio es de: " +str(m) +"cm²"
endif
g=0
e=0
if A=4
@ 20, 04 say "escriba la altura de el cilindro" get g
read
@ 22, 04 say "ingrese el radio" get e
read
h=2*3.141592654*e*g
@ 24, 04 say "el area de cilindro es: " +str(h) +"cm²"
endif
u=0
t=0
if A=5
@ 20, 04 say "ingrese la base del rectangulo " get u
read
@ 22, 04 say "ingrese la altura del rectangulo" get t
read
d=u*t
@ 24, 04 say "el area de la base del rectangulo es: " +str(d) +"cm²"
read
endif
w=0
h=0
m=0
if A=6
@ 20, 04 say "1. triangulo equilatero"
@ 22, 04 say "2. triangulo isosceles"
@ 24, 04 say "3. triangulo rectangulo"
@ 26, 04 say "ingrese el numero de la opcion que desea" get m
READ
@ 28, 04 say "ingrese la base del triangulo" get w
read
@ 30, 04 say "ingrese la altura del triangulo" get h
read
v=w*h/2
@ 32, 04 say "el area del triangulo es de: " +str(v) +"cm²"
endif
No hay comentarios:
Publicar un comentario