TDAvector_archivos

unit tdavector_registros;

interface
uses
TDA_REGISTROS;
const
max=6;
min=1;

type
tipoIndice = min..max;
tipoBase = tiporegistro;
tipoVector = array [tipoindice] of tipobase;tipoposicion = min-1..max;

procedure Crear_est(var ultimo:tipoposicion);
procedure insertar (var v:tipovector; var ultimo:tipoposicion; elem:tipobase);
procedure mostrar_vector (varv:tipovector;ultimo:tipoposicion);
procedure eliminar(var V:tipovector; var ultimo:tipoposicion; pos:tipoposicion);
function buscar(var V:tipovector;ultimo:tipoposicion;x:tipobase;varpos:tipoposicion):boolean;
procedure Burbuja ( var V:tipovector; ultimo:tipoposicion);
procedure Burbuja_Mejorado ( var V:tipovector; ultimo:tipoposicion);
Function PosMayor (Ultimo:tipoposicion; Var V:tipovector): tipoposicion;
PROCEDURE Seleccion (ultimo: tipoposicion; Var V :tipovector);
Procedure Desplazar(var V:tipovector;K:tipoposicion;Aux:tipobase;
var NuevaPos:tipoposicion);Procedure Insercion (var V:tipoVector;ultimo:tipoposicion);
function Busqueda_Binaria(V:tipoVector; ultimo:tipoposicion;
valor:tipobase;var encontrado:boolean):tipoposicion;Function Est_LLena(ultimo:tipoposicion):boolean;

implementation
{*****************************************************************************}
procedure Crear_est(var ultimo:tipoposicion);begin
ultimo:=Min-1;
end;
{*****************************************************************************}
procedure insertar (var v:tipovector; var ultimo:tipoposicion; elem:tipobase);
begin
ifultimoultimo) or enc;
buscar:=enc;
end;
{*****************************************************************************}
procedure Burbuja ( var V:tipovector; ultimo:tipoposicion);
varp,i:tipoposicion;
aux:tipobase;
begin

for p:=Min to ultimo - 1 do
for i:= Min to ultimo - p do
if v[i].clave>v[i+1].clave
then
begin
aux:= v[i];...