ESSA É DIFICIL .......

Delphi

19/03/2003

COMO FAÇO UMA ESPÉCIE DE GERADOR DE PALAVRAS, POR EXEMPLO

COM 4 LETRAS

AAAA
AAAB
AAAC
AAAD
AAAE

...

ZZZA
ZZZB
ZZZC

ATÉ

ZZZZ


Alphablend

Alphablend

Curtidas 0

Respostas

Anonymous

Anonymous

19/03/2003

COMO FAÇO UMA ESPÉCIE DE GERADOR DE PALAVRAS, POR EXEMPLO COM 4 LETRAS AAAA AAAB AAAC AAAD AAAE ... ZZZA ZZZB ZZZC ATÉ ZZZZ


Alpha,

Eu sei que pra você isso é mole. Basta lembrar que a letra A corresponde ao Chr(65) e você tá fazendo uma string de comprimento igual a quatro e nosso alfabeto tem 23 letras. Sacou?


GOSTEI 0
Anonymous

Anonymous

19/03/2003

Pq vc não faz o loop usando números e depois mostra a letra correspondente ao número, por exemplo: 1=A, 2=B etc...

Acho q não é difícil...

[]´s

Christian


GOSTEI 0
E_gama

E_gama

19/03/2003

Coloque um [b:f90139121f]TButton[/b:f90139121f] e um [b:f90139121f]TMemo[/b:f90139121f] no formulário, e teste ...

procedure TForm1.Button1Click(Sender: TObject);
var TamPalavra, NumPalavras, I: Integer;
    Palavra: array[1..4] of Char;
    Ch     : Char;

begin
  Memo1.Lines.Clear;
  NumPalavras := 1000;

  Palavra[1] := ´A´;
  Palavra[2] := ´A´;
  Palavra[3] := ´A´;
  Palavra[4] := ´A´;

  for I := 1 to NumPalavras do
    begin
      Memo1.Lines.Add(Palavra[1] + Palavra[2] + Palavra[3] + Palavra[4]);
      Ch := Palavra[4];
      if Ch <> ´Z´ then
         Palavra[4] := Chr(Ord(Ch) + 1)
      else
         begin
           Palavra[4] := ´A´;
           Ch := Palavra[3];
           if Ch <> ´Z´ then
             Palavra[3] := Chr(Ord(Ch) + 1)
           else
             begin
               Palavra[3] := ´A´;
               Ch := Palavra[2];
               if Ch <> ´Z´ then
                 Palavra[2] := Chr(Ord(Ch) + 1)
               else
                 begin
                   Palavra[2] := ´A´;
                   Ch := Palavra[1];
                   if Ch = ´Z´ then
                      Break
                   else
                      Palavra[1] := Chr(Ord(Ch) + 1);
                 end;
             end;
         end;
    end;
end;



GOSTEI 0
POSTAR