elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  algoritmo para combinar parejas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: algoritmo para combinar parejas  (Leído 3,923 veces)
diego_lp

Desconectado Desconectado

Mensajes: 180


In a free world, who needs gates and windows?


Ver Perfil WWW
algoritmo para combinar parejas
« en: 7 Abril 2011, 20:50 pm »

Hola a todos,
estoy desde hacer ya como 3 horas tratando de escribir un código que me combine un par de números y no logro hacerlo de forma correcta, ya eh probado con arrays, matrices, no logro hacer que funcione correctamente.
El problema que quiero resolver es el siguiente:
Tengo 5 equipos, y quiero armar un fixture de todos contra todos, al ser 5 equipos son 2 partidos por fase y uno queda libre, y cada equipo no puede jugar mas de un partido por fase.
Espero que alguien me pueda dar una mano.
Muchas gracias.
Saludos.


En línea

Los programadores hicimos un pacto con Dios, él no hace sistemas y nosotros no hacemos milagros!
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: algoritmo para combinar parejas
« Respuesta #1 en: 8 Abril 2011, 00:46 am »

Bueno yo no entendi bien q quieres hacer, porq primero dices "todos contra todos" y despues decis q son 2 partidos por fase y uno queda libre, y entonces seria como una copa ahi pero en el todos contra todos no.


En línea

seba123neo


Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: algoritmo para combinar parejas
« Respuesta #2 en: 8 Abril 2011, 02:26 am »

Hola, fijate si este ejemplo te ayuda en algo...

Código
  1. Imports System.Text
  2.  
  3. Public Class Form1
  4.  
  5.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.        Dim vCantidadEquipos As Integer = 5
  7.  
  8.        Dim vTotalFechas As Integer = vCantidadEquipos - 1
  9.        Dim vPartidosPorFecha As Integer = vCantidadEquipos \ 2
  10.  
  11.        Dim vFechas As String()() = New String(vTotalFechas - 1)() {}
  12.  
  13.        For vFecha As Integer = 0 To vTotalFechas - 1
  14.            vFechas(vFecha) = New String(vPartidosPorFecha - 1) {}
  15.        Next
  16.  
  17.        For vFecha As Integer = 0 To vTotalFechas - 1
  18.            For vPartido As Integer = 0 To vPartidosPorFecha - 1
  19.                Dim vLocal As Integer = (vFecha + vPartido) Mod (vCantidadEquipos - 1)
  20.                Dim vVisitante As Integer = (vCantidadEquipos - 1 - vPartido + vFecha) Mod (vCantidadEquipos - 1)
  21.  
  22.                If vPartido = 0 Then
  23.                    vVisitante = vCantidadEquipos - 1
  24.                End If
  25.  
  26.                vFechas(vFecha)(vPartido) = (vLocal + 1) & " v " & (vVisitante + 1)
  27.            Next
  28.        Next
  29.  
  30.        Dim vLista As New StringBuilder()
  31.  
  32.        For i As Integer = 0 To vFechas.Length - 1
  33.  
  34.            vLista.Length = 0
  35.            Debug.WriteLine("Fecha: " & (i + 1))
  36.            Array.Sort(vFechas(i))
  37.  
  38.            For outer As Integer = 0 To vPartidosPorFecha - 1
  39.                vLista.Append(vFechas(i)(outer) & ", ")
  40.            Next
  41.  
  42.            vLista.Length = vLista.Length - 2
  43.            Debug.WriteLine(vLista.ToString())
  44.            Debug.WriteLine("")
  45.        Next
  46.    End Sub
  47. End Class
  48.  

saludos.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Crecen las redes sociales exclusivas para parejas infieles
Noticias
wolfbcn 0 2,871 Último mensaje 5 Marzo 2011, 13:35 pm
por wolfbcn
Las mujeres fingen en la cama para 'retener' a sus parejas
Foro Libre
wolfbcn 0 1,785 Último mensaje 8 Enero 2012, 14:20 pm
por wolfbcn
Una aplicación sólo para parejas
Noticias
wolfbcn 0 1,637 Último mensaje 29 Marzo 2012, 02:35 am
por wolfbcn
Avocado, aplicación colaborativa para parejas
Noticias
wolfbcn 0 1,176 Último mensaje 19 Abril 2013, 17:23 pm
por wolfbcn
Analistas de la NSA usaban recursos de la compañía para espiar a sus parejas
Noticias
wolfbcn 0 1,854 Último mensaje 29 Septiembre 2013, 22:56 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines