Pascal/Turbo Pascal - CALCULAR LA NOMINA DE 10 TRABAJADORES

   
Vista:

CALCULAR LA NOMINA DE 10 TRABAJADORES

Publicado por Daniela (2 intervenciones) el 20/04/2017 20:33:50
SOLICITA:
NOMBRE:
DIAS DE TRABAJO:
SUELDO:
EL DIA LO PAGAS A 130 PESOS
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

CALCULAR LA NOMINA DE 10 TRABAJADORES

Publicado por David (170 intervenciones) el 20/04/2017 21:19:51
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Uses CRT;
 
const
  PRECIODIA = 130;
 
var
  NOMBRE : String;
  DIAS   : Byte;
  SUELDO : Integer;
 
begin
  Clrscr;
  Gotoxy(10,10); Writeln('Nombre: ');
  gotoxy(18,10); readln(nombre);
  gotoxy(10,12); Writeln('DIAS TRABAJADOS: ');
  gotoxy(27,12); readln(dias);
  SUELDO:=DIAS*PRECIODIA;
  gotoxy(10,14); Writeln('SUELDO: ', SUELDO,' PESOS');
  READLN;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

CALCULAR LA NOMINA DE 10 TRABAJADORES

Publicado por David (170 intervenciones) el 20/04/2017 23:22:43
Perdón por el lapsus, había entendido una sóla nómina. Te pongo la solución para 10

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
Uses CRT;
 
const
PRECIODIA = 130;
TOPE = 10;
 
var
NOMBRE : String;
DIAS : Byte;
SUELDO : Integer;
 
begin
   FOR I:=1 TO TOPE do
     begin
         Clrscr;
         Gotoxy(10,10); Writeln('Nombre: ');
         gotoxy(18,10); readln(nombre);
         gotoxy(10,12); Writeln('DIAS TRABAJADOS: ');
         gotoxy(27,12); readln(dias);
         SUELDO:=DIAS*PRECIODIA;
         gotoxy(10,14); Writeln('SUELDO: ', SUELDO,' PESOS');
    Writeln('Pulse una tecla para continuar');
readkey;
   end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar