webprogramacion.com >
Programacion >
PASCAL > Busqueda en una lista
Busqueda en una lista (Pascal)
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;
Autor del artículo
José Luis Álvarez
Fecha del artículo
21/3/2008
Compartir