Advertisement
Guest User

Untitled

a guest
May 14th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CLEAR
  2.  
  3. PUBLIC solu, cant
  4. PUBLIC y, n, ini, fin
  5. PUBLIC salir as Boolean
  6. cant=0
  7. solu=0
  8. n=0
  9. salir = .f.
  10.  
  11. @ 2,2 say "ingrese la cantidad de soluciones " get cant PICT "99999999"
  12. read
  13. *n=8000000
  14. hi=time()
  15. do while !salir
  16. n=n+1
  17. ini = n+1
  18. fin = 2*n
  19. solu=0
  20.     for x=ini to fin
  21.         y=(1/((1/n)-(1/x)))
  22.         if (y-int(y))=0
  23.             solu=solu+1
  24.         endif
  25.     endfor
  26.     if (solu >= cant)
  27.             salir=.t.
  28.     endif
  29. enddo
  30. hf=time()
  31.  @ 4,2 say "cantidad de soluciones" +str (solu)
  32.  @ 5,2 say  "menor valor" + str(n)
  33. ?"tiempo de inicio: ",hi
  34. ?"tiempo de finalizaicon: ",hf
  35.  
  36. wait
  37. **   alguno resultados
  38. ** soluciones - menor valor de 'n'
  39. **      50      360
  40. **      90      840
  41. **      113     1260
  42. **      120     1680
  43. **      150     2520
  44. **      200     9240
  45.  
  46. ** el problema de si es long o integer, o double, en vfp
  47. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  48. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  49.  
  50. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  51. *n=8000000
  52. hi=time()
  53. do while !salir
  54. n=n+1
  55. ini = n+1
  56. fin = 2*n
  57. solu=0
  58.     for x=ini to fin
  59.         y=(1/((1/n)-(1/x)))
  60.         if (y-int(y))=0
  61.             solu=solu+1
  62.         endif
  63.     endfor
  64.     if (solu >= cant)
  65.             salir=.t.
  66.     endif
  67. enddo
  68. hf=time()
  69.  @ 4,2 say "cantidad de soluciones" +str (solu)
  70.  @ 5,2 say  "menor valor" + str(n)
  71. ?"tiempo de inicio: ",hi
  72. ?"tiempo de finalizaicon: ",hf
  73.  
  74. wait
  75. **   alguno resultados
  76. ** soluciones - menor valor de 'n'
  77. **      50      360
  78. **      90      840
  79. **      113     1260
  80. **      120     1680
  81. **      150     2520
  82. **      200     9240
  83.  
  84. ** el problema de si es long o integer, o double, en vfp
  85. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  86. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  87.  
  88. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  89. **   alguno resultados
  90. ** soluciones - menor valor de 'n'
  91. **      50      360
  92. **      90      840
  93. **      113     1260
  94. **      120     1680
  95. **      150     2520
  96. **      200     9240
  97.  
  98. ** el problema de si es long o integer, o double, en vfp
  99. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  100. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  101.  
  102. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  103. ** soluciones - menor valor de 'n'
  104. **      50      360
  105. **      90      840
  106. **      113     1260
  107. **      120     1680
  108. **      150     2520
  109. **      200     9240
  110.  
  111. ** el problema de si es long o integer, o double, en vfp
  112. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  113. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  114.  
  115. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  116. **      50      360
  117. **      90      840
  118. **      113     1260
  119. **      120     1680
  120. **      150     2520
  121. **      200     9240
  122.  
  123. ** el problema de si es long o integer, o double, en vfp
  124. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  125. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  126.  
  127. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  128. **      90      840
  129. **      113     1260
  130. **      120     1680
  131. **      150     2520
  132. **      200     9240
  133.  
  134. ** el problema de si es long o integer, o double, en vfp
  135. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  136. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  137.  
  138. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  139. **      113     1260
  140. **      120     1680
  141. **      150     2520
  142. **      200     9240
  143.  
  144. ** el problema de si es long o integer, o double, en vfp
  145. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  146. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  147.  
  148. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  149. **      120     1680
  150. **      150     2520
  151. **      200     9240
  152.  
  153. ** el problema de si es long o integer, o double, en vfp
  154. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  155. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  156.  
  157. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  158. **      150     2520
  159. **      200     9240
  160.  
  161. ** el problema de si es long o integer, o double, en vfp
  162. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  163. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  164.  
  165. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  166. **      200     9240
  167. ** el problema de si es long o integer, o double, en vfp
  168. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  169. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  170.  
  171. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  172. ** el problema de si es long o integer, o double, en vfp
  173. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  174. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  175.  
  176. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  177. ** los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
  178. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  179.  
  180. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  181. ** 1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20
  182. ** convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
  183. ** 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