Pascal/Turbo Pascal - ayuda con pascal

 
Vista:

ayuda con pascal

Publicado por elina (1 intervención) el 17/11/2008 03:01:34
hola ayuda para un ejercicio de pascal;
el jefe de personal de la empresa trigo de oro, quiere generar un listado con los datos personales de sus empleados. el listado debe contemplar: Nº de C.I., nombre y apelldo, edad y categoria del empleado.siendo estos dos ultimos datos(edad y categoria) los que generan al jefe de personal, dificultades para obtener un listado confiable y consistente.Basandose en lo anterior diseñe un programa en pascal que, haciendo uso de arreglos (vectores y/o matrices), permita lo siguiente:
1.- Ingresar por teclado los datos personales del empleado:
- Nº de cedula de identidad.
- Nombre y Apellido
- Fecha de Naciemiento
- Sueldo

2.- Generar un listado con los siguientes datos:
- Nº de Cedula de Identidad
- Nombre y apellido
- edad
- Categoria
para generar el listado se debe considerar lo siguiente:
- la edad del empleado se debe obtener a partir de su fecha de nacimiento y la fecha actual, tomando como fecha actual el 30/10/08
- la categoria del empleado esta en funcion de su sueldo, tal como se expresa en la siguente tabla:

rango del sueldo categoria
1500<sueldo<2000 1
2000<sueldo<2500 2
2500<sueldo<3000 3

el listado de personal debe presentarse ordenado por Nº de cedula de identidad en forma ascendente.

por favor una ayuda con urguencia de como puedo hacer con las variables y los arreglos

<atentamente>

avelina serra
email: [email protected].
caracas-venezuela
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con pascal

Publicado por Itachi_Uchiha_b (2 intervenciones) el 17/11/2008 17:06:00
yo lo veo como un registro nose vos

fecha=record
dia,mes,anio:integer;
end;

empleado=record
nombre:string;
apellido:string;
fec_nac:fecha;
sueldo:real;
end;

vector:array[1..100] of empleado;
var
informacion:vector;

procedure leer(var k:vector);
var
i:integer;
begin
for i:=1 to 100 do
begin
write('Nombre: ');
readln(k[i].nombre);
write('Apellido: ');
readln(k[i].apellido);
writeln('Fecha de nacimiento: ');
readln(k[i].fecha.dia,k[i].fecha.mes,k[i].fecha.anio);
write('Sueldo: ');
readln(k[i].sueldo);
end;
end;

ESPERO QUE TE SIRVA MI PEQUEÑA AYUDITA, SOY UN POCO NUEVO EN ESTO DEL PASCAL.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con pascal

Publicado por amelia rosa (1 intervención) el 11/12/2008 14:46:03
Necesito ayudita para la solución del ejercicio please
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar