-
Lenguaje
Pascal
-
Descripción
Un ingeniero que tiene un salario de $10,500, recibe un incremento de 10% anual durante 6 años. ¿Cuál es su salario al cabo de 6 años? ¿Qué salario ha recibido en cada uno de los 6 años? Realice el algoritmo que calcule y muestre los datos solicitados.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program IncrementoAlSalarioDeUnIngeniero;
uses crt, math;
var i : integer;
var salario_en_el_ano, salario_inicial : real;
begin
for i:=1 to 6 do
begin
writeln ('PROCESO ', i);
salario_inicial := 10500;
salario_en_el_ano := salario_inicial*power(1.1,i);
writeln ('Valor de salario en el ano: ', salario_en_el_ano:0:6);
writeln ('Valor de salario inicial: ', salario_inicial:0:6);
writeln;
end;
end.
uses crt, math;
var i : integer;
var salario_en_el_ano, salario_inicial : real;
begin
for i:=1 to 6 do
begin
writeln ('PROCESO ', i);
salario_inicial := 10500;
salario_en_el_ano := salario_inicial*power(1.1,i);
writeln ('Valor de salario en el ano: ', salario_en_el_ano:0:6);
writeln ('Valor de salario inicial: ', salario_inicial:0:6);
writeln;
end;
end.