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.