4.3.1. Recorridos sobre grafos.

Búsqueda primero en amplitud o anchura

{ Igual que BuscaPrimeroProfundidad}

var v: nodo;

begin

BorraMarcas;

for v:= 1 to num_nodos do

if marca[v]= no_visitado then

bpa (v);

end;

var

C: Cola(nodo);

x, y: nodo;

begin

marca[v]:= visitado;

InsertaCola(v, C);

while not EsVacíaCola(C) do begin

x:= FrenteCola(C);

SuprimirCola(C);

for cada nodo y adyacente a x do

if marca[y]=no_visitado then begin

marca[y]:= visitado;

InsertaCola(y, C);

end;