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