-
Lenguaje
Pascal
-
Descripción
A pesar de la pandemia, los 45 empleados que trabajan en el departamento de ventas de la empresa Acme, ha logrado mantener un nivel aceptable de ventas, para lo cual la empresa desea premiar a la persona con mayor años de antigüedad del departamento con un bono de $50,000 por cada año de antigüedad, se pide que muestre la cantidad de años que pertenece al departamento y cual es bono.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program BonoPorMayorAntiguedad;
uses crt;
var anos_de_antiguedad, i, mayor_antiguedad : integer;
var bono : real;
begin
mayor_antiguedad := 0;
bono := 0;
for i:=1 to 45 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de anos de antiguedad: ');
readln (anos_de_antiguedad);
if (i=1) or (mayor_antiguedad<anos_de_antiguedad) then
begin
mayor_antiguedad := anos_de_antiguedad;
end;
writeln;
end;
bono := mayor_antiguedad*50000;
writeln ('Valor de mayor antiguedad: ', mayor_antiguedad);
writeln ('Valor de bono: ', bono:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var anos_de_antiguedad, i, mayor_antiguedad : integer;
var bono : real;
begin
mayor_antiguedad := 0;
bono := 0;
for i:=1 to 45 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de anos de antiguedad: ');
readln (anos_de_antiguedad);
if (i=1) or (mayor_antiguedad<anos_de_antiguedad) then
begin
mayor_antiguedad := anos_de_antiguedad;
end;
writeln;
end;
bono := mayor_antiguedad*50000;
writeln ('Valor de mayor antiguedad: ', mayor_antiguedad);
writeln ('Valor de bono: ', bono:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.