practica 9 ejercicio 11, Pascal

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    maratonistas = 7;
    minutos = 59;
    horas = 3;
    segundos = 59;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    
    // --------ranges-------- //
    rangoHoras = 0 .. horas;
    rangoMinutos = 0 .. minutos;
    rangoSegundos = 0 .. segundos;
    rangoMaratonistas = 1 .. maratonistas;
    
    // --------records-------- //
    Ttiempo = record
        hora : rangoHoras;
        minuto : rangoMinutos;
        segundo : rangoSegundos;
    end;
    
    // --------typs -------- //
    Tnombre = string[15];    
    
    // --------list-------- //
    Tlista = ^nodo;
    nodo = record
        datos : Ttiempo;
        sig : Tlista;
    end;
    
    // --------records-------- //
    Tmaratonista = record
        nombre : Tnombre;
        apellido : Tnombre;
        sexo : char;                    // male or female = m or f
        maratones : Tlista;
    end;
    
    // --------vector-------- //
    Tvector = array [rangoMaratonistas] of Tmaratonista;
{-----------------------------------------------------------------------------------------------------------------------}

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

// agregado
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
}
procedure espacio;
begin
    writeln;writeln;writeln;writeln;
    writeln('--------------------------------------------------------------------------');
    writeln;writeln;writeln;writeln;
end;
{-----------------------------------------------------------------------------------------------------------------------}

// lista
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
AGREGAR TIEMPO}
procedure agregarMaraton(var l : Tlista; t : Ttiempo);
var
    nue : Tlista;
begin
        new(nue);
        nue^.datos := t;
        nue^.sig := l;
        l := nue;
end;
{-----------------------------------------------------------------
LEER TIEMPO}

procedure leerMaraton(var t : Ttiempo);
begin
    t.hora := random(horas);
    t.minuto := random(minutos)+1;
    t.segundo := random(segundos)+1;
end;
{-----------------------------------------------------------------
CARGAR LISTA }
procedure cargarMaratones(var l : Tlista);
var t : Ttiempo;
begin
    l := nil;
    leerMaraton(t);
    while (t.hora <> 0) do begin
        agregarMaraton(l,t);
        leerMaraton(t);
    end;
end;
{-----------------------------------------------------------------
IMPRIMIR MARATON}
procedure imprimirMaraton( m : Ttiempo);
begin
    writeln('tiempo: ',m.hora,':',m.minuto,':',m.segundo);
end;
{-----------------------------------------------------------------
IMPRIMIR MARATONES}
procedure imprimirMaratones (l : Tlista);
begin
    while l <> nil do begin
        imprimirMaraton(l^.datos);
        writeln('---------------------------');
        l := l^.sig;
    end;
end;
{-----------------------------------------------------------------------------------------------------------------------}

// vector
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
LEER MARATONISTA}
procedure leerMaratonista(var m : Tmaratonista);
begin
       readln(m.nombre);
       readln(m.apellido);
       readln(m.sexo);
       cargarMaratones(m.maratones);

end;
{-----------------------------------------------------------------
CARGAR VECTOR}
procedure cargarMaratonistas (var v: Tvector);
var i : rangoMaratonistas;
begin
    for i:= 1 to maratonistas do 
        leerMaratonista(v[i]);
end;
{-----------------------------------------------------------------
IMPRIMIR MARATONISTA}
procedure imprimirMaratonista(m : Tmaratonista);
begin
    writeln('nombre: ',m.nombre);
    writeln('apellido: ',m.apellido);
    writeln('sexo: ',m.sexo);
    imprimirMaratones(m.maratones);
end;
{-----------------------------------------------------------------
IMPRIMIR MARATONISTAS}
procedure imprimirMaratonistas(v : Tvector);
var i : rangoMaratonistas;
begin
    for i:= 1 to maratonistas do begin
        writeln('el numero del maratonista es ',i);
        imprimirMaratonista(v[i]);
        espacio;
    end;
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
        v : Tvector;
begin
    randomize;
    cargarMaratonistas(v);
    imprimirMaratonistas(v);
end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ - ] Show input
Compilation time: 0.14 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 5 Mb, absolute service time: 0,62 sec