-
Lenguaje
Pascal
-
Descripción
Los ingenieros de sistemas han sido contratados por la empresa "Casinos Asociados" para realizar una aplicación que permita determinar el valor a pagar a cada empleado por trabajar en su casino. Cada empleado que labora en su casino tiene un nombre, el valor de la hora y el número de horas trabajadas. Cada trabajador tiene un descuento del 7% sobre el salario bruto, determinar el salario neto a pagar.
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
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
program CasinosAsociados;
uses crt;
var descuento, numero_de_horas_trabajadas, salario_bruto, salario_neto, tarifa_por_hora : real;
var nombre : string;
var tecla_repetir : char;
begin
repeat
clrscr;
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de numero de horas trabajadas: ');
readln (numero_de_horas_trabajadas);
write ('Ingresa el valor de tarifa por hora: ');
readln (tarifa_por_hora);
salario_bruto := numero_de_horas_trabajadas*tarifa_por_hora;
descuento := salario_bruto*0.07;
salario_neto := salario_bruto-descuento;
writeln ('Nombre: ', nombre);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de salario bruto: ', salario_bruto:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
end.
uses crt;
var descuento, numero_de_horas_trabajadas, salario_bruto, salario_neto, tarifa_por_hora : real;
var nombre : string;
var tecla_repetir : char;
begin
repeat
clrscr;
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de numero de horas trabajadas: ');
readln (numero_de_horas_trabajadas);
write ('Ingresa el valor de tarifa por hora: ');
readln (tarifa_por_hora);
salario_bruto := numero_de_horas_trabajadas*tarifa_por_hora;
descuento := salario_bruto*0.07;
salario_neto := salario_bruto-descuento;
writeln ('Nombre: ', nombre);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de salario bruto: ', salario_bruto:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
end.