Pascal/Turbo Pascal - hacer una nomina fabor ayudenme es para manana

   
Vista:

hacer una nomina fabor ayudenme es para manana

Publicado por wilson (3 intervenciones) el 13/07/2013 05:49:49
escriba un programa de nomina usando un ciclo while con centinela. Para cada empleado, el programa debe leer el nombre, el sexo, las horas de trabajo y el sueldo por hora.la primera parte de impresión en papel debe dar el nombre de cada empleado, las horas de trabajo, el sueldo por hora y el pago. La segunda debe dar el pago promedio para las mujeres y el pago promedio para los hombres.
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

hacer una nomina fabor ayudenme es para manana

Publicado por ramon (2072 intervenciones) el 13/07/2013 14:20:26
{Voy a intentar ayudarte pero ten en cuenta que tengo que realizar la muestra de lo que pides
puesto que no la tengo echo y no se si llegare a tiempo esto se pide antes pero veremos que podemos hacer.}
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

hacer una nomina fabor ayudenme es para manana

Publicado por ramon (2072 intervenciones) el 14/07/2013 17:12:02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
{A ver si esto te ayuda}
 
  program nomina;
  uses
     crt;
  type
     empleado = record
         nombre : string[50];
         sexo   : char;
         horas  : real;
         sueldo : real;
         total  : real;
      end;
 
   var
     nominas : array[1..100] of empleado;
     k, x, y, cont : integer;
     entra : char;
 
 
   procedure entrada_datos_nomina;
   begin
      cont := 1;
   while (cont < 101) and (entra <> '0') do
   begin
      clrscr;
      write('   Entre Nombre : ');
      readln(nominas[cont].nombre);
      write('   Entre Sexo  [F]emenina O [M]asculino : ');
      readln(nominas[cont].sexo);
      nominas[cont].sexo := upcase(nominas[cont].sexo);
      write('   Entre Horas  : ');
      readln(nominas[cont].horas);
      write('   Entre Sueldo Por Hora : ');
      readln(nominas[cont].sueldo);
      nominas[cont].total := nominas[cont].horas * nominas[cont].sueldo;
      writeln;
      writeln('   Finaliza Entrando [0] Otra Continua');
      entra := readkey;
      if entra <> '0' then
      cont := cont + 1;
   end;
 end;
 
 procedure presenta_nominas;
 begin
    clrscr;
      gotoxy(12,1);write('**** Datos De Empleados ****');
      y := 3;
      x := 1;
      for k := 1 to cont do
      begin
        gotoxy(x,y);write(nominas[k].nombre);
        gotoxy(x + 30,y);write(nominas[k].horas:0:2);
        gotoxy(x + 40,y);write(nominas[k].sueldo:0:2);
        gotoxy(x + 60,y);write(nominas[k].total:0:2);
        y := y + 1;
        if y > 22 then
        begin
          gotoxy(12,24);write('*** Pulse Una Tecla ***');
          readkey;
          y := 3;
          clrscr;
        end;
      end;
        gotoxy(12,24);write('*** Finalizada Lista Pulse Una Tecla ***');
        readkey;
     end;
 
   procedure prersenta_medias;
   var
     hom, muj : real;
     nm, nh, hh : integer;
   begin
      nm := 0;
      nh := 0;
      muj := 0.0;
      hom := 0.0;
      for hh := 1 to cont do
      begin
         if nominas[hh].sexo = 'F' then
         begin
         muj := muj + nominas[hh].total;
         nm := nm + 1;
         end;
         if nominas[hh].sexo = 'M' then
         begin
         hom := hom + nominas[hh].total;
         nh := nh + 1;
        end;
      end;
        clrscr;
        writeln('  ***** Las Medias Son *****');
        writeln;
        writeln('  La Media Del Hombre Es  : ',(hom / nh):0:2);
        writeln('  La Media De La Mujer Es : ',(muj / nm):0:2);
        writeln;
        writeln('  Pulse Una Tecla ');
        readln;
   end;
 
   procedure menu;
   var
     sal : boolean;
     tecla : char;
   begin
       sal := false;
    repeat
        clrscr;
        writeln('    ****** Menu Principal ******');
        writeln;
        writeln('    1 = Entrada Datos Nomina');
        writeln('    2 = Impresion Datos Empleados');
        writeln('    3 = Impresion Promedios Femenino Y Masculino');
        writeln('    4 = Salir');
        writeln;
        writeln('    <<<<< Elija Opcion >>>>>');
        repeat
        tecla := readkey;
        until tecla in['1','2','3','4'];
        clrscr;
     case tecla of
  '1' : entrada_datos_nomina;
  '2' : begin
          if cont > 0 then
          presenta_nominas
        else
          begin
          writeln('?????? No Datos De Nominas Pulse Una Tecla ??????');
          readln;
          end;
        end;
  '3' : begin
          if cont > 0 then
          prersenta_medias
        else
          begin
          writeln('?????? No Datos De Nominas Pulse Una Tecla ??????');
          readln;
          end;
        end;
  '4' : sal := true;
    end;
   until sal = true;
  end;
 
    begin
       cont := 0;
       menu;
    end.
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

muy agradecido...gracias...

Publicado por wilson (3 intervenciones) el 17/07/2013 05:56:13
gracias, me ha sido de mucha ayuda
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