Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-03-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por aguml Ver Mensaje
En C no se puede pasar el apuntador por referencia de ese modo...
Mismo ejemplo en C:
Código PHP:
#include <stdio.h>
#include <stdlib.h>

#define ELEM 10

void foo(intvint);

int main()
{
  
int i, *vec = (int*) malloc(sizeof(int) * ELEM);

  
foo(vecELEM);
  for (
0ELEMi++) printf("%3d"vec[i]);
  
free(vec);

  
getchar();
}

void foo(intvint n) {
  
int i;
  for(
0ni++) *(v+i) = i;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #2  
Antiguo 05-03-2015
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Ok, mañana lo miro que hoy ya es muy tarde. ¿Estas seguro que si lo hago así como indicas pero usando malloc dentro de la funcion funcionará? He corregido otros fallos que vi por el codigo:
Código PHP:
#include <stdio.h>
#include <stdlib.h>

int MCD(int aint b);
int ObtenerListaDivisores(int valorint** Divisores);
void LiberarListaDivisores(int** Divisores);
int ObtenerPareja(int dividendoint** Divisoresint nDivisoresintvalor1intvalor2int pos);
void shuffle(int *Divisoresint nDivisores);

int main()
{
   
int inzmultiplicandomultiplicadordivisorComunnDivisores;
   
int *Divisores;
   
int Resultado[10]={0};
   
int dividendo 100;
   
int salir 0repetidoretval=0posibles=0;
   
int dibujados[100]={0};

   
//Inicializo la semilla para rand()
   
srand (time(NULL));

   
//Coloco el valor del pico de la piramide en el array que almacena el resultado
   
Resultado[0]=dividendo;


   
//Obtengo todos los divisores del valor del pico de la piramide
   
nDivisores ObtenerListaDivisores(dividendo, &Divisores);

   
//Barajo la lista de divisores
   
shuffle(Divisores,nDivisores);

   
retval=0;

   
//Con este bucle puedo calcular todas las posibilidades del segundo nivel de la pirámide
   
for(z=0;z<nDivisores && salir==0;z++)
   {
      
//Obtengo los dos valores del segundo nivel
      
retval ObtenerPareja(dividendo, &DivisoresnDivisores, &multiplicando, &multiplicadorz);

      
//Si no hubo error entramos
      
if(retval != -1){
         
//Coloco los dos valores del segundo nivel en el array del resultado
         
Resultado[1]=multiplicando;
         
Resultado[2]=multiplicador;

         
//Calculo el valor central del tercer nivel
         
divisorComun MCD(multiplicando,multiplicador);

         
//Calculo los dos extremos del tercer nivel para este MCD
         
if(multiplicando divisorComun)
            
multiplicandodivisorComun/multiplicando;
         else
            
multiplicandomultiplicando/divisorComun;

         if(
multiplicador divisorComun)
            
multiplicador divisorComun/multiplicador;
         else
            
multiplicadormultiplicador/divisorComun;

         
//Coloco los tres valores del tercer nivel en el array del resultado.
         //El MCD va en el centro
         
Resultado[3]=multiplicando;
         
Resultado[4]=divisorComun;
         
Resultado[5]=multiplicador;

         
//Incremento el contador de posibles soluciones
         
posibles++;

         
//Muestro la pirámide
         
printf("         %i\n"Resultado[0]);
         
printf("      %i     %i\n"Resultado[1], Resultado[2]);
         
printf("   %i     %i     %i\n"Resultado[3], Resultado[4], Resultado[5]);
         
printf("%i     %i     %i     %i\n"1111); //Me falta calcular esta fila
         
printf("\n---------------------------------\n");
      }
   }
   
printf("\nSe obtuvieron %i posibles soluciones.\n",posibles);

   
//Libero la memoria reservada para almacenar los divisores para el segundo nivel
   
LiberarListaDivisores(&Divisores);

   
printf("\nPresiona INTRO para salir");
   
getchar();
   return 
0;
}
//---------------------------------------------------------------------------

//Máximo común divisor de dos números mediante el algoritmo de Euclides.
int MCD(int aint b)
{
   
int auxcr;

   if(
b){
      
aux=b;
      
b=a;
      
a=aux;
   }

   
r=a%b;
   while(
r>0)
   {
      if(
a>b){
         
a=b;
         
b=r;
         
r=a%b;
      }else{
         
b=0;
         break;
      }
   }
   return 
b;
}
//---------------------------------------------------------------------------

//Retorna el numero de divisores posibles
int ObtenerListaDivisores(int valorint** Divisores)
{
   
int ij=0nDivisores=0;

   for(
i=1;i<=valor;i++)
      if(
valor%i==0){
         
nDivisores++;
      }

   *
Divisores = (int*)malloc(sizeof(int) * nDivisores);

   for(
i=1;i<=valor;i++)
      if(
valor%i==0){
         (*
Divisores)[j]=i;
         
j++;
      }
   return 
nDivisores;
}
//---------------------------------------------------------------------------

void LiberarListaDivisores(int** Divisores)
{
   if(*
Divisores != NULL)
      
free(*Divisores);
}
//---------------------------------------------------------------------------

//Funcion que obtiene la pareja de numeros para un MCD
int ObtenerPareja(int dividendoint** Divisoresint nDivisoresintvalor1intvalor2int pos)
{
   
int divisorComun=0;
   
int n,zsalir=0;

   if(
nDivisores>1){
      *
valor1 = (*Divisores)[pos];
      *
valor2 = (dividendo / *valor1);
      
divisorComun MCD(*valor1, *valor2);
   }else{
      
divisorComun=-1;
   }
   return 
divisorComun;
}
//---------------------------------------------------------------------------

//Funcion para barajar el array de los divisores
void shuffle(int *Divisoresint nDivisores)
{
   
int ijt;

   if (
nDivisores 1)
   {
      for (
0nDivisoresi++)
      {
         
rand() % (nDivisores-1);
         
Divisores[i];
         
Divisores[i] = Divisores[j];
         
Divisores[j] = t;
      }
   }
}
//--------------------------------------------------------------------------- 
Responder Con Cita
  #3  
Antiguo 05-03-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola aguml.

Para que sea un código mas claro y menos proclive a errores, yo creo que es mejor usar malloc/free fuera de la función, sobre todo si la llamas mas de una vez.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 05-03-2015
engranaje engranaje is offline
Miembro
 
Registrado: may 2011
Posts: 163
Poder: 16
engranaje Va por buen camino
Acerca del nivel 4 y posteriores... a ver si te sirve de ayuda lo que pienso. La cosa es que ya no basta solo con un divisor común. El cociente de dividir el dividendo de la derecha en la linea superior entre el divisor tiene a su vez que ser divisor de ese mismo número y del siguiente número a la derecha... a ver si puedo aclararlo con un pseudográfico.

A B C
D dcAB dcBC F

siendo dcAB el divisor común de A y B, y siendo dcBC el divisor común de B y C hay que comprobar que:

B/dcAB es divisor de C para poder garantizar que es un dcBC. Esto tocará hacerlo para cada elemento no exterior del triangulo de mood que como ves puede incluso suceder que siguiendo un "camino" encuentres divisores comunes para los 2 primeros elementos pero te falle el tercero y debas abandonar este camino.
Responder Con Cita
  #5  
Antiguo 05-03-2015
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Lo he solucionado aunque creo que lo hago de una forma algo diferente a lo que explicas (o eso creo jejeje). Pongo el codigo a ver que os parece:
Código PHP:
#include <stdio.h>
#include <stdlib.h>

int MCD(int aint b);
int ObtenerNumeroDeDivisores(int valor);
void ObtenerListaDivisores(int valorintDivisores);
int ObtenerPareja(int dividendointDivisoresint nDivisoresintvalor1intvalor2int pos);
void shuffle(intDivisoresint nDivisores);

int main()
{
   
int inzmultiplicandomultiplicadordivisorComunnDivisores;
   
int *Divisores;
   
int Resultado[10]={0};
   
int repetidoretval=0posibles=0;
   
int salir;
   
char caracter;

   
//Inicializo la semilla para rand()
   
srand (time(NULL));

   do{
      
//Pido el valor del pico de la piramide
      
printf("Introduce el valor de la cima de la piramide: ");
      
scanf("%d",&Resultado[0]);
      
printf("\n---------------------------------\n");

      
nDivisores ObtenerNumeroDeDivisores(Resultado[0]);

      
Divisores = (int*)malloc(sizeof(int) * nDivisores);

      
//Obtengo todos los divisores del valor del pico de la piramide
      
ObtenerListaDivisores(Resultado[0], Divisores);

      
//Barajo la lista de divisores
      
shuffle(Divisores,nDivisores);

      
retval=0;

      
//Con este bucle puedo calcular todas las posibilidades del segundo nivel de la pirámide
      
for(z=0;z<nDivisores;z++)
      {
         
//Obtengo los dos valores del segundo nivel
         
retval ObtenerPareja(Resultado[0], DivisoresnDivisores, &multiplicando, &multiplicadorz);

         
//Si no hubo error entramos
         
if(retval != -1){
            
//Coloco los dos valores del segundo nivel en el array del resultado
            
Resultado[1]=multiplicando;
            
Resultado[2]=multiplicador;

            
//Calculo el valor central del tercer nivel
            
divisorComun MCD(multiplicando,multiplicador);

            
//Calculo los dos extremos del tercer nivel para este MCD
            
if(multiplicando divisorComun)
               
multiplicandodivisorComun/multiplicando;
            else
               
multiplicandomultiplicando/divisorComun;

            if(
multiplicador divisorComun)
               
multiplicador divisorComun/multiplicador;
            else
               
multiplicadormultiplicador/divisorComun;

            
//Coloco los tres valores del tercer nivel en el array del resultado.
            //El MCD va en el centro
            
Resultado[3]=multiplicando;
            
Resultado[4]=divisorComun;
            
Resultado[5]=multiplicador;

            
multiplicador divisorComun;
            
divisorComun MCD(multiplicandomultiplicador);

            
//Calculo los dos extremos del tercer nivel para este MCD
            
if(multiplicando divisorComun)
               
multiplicandodivisorComun/multiplicando;
            else
               
multiplicandomultiplicando/divisorComun;

            if(
multiplicador divisorComun)
               
multiplicador divisorComun/multiplicador;
            else
               
multiplicadormultiplicador/divisorComun;

            
Resultado[6]=multiplicando;
            
Resultado[7]=divisorComun;
            
Resultado[8]=multiplicador;

            if(
Resultado[8] <= Resultado[5] && Resultado[5] % Resultado[8] == 0)
            {
               
Resultado[9]=Resultado[5] / Resultado[8];

               
//Incremento el contador de posibles soluciones
               
posibles++;

               
//Muestro la pirámide
               
printf("         %i\n"Resultado[0]);
               
printf("      %i     %i\n"Resultado[1], Resultado[2]);
               
printf("   %i     %i     %i\n"Resultado[3], Resultado[4], Resultado[5]);
               
printf("%i     %i     %i     %i\n"Resultado[6], Resultado[7], Resultado[8], Resultado[9]); //Me falta calcular esta fila
               
printf("\n---------------------------------\n");
            }
         }
      }

      if(
nDivisores == 2)
         
printf("\nEl valor introducido es primo. Solo se pueden obtener 2 posibilidades.\n");
      else
         
printf("\nSe obtuvieron %i posibles soluciones.\n",posibles);

      
//Libero la memoria reservada para almacenar los divisores para el segundo nivel
      
if(Divisores != NULL)
         
free(Divisores);

      
//Pido que el usuario decida si repetir o salir
      
do{
         
fflush(stdin);
         
printf("\nPresiona 'S' para salir o 'R' para repetir: ");
         
caracter getchar();
      }while(
caracter != 'S' && caracter != 's' && caracter != 'R' && caracter != 'r');

      if(
caracter == 'S' || caracter == 's')
         
salir 1;
      else
         
system("CLS");
   }while(
salir != 1);

   return 
0;
}
//---------------------------------------------------------------------------

//Máximo común divisor de dos números mediante el algoritmo de Euclides.
int MCD(int aint b)
{
   
int auxcr;

   if(
b){
      
aux=b;
      
b=a;
      
a=aux;
   }

   
r=a%b;
   while(
r>0)
   {
      if(
a>b){
         
a=b;
         
b=r;
         
r=a%b;
      }else{
         
b=0;
         break;
      }
   }
   return 
b;
}
//---------------------------------------------------------------------------

//Retorna el numero de divisores posibles
int ObtenerNumeroDeDivisores(int valor)
{
   
int inDivisores=0;

   for(
i=1;i<=valor;i++)
      if(
valor%i==0){
         
nDivisores++;
      }
   return 
nDivisores;
}
//---------------------------------------------------------------------------

//Rellena el array con divisores posibles
void ObtenerListaDivisores(int valorintDivisores)
{
   
int ij=0;

   for(
i=1;i<=valor;i++)
      if(
valor%i==0){
         *(
Divisores+j)=i;
         
j++;
      }
}
//---------------------------------------------------------------------------

//Funcion que obtiene la pareja de numeros para un MCD
int ObtenerPareja(int dividendointDivisoresint nDivisoresintvalor1intvalor2int pos)
{
   
int divisorComun=0;
   
int n,z;

   if(
nDivisores>0){
      *
valor1 = *(Divisores+pos);
      *
valor2 = (dividendo / *valor1);
      
divisorComun MCD(*valor1, *valor2);
   }else{
      
divisorComun=-1;
   }
   return 
divisorComun;
}
//---------------------------------------------------------------------------

//Funcion para barajar el array de los divisores
void shuffle(int *Divisoresint nDivisores)
{
   
int ijt;

   if (
nDivisores 1)
   {
      for (
0nDivisoresi++)
      {
         
rand() % (nDivisores-1);
         
= *(Divisores+i);
         *(
Divisores+i) = *(Divisores+j);
         *(
Divisores+j) = t;
      }
   }
}
//--------------------------------------------------------------------------- 
Responder Con Cita
  #6  
Antiguo 05-03-2015
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Y este para crear la piramide divertida pero de divisiones:
Código PHP:
#include <stdio.h>
#include <stdlib.h>

#define MAXCOUNTBUCLES 10

int ObtenerPosibles(doubleResultadoint posToShow);
void ObtenerNivelDosdoublepResultadodouble cocientedouble divisor);
int ObtenerNivelTres(doublepResultadodouble valor6);
int ObtenerNivelCuatro(doublepResultadodouble valor9);

int main()
{
   
double Resultado[10]={0.0};
   
int posibles=0posToShow;
   
int salir=0;
   
char caracter;

   do{
      
//Pido el valor del pico de la piramide
      
printf("Introduce el valor de la cima de la piramide: ");
      
scanf("%lf",&Resultado[0]);

      
posibles ObtenerPosibles(Resultado,-1);
      
printf("\nSe obtuvieron %i posibles soluciones para un contador maximo para los bucles de %i.\n"posiblesMAXCOUNTBUCLES);

      if(
posibles 0){
         
printf("Introduce el indice de la piramide que deseas mostrar ('0' para mostrar todas): ");
         
scanf("%i",&posToShow);

         
posibles ObtenerPosibles(Resultado,posToShow);
      }

      
//Pido que el usuario decida si repetir o salir
      
do{
         
fflush(stdin);
         
printf("\nPresiona 'S' para salir o 'R' para repetir: ");
         
caracter getchar();
      }while(
caracter != 'S' && caracter != 's' && caracter != 'R' && caracter != 'r');

      if(
caracter == 'S' || caracter == 's')
         
salir 1;
      else
         
system("CLS");
   }while(
salir != 1);

   return 
0;
}
//---------------------------------------------------------------------------

int ObtenerPosibles(doubleResultadoint posToShow)
{
   
int ixnretvalposibles=0;

   for(
i=1;i<MAXCOUNTBUCLES;i++)
   {
      
ObtenerNivelDos(ResultadoResultado[0], i);

      for(
x=1;x<MAXCOUNTBUCLES;x++)
      {
         
retval ObtenerNivelTres(Resultadox);

         if(
retval == 0){
            for(
n=1;n<MAXCOUNTBUCLES;n++)
            {
               
retval ObtenerNivelCuatro(Resultadon);

               if(
retval == 0){
                  
posibles++;
                  if(
posToShow == posibles || posToShow == 0){
                     
//Muestro la pirámide
                     
printf("\n---------------------------------\n");
                     
printf("         %.0lf\n"Resultado[0]);
                     
printf("      %.0lf     %.0lf\n"Resultado[1], Resultado[2]);
                     
printf("   %.0lf     %.0lf     %.0lf\n"Resultado[3], Resultado[4], Resultado[5]);
                     
printf("%.0lf     %.0lf     %.0lf     %.0lf\n"Resultado[6], Resultado[7], Resultado[8], Resultado[9]);
                  }
               }
            }
         }
      }
   }
   if(
posToShow != -1)
      
printf("\n---------------------------------\n");
   return 
posibles;
}
//---------------------------------------------------------------------------

void ObtenerNivelDosdoublepResultadodouble cocientedouble divisor)
{
   *(
pResultado+1) = cociente divisor;
   *(
pResultado+2) = divisor;
}
//---------------------------------------------------------------------------

int ObtenerNivelTres(doublepResultadodouble valor6)
{
   
int retval=-1;

   *(
pResultado+5) = valor6;
   *(
pResultado+4) = *(pResultado+5) * *(pResultado+2);
   if(*(
pResultado+4) <= *(pResultado+1)){
      *(
pResultado+3) = *(pResultado+1) * *(pResultado+4);
      
retval 0;
   }
   return 
retval;
}
//---------------------------------------------------------------------------

int ObtenerNivelCuatro(doublepResultadodouble valor9)
{
   
int retval=-1;

   *(
pResultado+9) = valor9;
   *(
pResultado+8) = *(pResultado+9) * *(pResultado+5);
   if(*(
pResultado+8) <= *(pResultado+4)){
      *(
pResultado+7) = *(pResultado+4) * *(pResultado+8);
      if(*(
pResultado+7) <= *(pResultado+3)){
         *(
pResultado+6) = *(pResultado+3) * *(pResultado+7);
         
retval 0;
      }
   }
   return 
retval;
}
//--------------------------------------------------------------------------- 
¿que os parece? La verdad es que no soy programador profesional, todo lo que se lo he aprendido por libre porque siempre me ha apasionado la programacion y para mi plantearme hacer un codigo es como para otros hacer un sudoku, me divierte y me entretiene y hay veces (muchas) que tengo que pedir ayuda porque me atasco .
Responder Con Cita
  #7  
Antiguo 05-03-2015
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Esta es la idea con la que empezó todo, vi una imagen en internet donde aparecia una esfinge con 4 piramides de estas y se me ocurrio hacer una estrella y al final puedo poner tanto multiplicaciones como divisiones jejeje.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Generar base de datos en MSSQL a partir de un Esquema XML Ledian_Fdez SQL 1 17-05-2013 10:59:17
Piramide Poblacional, como? El_Raso Varios 0 13-04-2009 20:35:54
Restaurar base de datos a partir de un MDF erickperez6 MS SQL Server 1 16-08-2007 21:11:40
como mostrar una ventana con base al resultado de una busqueda Nelly Varios 3 02-02-2006 18:16:20
Como saber el tipo de componentes a partir de un string? Roger OOP 2 02-04-2004 13:21:48


La franja horaria es GMT +2. Ahora son las 08:26:09.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi