Ver Mensaje Individual
  #9  
Antiguo 20-09-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 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