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;

Podría interesarte...

Procedimiento para crear una lista
Procedimiento para crear una lista de nodos
Procedimiento para recorrer una lista enlazada
Procedimiento para recorrer una lista enlazada y visualizar los datos por pantalla en Pascal
Añadir un nodo al final de una lista
Procedimiento en Pascal que añade al final de una lista un nodo
Ordenar una lista enlazada
Programa que ordena alfabéticamente los elementos de una lista