3. Reto - Descubre el valor oculto
Páginas: [1]   Ir Abajo
« anterior próximo »

Reto - Descubre el valor oculto

  • 4 Respuestas
  • 5195 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Yuki

  • *
  • Underc0der
  • Mensajes: 66
  • Actividad:
    0%
  • Reputación 5
    • Ver Perfil

Reto - Descubre el valor oculto

  • en: Julio 01, 2017, 08:07:03 am
El día de ayer un amigo me enseñó una muy interesante cuestión matemática. El reto que les propongo es escribir y postear un código que les resuelva este acertijo. Pueden usar el lenguaje que quieran.


¡Suerte!
« Última modificación: Julio 01, 2017, 08:31:36 am por Yuki »
En línea

Desconectado adragon

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email

Re:Reto - Descubre el valor oculto

  • en: Julio 01, 2017, 05:01:23 pm
A=2; B=3; C=6; D=8
ABCD = 2368
En línea

Desconectado Yuki

  • *
  • Underc0der
  • Mensajes: 66
  • Actividad:
    0%
  • Reputación 5
    • Ver Perfil

Re:Reto - Descubre el valor oculto

  • en: Julio 01, 2017, 11:53:02 pm
Cita de: adragon en Julio 01, 2017, 05:01:23 pm
A=2; B=3; C=6; D=8
ABCD = 2368

Es correcto, pero el chiste es programar  :'(
En línea

Desconectado BlackBlex

  • *
  • Underc0der
  • Mensajes: 49
  • Actividad:
    0%
  • Reputación 4
  • Skype: blackblex
  • Twitter: blackblex
    • Ver Perfil

Re:Reto - Descubre el valor oculto

  • en: Julio 03, 2017, 01:39:52 pm
Se que esta muy pegado al acertijo y no es dinámico, pero es la única forma donde encontré como resolverlo sin meterme en muchos líos.  ;D

Amo los juegos del Profesor Layton

Cramel:
Código: Text
  1. Var cmd:Consola
  2.  
  3.     Crear cmd
  4.     Var a, b, c, d:Entero
  5.     Const fijo = 4
  6.     Var i, j:Entero
  7.  
  8.     i = 1
  9.     j = 1
  10.  
  11.     Repetir
  12.         a = i
  13.         cmd.escribirLinea("a tomo el valor de: " + EntCad(a))
  14.         d = a * fijo
  15.         cmd.escribirLinea("d tomo el valor de: " + EntCad(d))
  16.         Repetir
  17.             c = j
  18.             cmd.escribirLinea("c tomo el valor de: " + EntCad(c))
  19.             Si ( (a+c) = d ) Entonces
  20.                 Salir Repetir
  21.             FinSi
  22.             j = j + 1
  23.         MientrasQue j <= d
  24.         b = (c/2)
  25.         cmd.escribirLinea("b tomo el valor de: " + EntCad(b))
  26.  
  27.         Si ( ((a*b) = c) And ((c-b) = b) ) Entonces
  28.             Salir Repetir
  29.         FinSi
  30.  
  31.         cmd.escribirLinea("De nuevo" + CRLF)
  32.         i = i + 1
  33.     MientrasQue i <= 9
  34.    
  35.     cmd.establecerTitulo("Resultado final")
  36.     cmd.escribirLinea("")
  37.     cmd.escribirLinea("a: " + EntCad(a) + CRLF + "b: " + EntCad(b) + CRLF + "c: " + EntCad(c) + CRLF + "d: " + EntCad(d))
  38.     cmd.pausarConsola()
  39. Destruir cmd
En línea

Desconectado rush

  • *
  • Underc0der
  • Mensajes: 382
  • Actividad:
    0%
  • Reputación 7
  • Skype: iruxh1773
    • Ver Perfil

Re:Reto - Descubre el valor oculto

  • en: Julio 03, 2017, 06:41:53 pm
Hola, creo que primero tuve que despejar unas ecuaciones jajaja, aunque creo que se puede resolver por álgebra lineal con alguna matriz, pero no me quise meter tanto, esta es mi solución aunque creo que es un poco mala ya que no es dinámica y peor aun mi while jaja.

Código: C
  1. int a=0, b=0, c=0, d=0, i=0;
  2.             int aux;
  3.             bool case1= false, case2=false, case3=false, case4=false;
  4.             Console.WriteLine("antes while");
  5.             while(1 > 0)
  6.             {
  7.                 i++;
  8.                 a = i;
  9.                 d = 4 * a;
  10.                 c = d - a;
  11.                 b = c / a;
  12.                 aux = a + c;
  13.                 if(aux == d)
  14.                 {
  15.                     case1 = true;
  16.                 }
  17.                 aux = a * b;
  18.                 if(aux == c)
  19.                 {
  20.                     case2 = true;
  21.                 }
  22.                 aux = c - b;
  23.                 if (aux == b)
  24.                 {
  25.                     case3 = true;
  26.                 }
  27.                 aux = a * 4;
  28.                 if(aux == d)
  29.                 {
  30.                     case4 = true;
  31.                 }
  32.  
  33.                 if(case1 && case2 && case3 && case4)
  34.                 {
  35.                     break;
  36.                 }
  37.             }
  38.             Console.WriteLine("Iteraciones: " + i);
  39.             Console.Write("A: " + a);
  40.             Console.Write("B: " + b);
  41.             Console.Write("C: " + c);
  42.             Console.Write("D: " + d);
  43.             Console.ReadKey();
« Última modificación: Julio 03, 2017, 07:38:43 pm por rush »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

Reto "Crackea el Menú"

Iniciado por Zekro

 Respuestas: 2
Vistas: 3447 		Último mensaje Noviembre 29, 2012, 05:57:24 pm
por Zekro
Un Crackme que hice hace tiempo, haber si alguien lo resuelve [RETO]

Iniciado por LauBuru

 Respuestas: 2
Vistas: 5317 		Último mensaje Abril 04, 2016, 12:07:45 pm
por rush
[RETO] Wargame Lógica-Cifrado - Nivel Medio

Iniciado por fermino

 Respuestas: 9
Vistas: 7783 		Último mensaje Septiembre 28, 2017, 11:05:07 am
por xyz
[RETO] Wargame Cifrado - Nivel facil/medio

Iniciado por fermino

 Respuestas: 12
Vistas: 6411 		Último mensaje Septiembre 25, 2014, 06:25:33 pm
por fermino
[RETO] Desofusca mi codigo y dime por que siempre gano ;)

Iniciado por 79137913

 Respuestas: 9
Vistas: 6756 		Último mensaje Febrero 15, 2013, 07:05:19 pm
por Alex