Programas Fox

1.-
clear
input "ingrese valor mts cuadrado" to v
input "ingrese el lado " to l
b=l/2
h=sqrt((l^2)-(b^2))
a=(b*h)/2
pt=a*v
?"el precio es:",pt
Return

2.-
clear
input "el radio del balon" to r
v=(4/3)*pi()*(r^3)
?"el volumen es :",v
Return

3.-
clear
input "ingrese a" to a
input "ingrese b" to b
input "ingrese c" to c
x1=(-(b)+sqrt((b^2)-4*a*c))/2*ax2=(-(b)-sqrt((b^2)-4*a*c))/2*a
?"x1=",x1,"x2=",x2
Return

4.-
clear
input "grados centigrados" to gc
k=gc+273
f=(9/5)*gc+32
r=f+460
?k,f,r
Return

5.-
clear
input "ingrese el numero de lados " to n
input "ingrese la apotema " to a
input "ingrese el lado" to l
s=(n*a*l)/2
?s

6.-
clear
do while inkey(5)=13
r=int(rand()*9999)
??r
enddo
return

7.-
clear
input "ingrese el numero minimo"to a
input "ingrese el numero maximo " to b
do while inkey(5)=13
r=int(rand()*b)
if r>=a
?r
else
?r
endif
enddo
return

8.-
clear
input "Ingrese el valor en mts" to a
deca=a/10
hecto=a/100
kilo=a/1000
decime=a*10
centi=a*100
mili=a*1000
?mili,centi,decime,a,deca,hecto,kilo

9.-
clear
input "ingrese el lado menor" to l
input "ingrese el angulo opuesto" to aa1=90-a
h=l/sin(a*pi()/180)
lma=sqrt((h^2)-(l^2))
area=(l*lma)/2
peri=l+lma+h
?"el area es:",area
?"el perimetro es:",peri

10.-
clear
input "ingrese la distancia del auto" to d
input "ingrese la aceleracion del auto" to a
vf=sqrt(2*a*d)
?vf

11.-
clear
h=val(substr(time(),1,2))*3600
mi=val(substr(time(),4,2))*360
se=val(substr(time(),7,2))
hs=h+mi+se
?"hora en segundos",hsReturn

12.-
clear
input "ingrese el espacio de disco en gigas" to a
r=a*(1024^4)
?"en bit es",r
14.-
clear
input "ingrese el porcentaje" to p
input "ingrese el tiempo en meses" to t
input "ingrese el capital" to c
i=(p*t*c)/1200
?"el interes es:",i
Return

15.-
clear
input "ingrese el 1er valor "to a
input "ingrese el 2do valor "to b
input "ingrese el 3er valor "to civa=((a+b+b)*12)/100
?"el iva por los productos es:", iva

16.-
clear
n=32
input "ingrese el numero para ver si es multiplo" to a
if (n/a)=int(n/a) or (a/n)=int(a/n)
?"si es multiplo"
else
?"no es multiplo"
endif
return

17.-
clear
input "ingrese la velocidad del vehículo "to v
input "ingrese la aceleracion del vehiculo "to a
d=(v^2)/(2*a)
?"la distancia es:",d
return

18.-clear
input "ingrese la velocidad del vehículo "to v
input "ingrese la distancia del vehiculo "to d
a=(v^2)/(2*d)
?"la aceleracion es:",a
Return

19.-
clear
input "ingrese el valor "to v
input "ingrese el porcentaje que quiere calcular "to p
por=v*p/100
?"el",p,"% de",v,"es",por
Return
21.-
clear
input "ingrese el numero:" to a
f=1
for i= 1to a
f=f*i
next
? f
22.-
clearinput "ingrse en nro de datos"to n
m=0
for i=1 to n
input "ingrse dato"to a
m=m+a
next
media=m/n
?media

23.-
clear
input "ingrese el numero de datos que va a ingresar" to m
dimension v(m)
for i= 1 to m
input "ingrese el numero" to v(i)
next
sw=0
for i= 1 to (m-1)
if v(i+1)= v(i)
aus=v(i)
sw=1
endif
next
if sw=1
?"la moda es",aus
else
?"no existe la moda"
endifreturn

24.-
clear
input "ingrese el enumero de datos"to a
b=0
for i=1 to a
input "ingrese el dato"to d
if d>b
m=d
endif
b=d
next
?"el mayor es ",m

25.-
clear
input "ingrese el enumero de datos"to a
b=0
m=0
input "ingrese el dato"to d
x=d
for i=1 to a-1
input "ingrese el dato"to d
if x>d
x=d
endif
next
?"el menor es ",x
Return

26.-
clear
input"ingrese el numero base" to b
input "ingrese el exponente " to e
a=1
for i= 1 to e
a=a*b
next
?a
Return

27.-
clear
input "el numero de datos a ingresar" to m
s=0
for i=1 to m
input "ingrese un dato" to a
s=s+a
next
me=s/m
?"la mediana es:",me
Return

28.-
clear
input "el numero de datos a ingresar" to m
sw=0
b=0
for i=1 to m
input "ingrese un dato" to a
sw=sw+1...