Sacar Mínimo Común Múltiplo En VB6  | | 
19-05-2008, 21:46
| | Pendej@
 | | Registrado: Feb 2008
Posts: 114
FoquiMoney: 842 Gracias dadas: 1
Agradecido 8 vez en 8 posts
| | | Sacar Mínimo Común Múltiplo En VB6 | | Los siguientes usuarios dijeron Se Agradece a Deb21 por este post util: | | 
19-05-2008, 22:26
| | Animal
 | | Registrado: Oct 2005
Posts: 2.219
FoquiMoney: 3.107 Gracias dadas: 2
Agradecido 6 vez en 6 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 Sabes lo que es el mínimo común multiplo? | | Los siguientes usuarios dijeron Se Agradece a Ribosoma por este post util: | | 
19-05-2008, 22:41
| | Pendej@
 | | Registrado: Feb 2008
Posts: 114
FoquiMoney: 842 Gracias dadas: 1
Agradecido 8 vez en 8 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 Originalmente publicado por Ribosoma Sabes lo que es el mínimo común multiplo? obio po perrin | | Los siguientes usuarios dijeron Se Agradece a Deb21 por este post util: | | 
20-05-2008, 09:25
| | Pajer@
 | | Registrado: Jun 2005
Posts: 368
FoquiMoney: 644 Gracias dadas: 1
Agradecido 12 vez en 12 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 entonces como mierda no cachas como sacarlo..... | | Los siguientes usuarios dijeron Se Agradece a Raton por este post util: | | 
20-05-2008, 09:41
|  | Babos@
 | | Registrado: Dec 2006
Posts: 1.246
FoquiMoney: 1.265 Gracias dadas: 7
Agradecido 2 vez en 2 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 | | Los siguientes usuarios dijeron Se Agradece a DeadSimon por este post util: | | 
20-05-2008, 09:42
|  | Vac@
 | | Registrado: Aug 2006
Posts: 1.802
FoquiMoney: 1.919 Gracias dadas: 28
Agradecido 5 vez en 5 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 | | Los siguientes usuarios dijeron Se Agradece a Blat por este post util: | | 
20-05-2008, 10:08
|  | Babos@
 | | Registrado: Oct 2006
Posts: 1.299
FoquiMoney: 3.354 Gracias dadas: 8
Agradecido 1 vez en 1 post
| | | Re: Sacar Mínimo Común Múltiplo En VB6 | | Los siguientes usuarios dijeron Se Agradece a sms1976 por este post util: | | 
20-05-2008, 18:01
| | Pendej@
 | | Registrado: Feb 2008
Posts: 114
FoquiMoney: 842 Gracias dadas: 1
Agradecido 8 vez en 8 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 pff montón de weas.. no se puede pedir ayuda aquí
en fin... estoy segurisimo q el 90% habla por hablar y no caxa ni una wn | | Los siguientes usuarios dijeron Se Agradece a Deb21 por este post util: | | 
20-05-2008, 20:53
| | Pajer@
 | | Registrado: Jun 2005
Posts: 368
FoquiMoney: 644 Gracias dadas: 1
Agradecido 12 vez en 12 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 pero viejo.....
mira, por el simple hecho de saber como sacar el minimo comun multiplo YA CONOCES EL ALGORITMO...
un algoritmo no es mas que la "receta" que usas para resolver un problema...
ahora si no sabes como sacar el minimo comun multiplo no me explico como estas "haciendo" una tarea de programacion (me imagino que habras terminado 7o basico). | | Los siguientes usuarios dijeron Se Agradece a Raton por este post util: | | 
20-05-2008, 21:22
| | Pendej@
 | | Registrado: Feb 2008
Posts: 114
FoquiMoney: 842 Gracias dadas: 1
Agradecido 8 vez en 8 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 Originalmente publicado por Raton pero viejo.....
mira, por el simple hecho de saber como sacar el minimo comun multiplo YA CONOCES EL ALGORITMO...
un algoritmo no es mas que la "receta" que usas para resolver un problema...
ahora si no sabes como sacar el minimo comun multiplo no me explico como estas "haciendo" una tarea de programacion (me imagino que habras terminado 7o basico). buta wn.... pa sacar el mcm teni q encontrar un numero q sea divisible por los dos números y el resto te de cero.... como de 3 y 4.. 12.....
nadie e tan weon po así q no me habli weas.
pero como interpretar eso en un código de vb
cambia la cosa po
se me ocurrio algo como
dim n1, n2, cont as double
cont=1
n1=val(text1.text)
n2=val(text2.text)
do while (n1 mod cont<>0 and n2 mod cont<>0)
cont=cont+1
loop
if (n1 mod cont=0 and n2 mod cont=0) then
msgbox"MCM" & cont
end if
pero no resulta U,U | | Los siguientes usuarios dijeron Se Agradece a Deb21 por este post util: | | 
20-05-2008, 21:33
| | Manfinfler@
 | | Registrado: Nov 2004
Posts: 522
FoquiMoney: 2.298 Gracias dadas: 33
Agradecido 2 vez en 2 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 hace una buskeda con los numeros primos primero, despues te meti a las demas weas, es como lo mas obvio (suponiendo que cachay como sacar los primos) | | Los siguientes usuarios dijeron Se Agradece a DANCERMACHINE por este post util: | | 
20-05-2008, 21:36
|  | Gil
 | | Registrado: Mar 2008
Posts: 178
FoquiMoney: 1.291 Gracias dadas: 0
Agradecido 1 vez en 1 post
| | | Re: Sacar Mínimo Común Múltiplo En VB6 MMMMMM no me queda mas q pasar por foquimoney por q no se q es VB6
Editado por raptorz en 21-05-2008 a las 16:28.
| | Los siguientes usuarios dijeron Se Agradece a raptorz por este post util: | | 
20-05-2008, 21:42
| | Pendej@
 | | Registrado: Feb 2008
Posts: 114
FoquiMoney: 842 Gracias dadas: 1
Agradecido 8 vez en 8 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 listo ya lo ise de puro pikao q me dejaron los washos qls
Private Sub Command1_Click()
Dim n1, n2, cont As Double
cont = 2
n1 = Val(InputBox("inbgrese otro valor"))
n2 = Val(InputBox("ingrese otro"))
Do While (cont Mod n1 <> 0) Or (cont Mod n2 <> 0)
cont = cont + 1
Loop
If (cont Mod n1 = 0) And (cont Mod n2 = 0) Then
MsgBox "MCM " & cont
End If
End Sub
faltaba modificar algunas cosas no mas del q ise antes Deb21 agrego info 1 minutos y 21 segundos despues... Originalmente publicado por raptorz wn tienes q saber los numeros primos ( no va a faltar el AWEONAO q piense en q los numeros tienen familia) de ahi puedes hacer una tabla
Ej el minimo comun multiplo entre 10, 7 y el 5
veras el primer numero primo a utilizar seria el 2 ya que entre estos 3 numeros hay uno q es divisible por 2 (el 10)
tonces encontramos un numero EL 2,
ahora nos quedan el 5, 7 y otro 5 (recuerda q el 10 fue dividido en 2) el numero primo q sigue despues del 2 es el 5 ¿pero WN tu crees q nos sirve el 5 , alguno d estos 3 numeroses divisible por 5? espero que me digai q si Ctmre porque tenemos dos 5 o sea encontramos otro numero mas, antes habiamos encontrado el 2 ahora el 5.
Entonces teniamos el 5, 7 y otro 5 pero los numeros al dividirlos no quedarian asi 1, 7 y otro 1 cuando los numeros llegan a 1 ya no se toman en cuenta asi q nos queda solo el 7, el numero primo q sigue al 5 es el 7, o sea 7 q nos quedaba lo dividimos por el 7 primo y nos da 1, asi ya eliminamos todos los numeros.
Ahora viene lo importante po wn tenemos otros numeros el 2, el 5 y el 7 ¿que se hace ahora? estos numeros los multiplicas entre si en cualquier orden lo cual nos da el numero 70 este el el numero q buscas.
Si me equivoque en alguna wea acepto cualquier tipo de xuxadas e improperios..
Si no entendiste matate y esta wea solo lo hice por el foquimoney.  tonto weon
Editado por Deb21 en 20-05-2008 a las 21:43.
Razón: Doblepost (¡AutoMerge CocaCola ok toffe and butter System!)
| | Los siguientes usuarios dijeron Se Agradece a Deb21 por este post util: | | 
26-05-2008, 19:03
|  | Babos@
 | | Registrado: Nov 2006
Posts: 1.415
FoquiMoney: 1.499 Gracias dadas: 4
Agradecido 24 vez en 22 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 MÃ*nimo común múltiplo - Wikipedia, la enciclopedia libre
Conociendo el máximo común divisor de dos números, se puede calcular el mínimo común múltiplo de ellos, que será el producto de ambos dividido entre su máximo común divisor.
hay caleta de formas de hacerlo, los algoritmos estan esplicados paso a paso en internet, solo teni que aprender a programar, si ese es el problema estudia nomas =) | | Los siguientes usuarios dijeron Se Agradece a Wtfbenja por este post util: | | 
27-05-2008, 19:37
| | Pendej@
 | | Registrado: Feb 2008
Posts: 114
FoquiMoney: 842 Gracias dadas: 1
Agradecido 8 vez en 8 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 Originalmente publicado por Wtfbenja MÃ*nimo común múltiplo - Wikipedia, la enciclopedia libre
Conociendo el máximo común divisor de dos números, se puede calcular el mínimo común múltiplo de ellos, que será el producto de ambos dividido entre su máximo común divisor.
hay caleta de formas de hacerlo, los algoritmos estan esplicados paso a paso en internet, solo teni que aprender a programar, si ese es el problema estudia nomas =) mira arriba de tu post weon ya yo lo habia hecho..... leer primero por dios ¬¬ | | Los siguientes usuarios dijeron Se Agradece a Deb21 por este post util: | | 
27-05-2008, 21:13
| | Pajer@
 | | Registrado: Jun 2005
Posts: 368
FoquiMoney: 644 Gracias dadas: 1
Agradecido 12 vez en 12 posts
| | | Re: Sacar Mínimo Común Múltiplo En VB6 Originalmente publicado por Deb21 mira arriba de tu post weon ya yo lo habia hecho..... leer primero por dios ¬¬ si te refieres a este codigo como tu solucion..... Originalmente publicado por Deb21 listo ya lo ise de puro pikao q me dejaron los washos qls
Private Sub Command1_Click()
Dim n1, n2, cont As Double
cont = 2
n1 = Val(InputBox("inbgrese otro valor"))
n2 = Val(InputBox("ingrese otro"))
Do While (cont Mod n1 <> 0) Or (cont Mod n2 <> 0)
cont = cont + 1
Loop
If (cont Mod n1 = 0) And (cont Mod n2 = 0) Then
MsgBox "MCM " & cont
End If
End Sub
faltaba modificar algunas cosas no mas del q ise antes te comento entonces que no seas tan arrogante pk tu solucion esta un tanto MALA (por no decir que no funciona la wea penca).
pk???
toma el siguiente caso de entrada:
n1 = 7
n2 = 21
cuando cont valga 7, entonces la expresion
(cont Mod n1 <> 0) Or (cont Mod n2 <> 0) es true, por lo que el ciclo termina, entonces la expresion final
If (cont Mod n1 = 0) And (cont Mod n2 = 0) Then
MsgBox "MCM " & cont
no entra al if, pero el programa termina de igual manera, por lo que tu codigo no sirve....
ahora si en la condicion del dowhile cambias el or por el and, ningun problema...
pero no seas tan arrogante, pk si lo sigues siendo nadie te va a ayudar en tus pendejadas... | | Los siguientes usuarios dijeron Se Agradece a Raton por este post util: | |  | | |
Personas en esta discusión: 1 (0 usuario(s) y 1 invitado(s)) | | | |  | |  | |  |