practica 9 ejercicio 8, Pascal

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    FIN   =  'fin';
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    Tnombre = string[15];
    Telemento = record
        nombre : Tnombre;
        apellido : Tnombre;
        codigoDepto : integer;
        sueldo : real;
        antiguedad : integer;
        codigo : integer;
    end;
    
    Tlista = ^nodo ;
    nodo = record
        datos : Telemento;
        sig : Tlista;
    end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos
de ser necesarias}
//var
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
LEER ELEMENTO ...}
procedure leerElemento(var e : Telemento);
begin
    readln(e.nombre);
    if e.nombre <> FIN then begin
        readln(e.apellido);
        e.codigoDepto :=random(10)+1;
        e.sueldo :=random(4444444);
        e.antiguedad :=random(30);
        e.codigo :=random(999);
    end;    
end;
{-----------------------------------------------------------------
AGREGAR ELEMENTO ...}
procedure agregarElemento(var l : Tlista; e : Telemento);
var
    nue,ant,act : Tlista;
begin
    new(nue);
    nue^.datos:= e;
    ant := l;
    act := l;
    while (act <> nil)and(act^.datos.codigo < nue^.datos.codigo) do begin
        ant := act;
        act := act^.sig;
    end;
    if (act = l) then begin l := nue;
                 end  else  ant^.sig := nue;
    nue^.sig := act;
end;
{-----------------------------------------------------------------
CARGAR LISTA ...}
procedure cargarLista(var l: Tlista);
var e : Telemento;
begin
    l := nil;
    leerElemento(e);
    while e.nombre <> FIN do begin
        agregarElemento(l,e);
        leerElemento(e);
    end;
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------
IMPRIMIR LISTA ...}
procedure imprimirLista( l: Tlista);
begin
    writeln('imprimimos lista -----------------------------------------------------------------');
    while l <> nil do begin
        imprimirElemento(l^.datos);
        l:= l^.sig;
    end;
    writeln('---------------------------------------------------------------------------------------------------------------');
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
BORRAR ELEMENTO ...}
procedure BorrarElemento (var pri:Tlista; var exito: boolean);
var ant, act: Tlista;
begin
    exito := false;
    act := pri;
    {Recorro mientras no se termine la lista y no encuentre el elemento}
    while (act <> NIL) and (act^.datos.codigoDepto <> 4) and (act^.datos.codigoDepto <> 10) do begin
        ant := act;
        act := act^.sig
    end;	
    if (act <> NIL) then begin
        exito := true;
        if (act = pri) then begin pri := act^.sig;
                    end else ant^.sig:= act^.sig;
        dispose (act);
    end;
end;
{-----------------------------------------------------------------
BORRAR DEPARTAMENTO ...}
procedure borrarDepartamentos(var l : Tlista);
var exito : boolean;
begin
    exito := true;
    while exito do
        BorrarElemento(l,exito);
    writeln('imprimirlista luego de borrar elemento: ');
    imprimirLista(l);
end;

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
LIBERAR LISTA ...}
procedure liberarLista(var l: Tlista);
var
    aux : Tlista;
begin
        while l <> nil do begin
            aux:=l^.sig;
            dispose(l);
            l := aux;
        end;
end;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
     l : Tlista;
begin
    randomize;
    
    cargarLista(l);
    
    imprimirLista(l);
    
    insertarEmpleado(l);
    
    borrarDepartamentos(l);
    
    liberarLista(l);
end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ - ] Show input
Compilation time: 0.13 sec, absolute running time: 0.16 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,46 sec