-
Lenguaje
Pascal
-
Descripción
Un profesor tiene un salario inicial de $1300 y recibe un incremento de 16% anual durante 8 años. ¿Cuál es su salario al cabo de 8 años? ¿Qué salario ha recibido en cada uno de los 8 años?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program IncrementoAlSalarioDeUnProfesor2;
uses crt, math;
var i : integer;
var salario_inicial, salario_recibido, year : real;
begin
for i:=1 to 8 do
begin
writeln ('PROCESO ', i);
salario_inicial := 1300;
year := i;
salario_recibido := salario_inicial*power(1.16,year);
writeln ('Valor de salario inicial: ', salario_inicial:0:6);
writeln ('Valor de salario recibido: ', salario_recibido:0:6);
writeln ('Valor de year: ', year:0:6);
writeln;
end;
end.
uses crt, math;
var i : integer;
var salario_inicial, salario_recibido, year : real;
begin
for i:=1 to 8 do
begin
writeln ('PROCESO ', i);
salario_inicial := 1300;
year := i;
salario_recibido := salario_inicial*power(1.16,year);
writeln ('Valor de salario inicial: ', salario_inicial:0:6);
writeln ('Valor de salario recibido: ', salario_recibido:0:6);
writeln ('Valor de year: ', year:0:6);
writeln;
end;
end.