-
Lenguaje
Pascal
-
Descripción
Una empresa desea calcular si sus empleados cumplen con las condiciones para un bono anual, dicho bono solo pueden recibirlo los empleados cuyo puntaje acumulado sea mayor a 80 puntos (de 100 posibles), además de ello no pueden tener registradas inasistencias o llamados de atención, a partir de allí la empresa necesita un programa que permita calcular si el empleado aplica para recibir el bono anual.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program CondicionesParaUnBonoAnual;
uses crt;
var numero_de_inasistencias, numero_de_llamados_de_atencion, puntaje_acumulado : integer;
begin
write ('Ingresa el valor de numero de inasistencias: ');
readln (numero_de_inasistencias);
write ('Ingresa el valor de numero de llamados de atencion: ');
readln (numero_de_llamados_de_atencion);
write ('Ingresa el valor de puntaje acumulado: ');
readln (puntaje_acumulado);
if (puntaje_acumulado>80) and (numero_de_inasistencias=0) and (numero_de_llamados_de_atencion=0) then
begin
writeln ('El empleado s'#161' aplica para recibir el bono anual.');
end
else
begin
writeln ('El empleado no aplica para recibir el bono anual.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numero_de_inasistencias, numero_de_llamados_de_atencion, puntaje_acumulado : integer;
begin
write ('Ingresa el valor de numero de inasistencias: ');
readln (numero_de_inasistencias);
write ('Ingresa el valor de numero de llamados de atencion: ');
readln (numero_de_llamados_de_atencion);
write ('Ingresa el valor de puntaje acumulado: ');
readln (puntaje_acumulado);
if (puntaje_acumulado>80) and (numero_de_inasistencias=0) and (numero_de_llamados_de_atencion=0) then
begin
writeln ('El empleado s'#161' aplica para recibir el bono anual.');
end
else
begin
writeln ('El empleado no aplica para recibir el bono anual.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.