Algoritmo:
INICIO
1.
Bienvenido a esta empresa favor de
ingresar los siguientes datos
2.
Registre nombre
3.
La Variable n identifica
nombre
4.
Ingrese su apellido
5.
Variable a identifica
apellido
6.
Ingrese su número de identificación
7.
Variable i identifica
identificación
8.
Dirección
9.
Variable d
identifica dirección
10.
Número de teléfono
11.
Variable t identifica
teléfono
12.
Correo electrónico
13.
Variable C identifica correo electrónico
14.
Por favor ingresar cuántos hijos
tiene
15.
Variable h identifica
hijos
16.
tiempo trabajar en la empresa
17.
Variable ti identifica
tiempo de laborar
18.
Sueldo mensual
19.
Variable s identifica
sueldo
20.
Ingrese genero
21.
Variable g identifica
genero
22.
Ingrese su salario
23.
Variable S identifica
salario
24.
Ingrese su estado civil
25.
La variable E identifica
el estado civil
26.
Ingrese su puesto
27.
La variable p identifica
puesto
28.
Ingrese descuentos
29.
Variable de identifica
descuentos
30.
Ingrese los bonos incentivos
31.
Variable b identifica
bonos incentivos
32.
Ingrese su liquido a recibir
mensual
33.
Variable l identifica
el líquido que recibe mensualmente.
FIN.
|
Programa
Control de empresa
|
|
Datos Personales
|
|
Datos de la Empresa
|
|
Ingrese su nombre
|
|
Ingrese sus apellidos
|
|
Años de laborar para nuestra empresa
|
|
Sueldo Mensual
|
|
Ingrese Documento Identificación DPI
|
|
Si su año de trabajar es más de 5
usted recibirá una bonificación
adicional
|
|
Ingrese su número Telele fónico
|
|
Ingrese su dirección de correo
electrónico
|
|
Cuantos Hijos tiene
|
|
Si la cantidad de hijos es mayor de 5
le brindaremos una bonificación
|
(*Nombre Israel Pelico 5to
bachillerato*)
Program programa_empresa;
Uses crt;
Var
No,ap,di,co,g,e,p:string;
Id,te,hi,sa,de,b,l,d,s,slt:integer;
N,a,i,t,c,h:string;
Ch,fie,s,da,bi,lrm,vl,v2: integer:
Begin
Clrscr;
Writeln(‘ingrese el nombre de empleado’);
Readln(no);
Writeln(‘ingrese el apellido del empleado’);
Readln(ap);
Writeln(‘ingrese su documento de identificacion’);
Readln (d);
Writeln(‘ingrese su genero’);
Readln(g);
Writeln(‘ingrese su estado civil’);
Readln(e);
Writeln (‘ingrese la cantidad de hijos ‘);
Readln(h);
Writeln(‘ingrese el tiempo de laborar del empleado’);
Readln(ti);
Writeln(‘ingrese su puesto’);
Readln(p);
Writeln(‘ingrese su salario’);
Readln(s);
Writeln (‘ingrese el descuento’);
Readln(de);
Clrscr;
Writeln (‘ ‘);
Writeln(‘n’);
Writeln(‘ ‘);
Writeln(‘a’);
Writeln (‘ ‘);
Writeln (‘d’);
Writeln(‘ ‘);
Writeln(‘g’);
Writeln(‘ec’);
Writeln(‘ ‘);
Writeln(‘hijos:’,h);
Writeln(‘ ‘);
Writeln (‘tiempo de servicio:’,t);
Writeln(‘ ‘);
Writeln(‘pe ‘);
Writeln (‘ ‘);
Writeln (‘salario:’,s);
Writeln(‘ ‘);
Writeln (‘descuento de: Q.’,d,’.00’);
If (ch)2) and (ch<5> then
Begin
Vi:=bi+300;
End
Else
If <ch>4> then
Begin
Vi:=bi+500;
End
Else
Begin
Vi:=bi+0;
End;
Writeln(‘bonificacion por hijos: Q.’.vi,’.00’);
Clrscr;
If <fic>5> then
Begin
V2:=vi+500:
End
Else
Begin
V2:=vi+0:
End;
Writeln(‘bonificacion por tiempo de trabajo:
Q.’,v2,’.00’);
Slt:=v2-d;
Writelen(‘ ‘);
Writeln(‘sueldo liquido:
Q.’,slt,’.00’);
Writeln(‘ ‘);
Readln;
End.
