Bloques De Numeros Consecutivos
 

Necesito Un Algoritmo Para Encontrar Todos Los Elementos Consecutivos De Una Matriz Que Tengan El Mismo Numero. Ej
1 2 5 6 7 8
4 2 2 2 3 1
3 2 2 1 1 3
5 4 3 2 1 3

Al Seleccionar (1,0) Tendria Que Encontrar
(1,1)(1,2)(2,1)(2,2)(3,2)
Gracias.

¿Estas intentando hacer el buscaminas? :D

De todas formas te digo que este es un problema clásico de recursividad. Intenta crear una función recursiva, y si no puedes, nos cuentas donde te quedaste atascado.

algoritmo
 

jaja! no. En realidad estoy haciendo el SameGame (http://www.oopixel.com/samegame/) Lo que estoy haciendo es comparando el elemento seleccionado con los vecinos y guardando las coincidencias en un vector, pero no logro que termine el algoritmo (podria encontrar siempre nuevos elementos coincidentes). si me pueden dar una idea de como resolverlo les agradezco. quiza me estoy complicando y podria ser mas simple. gracias.

Sale
 

Ok. Me Salio. Las Cosas Que Uno Puede Lograr Cuando Se Pone A Pensar Un Poco No?

y, ¿no nos merecemos conocer la respuesta? :rolleyes:

// Saludos

Respuesta
 

CLARO Q SI. CUANDO TERMINE EL JUEGUITO LO MANDO COMPLETO PARA Q SE ENTIENDA MEJOR.

Código Delphi [-]
void TForm1::calculo_grupo(){
    if (vecinos_examinados==0) {
        grupo->Cols[0]->Clear();
        grupo->Cols[1]->Clear();
        grupo->Cells[0][0]=IntToStr(X);
        grupo->Cells[1][0]=IntToStr(Y);
    }
    if (X+1<=10)
    if (matriz_color->Cells[X][Y]==matriz_color->Cells[X+1][Y]) {
        bool repetido=false;
        for (int i=0; i <= 20; i++) {
            if ( (grupo->Cells[0][i]==IntToStr(X+1)) &&
                 (grupo->Cells[1][i]==IntToStr(Y)) ){
                        repetido=true;
            }
        }
        if (repetido==false) {
            cant_vecinos++;
            grupo->Cells[0][cant_vecinos]=IntToStr(X+1);
            grupo->Cells[1][cant_vecinos]=IntToStr(Y);
        }
    }
    if (X-1>=0)
    if (matriz_color->Cells[X][Y]==matriz_color->Cells[X-1][Y]) {
        bool repetido=false;
        for (int i=0; i <= 20; i++) {
            if ( (grupo->Cells[0][i]==IntToStr(X-1)) &&
                 (grupo->Cells[1][i]==IntToStr(Y)) ){
                        repetido=true;
            }
        }
        if (repetido==false) {
            cant_vecinos++;
            grupo->Cells[0][cant_vecinos]=IntToStr(X-1);
            grupo->Cells[1][cant_vecinos]=IntToStr(Y);
        }
    }
    if (Y+1<=10)
    if (matriz_color->Cells[X][Y]==matriz_color->Cells[X][Y+1]) {
        bool repetido=false;
        for (int i=0; i <= 20; i++) {
            if ( (grupo->Cells[0][i]==IntToStr(X)) &&
                 (grupo->Cells[1][i]==IntToStr(Y+1)) ){
                        repetido=true;
            }
        }
        if (repetido==false) {
            cant_vecinos++;
            grupo->Cells[0][cant_vecinos]=IntToStr(X);
            grupo->Cells[1][cant_vecinos]=IntToStr(Y+1);
        }
    }
    if (Y-1>=0)
    if (matriz_color->Cells[X][Y]==matriz_color->Cells[X][Y-1]) {
        bool repetido=false;
        for (int i=0; i <= 20; i++) {
            if ( (grupo->Cells[0][i]==IntToStr(X)) &&
                 (grupo->Cells[1][i]==IntToStr(Y-1)) ){
                        repetido=true;
            }
        }
        if (repetido==false) {
            cant_vecinos++;
            grupo->Cells[0][cant_vecinos]=IntToStr(X);
            grupo->Cells[1][cant_vecinos]=IntToStr(Y-1);
        }
    }
    if (cant_vecinos>0 && cant_vecinos>vecinos_examinados) {
        vecinos_examinados++;
        X=StrToInt(grupo->Cells[0][vecinos_examinados]);
        Y=StrToInt(grupo->Cells[1][vecinos_examinados]);
        calculo_grupo();
    }
}