practica 7 ejercicio B4, Pascal

practica 7 ejercicio B4

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

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

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
BUSCAR VALOR}
function buscarValor(v:Tvector;n:integer;pri,ult:indice):boolean;
var mid : indice;
begin
    mid := (pri + ult) div 2;
    if (v.vector[pri] > n ) or (v.vector[ult] < n) or ((v.vector[mid]>n)and(v.vector[mid-1] < n))or((v.vector[mid+1] > n)and(v.vector[mid] < n)) then begin
        buscarValor := false;
    end else
        if (v.vector[mid] > n) then begin
            buscarValor:= buscarValor(v,n,pri,mid-1);
        end else
            if (v.vector[mid]< n) then begin
                buscarValor:= buscarValor(v,n,mid+1,ult);
            end else
                buscarValor:= true;
end;

{-----------------------------------------------------------------
INSERTAR ORDENADO}
procedure insertarOrdenado(var v :Tvector; n : integer);
var
    j,i : indice;
begin
    if v.DimL < DimF then begin
                if (v.vector[v.DimL] < n )or(v.DimL = 0) then begin  //FINAL - VACIO
                    v.vector[v.DimL+1]:= n;
                end else                                            // MEDIO - PRINCIPIO
                    begin
                        i := 1;
                        while (v.vector[i] < n) and (i < v.DimL)do i:= i+1;
                        for j := v.DimL+1 downto i do v.vector[j]:=v.vector[j-1];
                        v.vector[i]:= n;   
                    end;
        v.DimL := v.DimL + 1;
    end else
        begin
            writeln('el vector está lleno no se pueden ingresar mas nombres');
        end;
end;

{-----------------------------------------------------------------
CARGAR VECTOR}
procedure cargarVector(var v : Tvector);
var
    i : indice;
    diml : indice;
begin
    randomize;
    v.DimL := 0;
    diml := random(DimF)+1;
    for i := 1 to diml do
        insertarOrdenado(v,random(100));    // al insertar ordenado se le envia el vector y un valor al azar
end;
{-----------------------------------------------------------------
IMPRIMIR DECENA}
procedure imprimirDecena(n:integer);
begin
        if n > 9 then begin
            write(' | ',n);
        end else
            write(' | 0',n);    
end;
{-----------------------------------------------------------------
IMPRIMIR DECENA 2}
procedure imprimirDecena2(n:integer);
begin
        if n > 9 then begin
            writeln(' | ',n,' |');
        end else
            writeln(' | 0',n,' |');    
end;
{-----------------------------------------------------------------
IMPRIMIR DECENA 3}
procedure imprimirDecena3(n:indice);
begin
        if n > 9 then begin
            write('   ',n);
        end else
            write('   0',n);    
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR}
procedure imprimirVector(v : Tvector);
var j : indice;
begin
    for j := 1 to v.DimL do 
        write('-----');
    writeln;
    for j := 1 to v.DimL-1 do 
        imprimirDecena(v.vector[j]);
    imprimirDecena2(v.vector[v.DimL]);
    for j := 1 to v.DimL do 
        write('-----');
    writeln;
     for j := 1 to v.DimL do 
        imprimirDecena3(j);
    writeln;
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    v:Tvector;
    n:integer;
begin
    cargarVector(v);
    imprimirVector(v);
    n := random(100);
    writeln('el valor ',n,' se encuentra en el vector ',buscarValor(v,n,1,v.DimL));
end.
{-----------------------------------------------------------------------------------------------------------------------}


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development