practica 7 ejercicio B1, Pascal

practica 7 ejercicio B1

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

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

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CARGAR VECTOR}
procedure cargarVector(var v : Tvector);
var
    i : rangoVector;
begin
    randomize;
    for i := 1 to DimF do
        v.vector[i] := random(33);
    v.DimL := DimF;
end;
{-----------------------------------------------------------------
BUSCAR VALOR}
function buscarValor(v:Tvector; n : integer):rangoVector;
var i : rangoVector;
begin
    i:=1;
    while (v.vector[i]<>n)and(i < v.DimL)do i := i+1;
    if v.vector[i] = n  then  begin
        buscarValor := i;
    end else
        buscarValor := 0;
end;
{-----------------------------------------------------------------
INFORMAR VALOR}
procedure informarValor(v:Tvector);
var
    i:rangoVector;
    n:integer;
begin
    n := random(33);
    i:= buscarValor(v,n);
    if i = 0 then begin
        writeln('el valor ',n,' no fue encontrado');
    end else
        writeln('el valor ',n,' se encuentra en la posicion ', i);
    
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR}
procedure imprimirVector(v : Tvector);
var j : rangoVector;
begin
    for j := 1 to v.DimL do 
        write('-----');
    writeln;
    for j := 1 to v.DimL-1 do 
        write(' | ', v.vector[j]);
    writeln(' | ',v.vector[v.DimL],' |');
    for j := 1 to v.DimL do 
        write('-----');
    writeln;
    
end;

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    v : Tvector;
begin
    cargarVector(v);
    imprimirVector(v);
    informarValor(v);
end.
{-----------------------------------------------------------------------------------------------------------------------}


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development