Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 20-09-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Voy a contestar soble el punto del triangulo de pascal, por supuesto que tendrás que hacer algunos cambios pero de eso se trata, si no de nada sirve que te ayudemos.


Código Delphi [-]
//Función escrita por NELVIANT de la página El Rincón del C que muestra el triangulo de Pascal usando la formula del binomio de Newton
 
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  I,J : Integer;

  Function GetNumero(Linea,Elemento: Integer):Integer;

  function factorial(n:Integer): Integer;
  var
    f,i: Integer;
  begin
    f := 1;
    for i := 2 to n do f := f * i;
        Result := f;
  end; // Funcion extraida de Torry Delphi Page

  begin
    Result := factorial(Linea) DIV ( factorial(elemento)*factorial(linea-elemento) );
  end;

begin
  for I := 0 to (SpinEdit1.Value - 1) do begin
      for J := 0 to i do begin
          StringGrid1.Cells[J,I] := (inttostr(GetNumero(i,j)));
      end;
  end;
end;


Ahí está el código y tú le pones las "flores" para que se muestre tal y como lo deseas asi como los objetos que se requieren.

Saludos y suerte.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
 



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
Manejo proyectos Ricardo Alfredo Varios 4 04-02-2006 01:15:51
Grupo de Proyectos Mefistofeles Varios 4 06-05-2005 18:37:37
Se buscan proyectos inacabados taita Varios 19 17-11-2004 22:54:02
Proyectos OpenSource en Deplphi gatosoft Debates 7 19-05-2004 22:28:05


La franja horaria es GMT +2. Ahora son las 21:53:10.


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