PDA

Ver la versión completa : Ayuda por favor con programa en pascal



liscarol
11/05/2017, 14:27
buenas tardes si alguien me puede ayudar con este programa soy estudiante de ing industrial y tengo poco conocimiento en esta area.
Diseñe un programa en Pascal que permita lo siguiente:
1. Ingresar, modificar y eliminar por teclado los datos del empleado:
 Nro. De Cédula de Identidad
 Nombre y Apellido
 Fecha de Nacimiento
 Sueldo
2. Generar un listado con los siguientes datos:
 Nro. De Cédula de Identidad
 Nombre y Apellido
 Edad
 Nivel salarial

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 31/01/2017.
 El nivel salarial del empleado está en función de su sueldo, según se indica en la
Siguiente tabla:
Rango de Sueldo Nivel salarial
15000 ≤Sueldo< 20000 1
20000 ≤ Sueldo< 25000 2
25000 ≤ Sueldo < 30000 3

 El listado debe presentarse ordenado 1ro por el Nivel Salarial en forma
Ascendente y en 2do lugar por el Nro. De Cédula de Identidad en forma
Ascendente. Deben presentarse totales de sueldo para cada nivel salarial y el total
General.
A continuación, un ejemplo de lo solicitado:
Datos quese ingresan por teclado:
No. De C.I. Nombre y Apellido Fecha de Nacimiento Sueldo
7777777 José Tovar 15-12-1990 25000
6666666 María Romero 22-03-1988 16000
9999999 Rafael Torres 05-05-1991 23000
5555555 Marco Méndez 12-02-1987 28000

Listado resultante ordenado primero por Nivel Salarial y luego por Nro. De Cédula de Identidad:
No. De C.I. Nombre y Apellido Edad Sueldo Nivel salarial
6666666 María Romero 29 16000 1
Total sueldos Nivel 1 16000
9999999 Rafael Torres 25 23000 2
Total sueldos Nivel 2 23000
5555555 Marco Méndez 28 28000 3
7777777 José Tovar 26 25000 3
Total sueldos Nivel 3 53000
Total sueldos 92000

Mas o menos lo que he podido estudiar he realizado lo siguiente:
Program UNT;
Uses
Crt;
Type
Lista emplead= record
Numcedula:longint;
Nuapellido: string [100];
Edad:integer;
Fechanac:integer;
Sueldo: real;
End;
Const;
Nivesal)3;
Var
Datolnivel:array[1... Nivelsal] of listaemplead;
Procedure ingresar datos
Var
Opcion:char;
Begin
Clrscr;
With datos do
Begin
Writln("........ Datoa del empleador...... ");
Writeln;

Por fa alguien que me ayude