/*--------------------------------------------------------------------
 * FICHERO:  CadCarPe.c
 * OBJETIVO: Definir la funcin Cad_CarPertenece()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Cadena.h"

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_CarPertenece ()
 * OBJETIVO: Averiguar si un caracter pertenece a una cadena
 * ENTRADAS: La cadena y el caracter
 * SALIDA:   La posicin que ocupa el carcter en la cadena, o 0
 * NOTA:     Se empieza a contar en 1
 * EJEMPLO:  Cad_CarPertenece (Nombre,'a')
 *------------------------------------------------------------------*/
contador Cad_CarPertenece (Cadena,Caracter)
cadena   Cadena;
caracter Caracter;
  {
  contador i, Respuesta;
  logico   Visto;

  Respuesta = 0; Visto = NO;
  for ( i=0 ; Cadena[i] && !Visto ; i++ )
   {
   if ( Caracter==Cadena[i] ) { Respuesta = i+1; Visto = SI; }
   }

  return (Respuesta);
  }