Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 7 ejercicio B8
program HelloWorld; {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CONST - Define las constantes para usar en tiempo de compilacion} const //-----------vector-----------// empleados = 800; oficinas = 20; //-----------fecha-----------// dias = 31; meses = 12; aniomax = 1999; aniomin = 1950; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- TYPE - Define los tipos creados por el usuario para usar en tiempo de compilacion} type //-----------rangos-----------// rangoOficinas = 1 .. oficinas; rangoEmpleados = 1 .. empleados; rangoDias = 1 .. dias; rangoMeses = 1 .. meses; rangoAnios = aniomin .. aniomax; //-----------registros-----------// Tnombre = string [15]; Tfecha = record dia : rangoDias; mes : rangoMeses; anio : rangoAnios; end; Templeado = record nombre : Tnombre; apellido : Tnombre; fecha : Tfecha; DNI : integer; oficina : rangoOficinas; end; //-----------vectores-----------// Tvector = record vector : array [rangoEmpleados] of Templeado; DimL : rangoEmpleados; end; vectorOficinas = array [rangoOficinas] of integer; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos de ser necesarias} //var {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- } procedure leerEmpleado(var e : Templeado); begin readln(e.DNI); if e.DNI <> 0 then begin e.fecha.dia := random(dias)+1; e.fecha.mes := random(meses)+1; e.fecha.anio := random(aniomax-aniomin)+aniomin; e.oficina := random(oficinas)+1; readln(e.nombre); readln(e.apellido); end; end; {----------------------------------------------------------------- CARGAR VECTOR ...} procedure cargarVector(var v : Tvector); begin randomize; v.DimL := 1; leerEmpleado(v.vector[v.DimL]); while (v.vector[v.DimL].DNI <> 0)and(v.DimL <= empleados) do begin v.DimL := v.DimL + 1; leerEmpleado(v.vector[v.DimL]); end; v.DimL := v.DimL -1 ; 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:rangoOficinas); begin if n > 9 then begin write(' ',n); end else write(' 0',n); end; {----------------------------------------------------------------- IMPRIMIR VECTOR} procedure imprimirOficinas(v : vectorOficinas); var j : rangoOficinas; begin for j := 1 to oficinas do write('-----'); writeln; for j := 1 to oficinas-1 do imprimirDecena(v[j]); imprimirDecena2(v[oficinas]); for j := 1 to oficinas do write('-----'); writeln; for j := 1 to oficinas do imprimirDecena3(j); writeln; end; {157-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- IMPRIMIR EMPLEADO ...} procedure imprimirEmpleado(e : Templeado); begin writeln('nombre: ',e.nombre); writeln('apellido: ',e.apellido); writeln('DNI ', e.DNI); writeln('oficina: ', e.oficina); writeln('fecha de nacimiento: ',e.fecha.dia,'/',e.fecha.mes,'/',e.fecha.anio); writeln('-----------------------------------------------------------------'); end; {----------------------------------------------------------------- IMPRIMIR VECTOR ...} procedure imprimirVector(v : Tvector); var i : rangoEmpleados; begin for i := 1 to v.DimL do imprimirEmpleado(v.vector[i]); end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- INICIALIZAR ...} procedure inicializar(var v1 : vectorOficinas;var m : rangoMeses); var i : rangoOficinas; begin for i := 1 to oficinas do v1[i]:=0; m:= random(meses)+ 1; end; {----------------------------------------------------------------- RECORRER VECTOR ...} procedure recorrerVector(v : Tvector); var v1 : vectorOficinas; i:rangoOficinas; m:rangoMeses; begin inicializar(v1,m); for i := 1 to v.DimL do begin // ejercicio a ... if v.vector[i].oficina = 1 then begin writeln('empleado que trabaja en la oficina 1:'); imprimirEmpleado(v.vector[i]); end; //ejercicio b ... v1[v.vector[i].oficina] := v1[v.vector[i].oficina] + 1; //ejercicio c ... if (v.vector[i].fecha.mes = m) then begin writeln('empleado que cumplio anios en el mes ',m); imprimirEmpleado(v.vector[i]); end; end; writeln('la cantidad de empleados por oficinas es : '); imprimirOficinas(v1); end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- PROGRAMA PRINCIPAL} var v : Tvector; begin randomize; cargarVector(v); writeln('//-----------imprimirVector-----------//'); writeln;writeln;writeln;writeln; imprimirVector(v); writeln;writeln;writeln; writeln('//-----------imprimirResultados-----------//'); writeln;writeln; recorrerVector(v); end. {-----------------------------------------------------------------------------------------------------------------------}
run
|
edit
|
history
|
help
0
practica 3 ejercicio B7
бассейн
practica 9 ejercicio 11
zadanye 3 г
test
kroliki
диагональ в алфавите
лет-год-года
Promedio con aprobación
Урок 6. Задача 9 (1533). Два самых маленьких числа