Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Algoritmo De Cuadrados Medios
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Algoritmo De Cuadrados Medios 
 
Que tal amigos gamberos como están espero no interrumpir y gracias nuevamente por leer mis mensajes, estoy haciendo un programa que dejaron en la escuela y ya no se por donde mas buscarle se trata de el Algoritmo de Cuadrados Medios que se llevan por lo general en la Materia de Simulación, les dejo el codigo para que lo analicen y si pueden (ojala que si) lo corrijan

Si hace lo que dice el profesor
si la longitud de la semilla es par todo va bien pero cuando no arroja los datos erroneos

 si_es_par


si no es par el nuevo numero obtenido ...
 si_no_es_par
 



 
skhaliburg - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
Que tal este prog!

' gambas module file

PUBLIC SUB Main()

  DIM semilla AS String
  DIM D AS Integer
  DIM aux AS Integer
  DIM N AS Integer, iCount AS Integer
  DIM x AS String
  DIM y AS String
  
  semilla = Application.Args[1]
  N = Val(Application.Args[2])
  D = Len(semilla)
  
  FOR iCount = 1 TO N
    y = Format$(Val(semilla) ^ 2, "#")
    
    aux = Len(y)
    IF aux < D THEN
      x = String$(D - aux, "0") & y
    ELSE IF D MOD 2 THEN ' D impar
      IF NOT (aux MOD 2) THEN y = "0" & y ' Len(y) no es impar, hacer impar
      x = Mid$(y, (Len(y) - D) / 2 + 1, D)
    ELSE ' D par
      IF aux MOD 2 THEN y = "0" & y ' Len(y) es impar, hacer par
      x = Mid$(y, (Len(y) - D) / 2 + 1, D)
    ENDIF
    
    semilla = x
    PRINT "y[" & iCount & "]= " & y & " ";
    PRINT "x[" & iCount & "]= " & x & " ";
    PRINT "r[" & iCount & "]= " & "0." & x
  NEXT

END

 


Cuya salida me da:

Citar:

$ ./cmedios.gambas 5735 4
y[1]= 32890225 x[1]= 8902 r[1]= 0.8902
y[2]= 79245604 x[2]= 2456 r[2]= 0.2456
y[3]= 06031936 x[3]= 0319 r[3]= 0.0319
y[4]= 101761 x[4]= 0176 r[4]= 0.0176



Saludos!
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
Gracias ahorita lo checo razaAztka, te comento despues!!!
 



 
skhaliburg - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
Oye  razaAztk me da error en la linea que tiene el codigo:

"N = Val(Application.Args[2])"

copie tu codigo a un proyecto nuevo no se ue hice mal

gracias!!!
 



 
skhaliburg - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
¿te da error cuando lo ejecutas, no???

Creo que se debe, a que el programa lo que pide es los argumentos que le das en la terminal, por ejemplo

$./programa.gambas argumento1 argumento2


El programa utilizara "argumento1" y "arguemnto2" para operar con ellos.

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
Este es el error que me marca
 pantallazo_1299968319_851497

para empezar no se como ejecutar hago lo acostumbrado ue es F5 y es  donde me marca el error!!!

gracias julio yy razaAztk
 



 
skhaliburg - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
La aplicación que hice es desde línea de comandos, primero tienes que crear el ejecutable y desde el directorio donde se encuentre, ejecutas (como lo mencionó jsbsan) el programa pasandole dos argumentos, el primero es la semilla y el segundo el total de iteraciones.

Citar:

$ ./cmedios.gambas 5735 4


Nota: El nombre del programa depende del que tu hayas puesto, en mi caso es "cmedios.gambas"

O también puedes poner semilla = "5735" y N = 4 en vez de los valores Application.Args

Saludos!
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Algoritmo De Cuadrados Medios 
 
muchas gracias ahorita lo checo
 



 
skhaliburg - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Algoritmo A * (A Estrella) jsbsan Aplicaciones/Fragmentos de Código 3 Domingo, 16 Septiembre 2012, 00:27 Ver último mensaje
willicab
No hay nuevos mensajes Algoritmo Para Hacer Zoom Dinámico Con La... Alaplancha Aplicaciones/Fragmentos de Código 5 Miercoles, 26 Diciembre 2012, 04:05 Ver último mensaje
jousseph
No hay nuevos mensajes Conecta 4: Juego De Inteligencia Artificia... jsbsan Aplicaciones/Fragmentos de Código 1 Jueves, 17 Octobre 2013, 17:34 Ver último mensaje
jsbsan
No hay nuevos mensajes Cuadrados Espaciados Concéntricos Shell General 4 Jueves, 10 Marzo 2016, 14:20 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron