Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ayuda por favor :SSSSSSSSSSSSSsss

Pascal/Turbo Pascal - ayuda por favor :SSSSSSSSSSSSSsss

Volver
Nuevo Tema
<<>>
 
Vista:

ayuda por favor :SSSSSSSSSSSSSsss

Publicado por eduardo (13 intervenciones) el 20/06/2013 03:13:31
nesecito ayuda con estos 2 ejercicios o estos 2 programas por favor :S

1)En una empresa se requiere calcular el salario semanal de cada uno de los n obreros que laboran en ella. El salario se obtiene de la sig forma:

Si el obrero trabaja 40 horas o menos se le paga $20 por hora

si trabaja mas de 40 horas se le paga $20 por cada una de las primeras 40 horas y $25 por cada hora extra.
--------------------------------------------------------------------------------------------------------------------------------------------

2)Diseñe un diagrama que lea los 2.500.000 votos otorgados a los 3 candidatos a gobernador e imprima el numero del candidato a ganador y su cantidad de votos.

estos 2 programas la verdad no se como hacerlos por favor alguien me puede ayudar ?

NOTA: los 2 programas tienen que estar separados es decir no se debe unir a los 2 programas codificando 1 solo Gracias :)
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

ayuda por favor :SSSSSSSSSSSSSsss

Publicado por ramon (2158 intervenciones) el 20/06/2013 14:26:43
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
{Mira esto esta por procedimiento es una ayuda ponlo a tu manera}
 
 program curro;
  uses
     crt;
   const
    obreros = 5;
    a40 = 20;
    extra = 25;
 
  type
     salarios = record
          obrer : integer;
          horas : integer;
          salar : real;
         end;
 
   var
     currant : array[1..obreros] of salarios;
     cont : integer;
     candi : array[1..3] of longint;
 
  procedure entradas;
  begin
     for cont := 1 to obreros do
     begin
     clrscr;
     writeln('**** Entradas Horas Trabajadas Por Obrero ****');
     writeln;
     currant[cont].obrer := cont;
     write('    Entre Horas Obrero Num.',cont,' : ');
     readln(currant[cont].horas);
     end;
   end;
 
   procedure calculosalario;
   var
      dd : integer;
      resto : integer;
   begin
      for dd := 1 to obreros do
      begin
         resto := 0;
         resto := currant[dd].horas - 40;
         if resto > 0 then
         begin
            currant[dd].salar := ((40 * a40) + (resto * extra));
         end
       else
          begin
             currant[dd].salar := (40 * a40);
          end;
      end;
   end;
 
   procedure presentaresultados;
   var
     i : integer;
   begin
       clrscr;
       writeln('  <<<< Resultado Sueldos Obreros >>>>');
       writeln;
       for i := 1 to obreros do
       begin
       writeln('Obrero Num.',i,' Horas : ',currant[i].horas,'  Salario : ',
                              currant[i].salar:0:2);
       end;
   end;
 
   procedure asignavotos;
   var
      votant : longint;
      resu : longint;
      t : integer;
   begin
      votant := 2500000 div 3;
      randomize;
      for t := 1 to 3 do
      begin
      resu := random(votant);
      candi[t] := resu;
      end;
   end;
 
   procedure ganador;
   begin
         if candi[1] > candi[2] then
         begin
           if candi[1] > candi[3] then
           writeln('  Candidato Ganador Num 1 : ',candi[1],' Votos')
         else
           writeln('  Candidato Ganador  Num 3 : ',candi[3],' Votos');
          end
        else
           begin
           if candi[2] > candi[3] then
           writeln('  Candidato Ganador Num 2 : ',candi[2],' Votos')
         else
           writeln('  Candidato Ganador Num 3 : ',candi[3],' Votos');
         end;
       end;
 
  begin
      entradas;
      calculosalario;
      presentaresultados;
      asignavotos;
      writeln;
      writeln('Candidato Ganador');
      writeln;
      ganador;
      writeln('  Pulsa Una Tecla');
      readkey;
  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