Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CLEAR
- PUBLIC solu, cant
- PUBLIC y, n, ini, fin
- PUBLIC salir as Boolean
- cant=0
- solu=0
- n=0
- salir = .f.
- @ 2,2 say "ingrese la cantidad de soluciones " get cant PICT "99999999"
- read
- *!* n=8000000
- hi=time()
- do while !salir
- n=n+1
- ini = n+1
- fin = 2*n
- solu=0
- for x=ini to fin
- y=(1/((1/n)-(1/x)))
- if (y-int(y))=0
- solu=solu+1
- endif
- endfor
- if (solu >= cant)
- salir=.t.
- endif
- enddo
- hf=time()
- @ 4,2 say "cantidad de soluciones" +str (solu)
- @ 5,2 say "menor valor" + str(n)
- ?"tiempo de inicio: ",hi
- ?"tiempo de finalizaicon: ",hf
- wait
- *!* alguno resultados
- *!* soluciones - menor valor de 'n'
- *!* 50 360
- *!* 90 840
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* n=8000000
- hi=time()
- do while !salir
- n=n+1
- ini = n+1
- fin = 2*n
- solu=0
- for x=ini to fin
- y=(1/((1/n)-(1/x)))
- if (y-int(y))=0
- solu=solu+1
- endif
- endfor
- if (solu >= cant)
- salir=.t.
- endif
- enddo
- hf=time()
- @ 4,2 say "cantidad de soluciones" +str (solu)
- @ 5,2 say "menor valor" + str(n)
- ?"tiempo de inicio: ",hi
- ?"tiempo de finalizaicon: ",hf
- wait
- *!* alguno resultados
- *!* soluciones - menor valor de 'n'
- *!* 50 360
- *!* 90 840
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* alguno resultados
- *!* soluciones - menor valor de 'n'
- *!* 50 360
- *!* 90 840
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* soluciones - menor valor de 'n'
- *!* 50 360
- *!* 90 840
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 50 360
- *!* 90 840
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 90 840
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 113 1260
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 120 1680
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 150 2520
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 200 9240
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* el problema de si es long o integer, o double, en vfp
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* los valores Numeric Enteros o fracciones son de 8 bytes (64 bits) en la memoria;
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
- *!* convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de datos
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement