Pascal/Turbo Pascal - Necesito ayuda en un progra

   
Vista:

Necesito ayuda en un progra

Publicado por Steven Ulquiorracsr@gmail.com (1 intervención) el 20/04/2015 21:22:25
El sueldo base semanal sale aplicando la siguiente fórmula: horas_trabajo * precio_hora +
horasextra*preciohoraextra
El precio_hora es una constante=6. El preciohoraextra depende de las h.extra hechas: si
son menos de 10h extras semanales, el precio es un 50% mayor que el precio_hora (*
1,5). Si se hacen entre 10 y 20h extra, el precio es un 40% mayor. Si se hacen más de
20h, el precio es un 20% mayor.
 Si el trabajador es de categoría 3, el precio_hora es el constante.
 Si es de categoría 2; el precio_hora es un 25% mayor.
 si es de categoría 1 es un 45% más

Ademas deberá tener un menú: de preferencia que sea lo mas simple posible el programa.

Menú principal: permite seleccionar las principales opciones del programa.
Ingresar una nómina.
Salir: Sale del programa.

Es urgente es que el profesor lo mando y no nos ha enseñado a como meter menús estoy frustrado...
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

Necesito ayuda en un progra

Publicado por ramon (2072 intervenciones) el 20/04/2015 23:26:37
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
{Esto es el menú}
 uses
     crt;
 
procedure menu;
  var
    sal : boolean;
    tecla : char;
   begin
      sal := false;
    repeat
        clrscr;
        writeln('  **** Menu Jeneral ****');
        writeln;
        writeln('   1 =  lo que deseas ejecutar');
        writeln('   2 =  lo que deseas ejecutar');
        writeln('   3 =  lo que deseas ejecutar');
        writeln('   4 =  lo que deseas ejecutar');
        writeln('   5 =  lo que deseas ejecutar');
        writeln('   6 =  lo que deseas ejecutar');
        writeln('   7 = Salir');
        writeln;
        writeln('  <<<< Elija Opcion >>>>');
        repeat
            tecla := readkey;
        until tecla in['1','2','3','4','5','6','7'];
        clrscr;
     case tecla of
  '1' : procedimiento o funcion;
  '2' : procedimiento o funcion;
  '3' : procedimiento o funcion;
  '4' : procedimiento o funcion;
  '5' : procedimiento o funcion;
  '6' : procedimiento o funcion;
  '7' : sal := true;
    end;
    until sal = true;
   end;
 
  begin
 
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de César

Necesito ayuda en un progra

Publicado por César (1 intervención) el 21/04/2015 00:29:35
Muchas Gracias fue de gran ayuda, no tengo como agradecerlo!!!
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