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

 
 
Herramientas Buscar en Tema Desplegado
  #15  
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
 


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 18:05:53.


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