Fórum Númreo de letras diferentes numa palavra #245186

  se tamanho = 2 então
  inicio
    se palavra[tamanho] = palavra[tamanho - 1] então
      retorne 1
    senão
      retorne 2
   fim
   senao
     Aqui - qual a linha recursiva a se escrever agora?

Algoritmo ContaPalavras

  Declare
      Auxiliar,Auxiliar2  :  numeric[10];
      PalavrasExistentes  =  vetor[1..23] de Caractere;
      TotalPalavras        : Numeric[5];

  Metodo QtdLetras(APalavra : Caractere) : Numeric;
  Inicio
     Para Auxiliar := 1 To Length(APalavra) Faça
     Inicio
        Para Auxiliar2 := 1 To 23 Do
          Se(Parte(APalavra,1,Auxiliar) = PalavrasExistentes[Auxiliar2])Então
          Inicio
             Saia; // Break;
             Se(Auxiliar2 = 23)Então
             Inicio
                TotalPalavras := TotalPalavras + 1;
             Fim-se                
          Fim-se 
     Fim-para
     QtdLetras := TotalPalavras; // Resultado Final 
  Fim-metodo

Fim-Algoritmo

Var

  Form1            : TForm1   ;
  Palavra          : String   ;
  Auxiliar         ,
  Auxiliar2        ,
  TotalPalavras    : Byte;
  PalavraJaExiste  : Boolean  ;
  PalavrasContadas : TStrings ;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

   Auxiliar         := 0                       ;
   Auxiliar2        := 0                       ;
   TotalPalavras    := 0                       ;
   Palavra          := ´undeclared Identifier´ ;
   PalavrasContadas := TStringList.Create()    ;

   For Auxiliar := 1 To Length(Palavra) Do
   Begin
      PalavraJaExiste := False;
      For Auxiliar2 := 0 To PalavrasContadas.Count -1 Do
      Begin
         If PalavrasContadas.Count -1 < 0 Then // Se naum existir nenhuma palavra na lista (Auxiliar = 1)
           Break;
         If(Copy(Palavra,Auxiliar,1) = PalavrasContadas[Auxiliar2])Then
         { A linha abaixo pode substituir a linha a cima, para NÃO diferenciar Minúsculas de Maiúsculas
         If(UpperCase(Copy(Palavra,Auxiliar,1)) = UpperCase(PalavrasContadas[Auxiliar2]))Then}
         Begin
            PalavraJaExiste := True ;
            Break                   ;
         End;
      End;
      If(Not(PalavraJaExiste))Then
      Begin
         Inc(TotalPalavras)                             ;
         PalavrasContadas.Add(Copy(Palavra,Auxiliar,1)) ;
      End;
   End;
   ShowMessage(IntToStr(TotalPalavras)) ;
   FreeAndNil(PalavrasContadas)         ;
end;

const
   Palavra = ´parangaricotirimirruaro´; // Chapolin :-)
var
   Letras: array [65..90] of Boolean; // ´A´ a ´Z´
   nAux: Integer; // Váriavel de controle. Odeio usar I.
   Final: String;
begin
   for nAux := Low( Letras ) to High( Letras ) do
      Letras[ nAux ] := False;

   for nAux := 1 to Length( Palavra ) do
   begin
      if not Letras[ Ord( UpperCase( Palavra )[ nAux ] ) ] then
         Letras[ Ord( UpperCase( Palavra )[ nAux ] ) ] := True
      else if Pos( Palavra[ nAux ], Final ) = 0 then
         Final := Final + Palavra[ nAux ];
   end;

   ShowMessage( ´Palavras: ´ + Palavra + 1310 + ´Letras repetidas: ´ + Final );
end;