FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Ya tienes la respuesta, llena la matriz con los números por parejas. Digamos que llenas la matriz dentro de una sentencia FOR que tendrá n / 2 ciclos, donde n es el número de elementos de la matriz que siempre deberá ser par.
Tomando tu ejemplo la matriz quedaría de esta forma: 1 1 2 2 3 3 Ahora los mezclas en otro ciclo con x repeticiones. Aquí la idea es tomar dos elementos de la matriz de forma aleatoria digamos [1,1] y [2,2], los intercambias quedando así. 3 1 2 2 1 3 Si esto lo repites muchas veces todos los elementos quedarán en posiciones aleatorias (revueltos). Saludos |
#2
|
|||
|
|||
Hasta el momento lo que tengo es esto codigo pero no logro eso siempre me puede generar o tres 1 o tres 0 o cuatros 1 o 0...
|
#3
|
||||
|
||||
Hola Jusar.
Primero que nada felicito a Hector por su poder de interpretación Entonces, más o menos sería: Código:
const MAXFIL = 2; const MAXCOL = MAXFIL+1; int Matriz[MAXFIL][MAXCOL]; void Cargar(int (*m)[MAXCOL]) { for(int f=0; f < MAXFIL; f++) for(int c=0; c < MAXCOL; c++) { m[c][f] = c+1; m[c][f+1] = c+2; } } void Mezclar(int (*m)[MAXCOL]) { TSmallPoint a,b; int tmp; for (int i=0; i < 100; i++) { a.x = random(MAXCOL); b.x = random(MAXCOL); a.y = random(MAXFIL); b.y = random(MAXFIL); tmp = Matriz[a.x][a.y]; m[a.x][a.y] = m[b.x][b.y]; m[b.x][b.y] = tmp; } } void Mostrar(TMemo *M) { AnsiString s; for(int f=0; f < MAXFIL; f++) { s = ""; for(int c=0; c < MAXCOL; c++) s = s + IntToStr(Matriz[c][f])+ ' '; M->Lines->Add(s); } } void __fastcall TForm1::FormCreate(TObject *Sender) { Cargar(Matriz); Memo1->Clear(); Memo1->ScrollBars = ssVertical; Memo1->Lines->Add("Estado inicial"); Memo1->Lines->Add("-----------------"); Mostrar(Memo1); } void __fastcall TForm1::btnShowClick(TObject *Sender) { Mezclar(Matriz); Memo1->Lines->Add("-----------------"); Mostrar(Memo1); }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
clase estatica D7 | FelixInasa | OOP | 13 | 17-02-2011 10:48:11 |
fuzzy implementado en delphi | ljrg | Varios | 4 | 14-10-2010 15:10:57 |
variable estatica no muere con el form !!!!!!!!!!! | david_uh | Varios | 5 | 28-07-2007 00:51:14 |
.NET es Java pero bien diseñado y mejor implementado | roman | Noticias | 14 | 22-02-2007 20:43:08 |
Algoritmo Huffman Implementado En Delphi | vespita | Internet | 8 | 01-06-2006 18:10:54 |
|