practica 7 ejercicio 9, Pascal

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    DimF = 80;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    rangoNros = 1 .. DimF;
    VECTOR = record
        Tvector : array [rangoNros] of integer;
        DimL : rangoNros;
    end;
{-----------------------------------------------------------------------------------------------------------------------}

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CREAR VECTOR - Se encarga de crear y cargar el vector}
procedure crearVector(var v : VECTOR);
var 
    i:rangoNros;
    num : integer;
begin
    randomize;
    v.DimL:= 0;
    num:=random(30)+9984;
    while (num <> 9999)and(v.DimL <= DimF) do begin
        v.DimL := v.DimL + 1;
        v.Tvector[v.DimL]:= num;
        num:=random(30)+9984;
    end;
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR - Se encarga de imprimir el vector completo }
procedure imprimirVector(v:VECTOR);
var
    i:rangoNros;
begin
    write('  ');
    for i := 1 to v.DimL do
        write('--------');
    writeln;
    for i := 1 to v.DimL do
        write(' | ',v.Tvector[i]);
    writeln(' |');
    write('  ');
    for i := 1 to v.DimL do
        write('--------');
    writeln;writeln;
end;
{-----------------------------------------------------------------
IMPRIMIR IMPARES - Se encarga de imprimir todos los indices impares del vector}
procedure imprimirImpares(v :VECTOR);
var n:VECTOR; i,j : rangoNros;
begin
    i:= 1;
    j:=1;
    while i <= v.DimL do begin
        n.Tvector[j]:= v.Tvector[i];
        i:= i+2;
        j:=j+1;
    end;
    n.DimL := j-1;
    writeln;writeln;
    imprimirVector(n);
    writeln;writeln;
end;
{-----------------------------------------------------------------
IMPRIMIR PAR - Se encarga de imprimir el primer elemento par del vector }
procedure ImprimirPrimerPar (v:VECTOR);
var  
    par:boolean;
    i:rangoNros;
begin
    par:=false; i := 1;
    while (i <= v.DimL)and not(par) do begin
        par := (v.Tvector[i] mod 2 = 0);
        if not par then i := i + 1;
    end;
    if par then begin writeln('el primer nro par es ', v.Tvector[i]);
                end else writeln('el primer nro par es 0');
end;

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    v:VECTOR;
begin
    
    
  crearVector(v);      // crea y carga el vector
  
  
  writeln(' --------------vectorCompleto--------------');writeln;writeln;
  imprimirVector(v); // imprime todo lo que se encuentra en el vector
  writeln(' --------------vectorDeImpares--------------');writeln;writeln;
  imprimirImpares(v); // imprime los elementos que se encuentran en las posiciones impares
  writeln(' --------------PrimerPar--------------');writeln;writeln;
  imprimirPrimerPar(v); // imprime el primer elemento par del vector
  
end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ + ] Show input
Compilation time: 0.12 sec, absolute running time: 0.15 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,92 sec