-
Lenguaje
Pascal
-
Descripción
Una empresa necesita mostrar en pantalla el valor a pagar por concepto de utilidades a sus empleados. Todo empleado va a recibir $500 dólares de utilidad y aquellos empleados que tengan mas de 10 años de trabajo se les pagará un bono extra de $200 dólares. A esto tiene que sumarse $100 adicionales por cada hijo que tuviere el empleado. El proceso debe leer los años de trabajo del empleado, también debe leer el número de hijos que tiene y luego mostrar o imprimir, en base a las condiciones expuestas, el total a recibir por el empleado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program ConceptoDeUtilidades;
uses crt;
var anos_de_trabajo, numero_de_hijos, total_a_recibir : integer;
begin
write ('Ingresa el valor de anos de trabajo: ');
readln (anos_de_trabajo);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
total_a_recibir := 500+100*numero_de_hijos;
if anos_de_trabajo>10 then
begin
total_a_recibir := total_a_recibir+200;
end;
writeln ('Valor de total a recibir: ', total_a_recibir);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var anos_de_trabajo, numero_de_hijos, total_a_recibir : integer;
begin
write ('Ingresa el valor de anos de trabajo: ');
readln (anos_de_trabajo);
write ('Ingresa el valor de numero de hijos: ');
readln (numero_de_hijos);
total_a_recibir := 500+100*numero_de_hijos;
if anos_de_trabajo>10 then
begin
total_a_recibir := total_a_recibir+200;
end;
writeln ('Valor de total a recibir: ', total_a_recibir);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.