domingo, 1 de dezembro de 2013

Função que conta Numero de vezes que caracter aparece em palavra



//Parâmetros: palavra tipo string e caracter tipo char.
//Retorna: inteiro (Nº de vezes que CARACTER aparece em PALAVRA).

Function QCharInString(palavra: String ;caracter: char): integer ;
Var QuantChar, indice: integer ;
   v_palavra: Array[0..79] Of char ;
Begin
   StrPCopy(v_palavra, palavra) ;
   If StrLen(v_palavra) > 0
      Then QuantChar := 1
   Else QuantChar := 0 ;

   For indice := 0 To (strlen(v_palavra))
      Do If v_palavra[indice] = caracter
      Then QuantChar := QuantChar + 1 ;

   Result := QuantChar ;
End ;

Nenhum comentário:

Postar um comentário