-
Lenguaje
Pascal
-
Descripción
Ingrese el nombre del trabajador, su sueldo básico y el número de hijos, se deberá mostrar su bonificación y el sueldo final. Tenga en cuenta que la empresa está dando una bonificación del 7% del sueldo básico sólo en el caso el trabajador tuviese hijos.
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
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
program BonificacionDel7;
uses crt;
var bonificacion, numero_de_hijos, sueldo_basico, sueldo_final : real;
var nombre_del_trabajador : string;
begin
write ('Ingresa el nombre del trabajador: ');
readln (nombre_del_trabajador);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
if numero_de_hijos>0 then
begin
bonificacion := sueldo_basico;
end
else
begin
bonificacion := 0;
end;
sueldo_final := sueldo_basico+bonificacion;
writeln ('Nombre del trabajador: ', nombre_del_trabajador);
writeln ('Valor de bonificacion: ', bonificacion:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bonificacion, numero_de_hijos, sueldo_basico, sueldo_final : real;
var nombre_del_trabajador : string;
begin
write ('Ingresa el nombre del trabajador: ');
readln (nombre_del_trabajador);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
if numero_de_hijos>0 then
begin
bonificacion := sueldo_basico;
end
else
begin
bonificacion := 0;
end;
sueldo_final := sueldo_basico+bonificacion;
writeln ('Nombre del trabajador: ', nombre_del_trabajador);
writeln ('Valor de bonificacion: ', bonificacion:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.