Combinação de numeros

Delphi

05/03/2004

Olá, preciso de uma rotina que faça o seguinte: Tenho os numeros 0-1-2-3-4-5-6-7-8-9 gostaria de fazer combinaçoes emtre si mas que me mostre da seguinte forma: 01-03-05-04-10 45-44-35-10-60 e vai até formar todas as combinações possiveis entre si. Fico grato, meu email é: ma-silverio@bol.com.br



Delphi1

Delphi1

Curtidas 0

Respostas

Afarias

Afarias

05/03/2004

uma forma::

const
  C=´0123456789´;
var
  I, J: Integer;
begin
  for I := 1 to 10 do
    for J := 1 to 10 do
      Memo1.Lines.Add( C[I]+C[J] );
end;



T+


GOSTEI 0
POSTAR