Computacion Ii 324Proyecto

UNIVERSIDAD NACIONAL ABIERTA
VICERRECTORADO ACADÉMICO
ÁREA INGENIERÍA

TRABAJO PRÁCTICO:

ASIGNATURA: COMPUTACIÓN II

CÓDIGO: 324

FECHA DE ENTREGA DE LAS ESPECIFICACIONES AL

ESTUDIANTE:

A partir de la primera semana de aplicación de pruebas, a través del asesor de la asignatura en su centro local

FECHA DE DEVOLUCIÓN DEL INFORME POR EL ESTUDIANTE:

Adjunto a la Segunda PruebaIntegral
NOMBRE DEL ESTUDIANTE: Elizabeth Ojeda
CÉDULA DE IDENTIDAD: 18.748.295

CORREO ELECTRÓNICO: anais7152@gmail.com

CENTRO LOCAL: Carabobo

CARRERA: 236

NÚMERO DE ORIGINALES:

FIRMA DEL ESTUDIANTE:

LAPSO: 2011/2

TAD de los Empleados

Imprimir Matriz
Imprimir Matriz
Generar Matriz
Generar Matriz

EMPELADOS
EMPELADOS

Generar Matriz
Generar Matriz
Búsquedade Empleados
Búsqueda de Empleados








OBJETIVO N° 5 y 6 SOBRE LOS METODOS DE ORDENACION Y BUSQUEDA
program ordenacion;
USES crt;
CONST
N=100;
TYPE
Vector=array[1..N] of integer;
VAR
V,AP,P:Vector;
m, opcion:integer;
opc:char;

(* Procedure que recibe como parametro un vector y lo imprime *)
procedure imprimirVector (var A:Vector);
var i,j:integer;
begin
j:=1;
for i:=1 to N do
begin
if j>9 then
begin
writeln(' | ', A[i]:3);
j:=1;
end
else
begin
j:=j+1 ;
write(' | ', A[i]:3);
end;
end
end;

(*Procedure que permite generar un vector de manera aleatoria *)
proceduregenerarVector(var A:Vector);
var i,j,aleatorio: integer;
begin
Randomize;
(* writeln('************** Generar Vector ***************'); *)
for i:=1 to N do
begin
aleatorio:=random(101);
A[i]:=aleatorio;
end
end;
(* Procedimiento que consiste en emplear un vector de indices que apuntan a cada elemento del vector original*)procedure ordenarApuntador(var A,AP:Vector);
var
i,j,k,aux, posicion,l:integer;
B:Vector;
buscar:boolean;
begin
buscar:=false;
(* Se crea una copia del vector original *)
for k:=1 to N do
B[k]:=A[k];
for i:=1 to N-1 do
for j:=i+1 to N do
if B[j]< B[i] then
begin
aux:=B[i];B[i]:=B[j];
B[j]:=aux;
end;
(*** Asignar Vector Apuntador **)
for i:=1 to N do
begin
aux:=B[i];
j:=1;
buscar:=false;
while (j<=N) and not buscar do
begin
if (A[j] = aux) then
begin
buscar:=true;
posicion:=j;
end
else
j:=j+1;end;
AP[i]:=posicion;
end; (* fin del for *)
end;



(* Procedimiento que crea un vector de indices o permutaciones que indican el orden en que se encuentra cada uno de los elementos del vector original *)
procedure permutacion(var A,P:Vector);
var
i,j,k,aux, posicion,l:integer;
B:Vector;
buscar:boolean;
begin
buscar:=false;
(* Secrea una copia del vector original *)
for k:=1 to N do
B[k]:=A[k];
(* Metodo para ordenar *)
for i:=1 to N-1 do
for j:=i+1 to N do
if B[j]< B[i] then
begin
aux:=B[i];
B[i]:=B[j];
B[j]:=aux;
end;
(** Permutacion **)
for i:=1 to N do
beginaux:=V[i];
buscar:=false;
j:=1;
while (j<=N) and NOT buscar do
begin
if B[j]=aux then
begin
posicion := j;
buscar:=true;
end
else
j:=j+1;
end ;
P[i]:=posicion;
end;
end;


(* procedimiento que se...