Consultoría Informática: Programas a medida, Páginas web, Tiendas Online, Posicionamiento en Internet (SEO), Accesibilidad, Usabilidad...

Busqueda en una lista

Autor: José Luis Álvarez

Busqueda de un nombre en una lista de nombres.

Funcion en pascal a la que se le pasa una lista de nombres. La función devuelve el valor booleano TRUE si el nombre se encuentra en la lista que se le ha pasado a la función y FALSE en caso contrario.

TYPE
T_NODO=^NODO;

NODO=RECORD
   nombre : STRING[12];
   sig    : T_NODO_ALMACEN;
   END;

FUNCTION BUSCA_NOMBRE(lista:T_NODO, nombre :STRING[12]):BOOLEAN;
VAR
   c : BOOLEAN;

BEGIN
   c:=FALSE;
   
   WHILE (lista<>NIL)AND(c=FALSE) DO
   BEGIN
      IF lista^.nombre=nombre THEN c:=TRUE;
      lista:=lista^.sig;
   END;

BUSCA_NOMBRE:=c;
END;