Bem, a minha dúvida é sobre Estruturas de Repetição (Disciplina: Introdução à Ciência da Computação). Resolvi um exercício, mas o resultado final não é o mesmo do programa pronto. Enunciado: "Um funcionário de uma empresa recebe aumento salarial anualmente. Sabe-se que:
a) Esse funcionário foi contratado em 2005, com salário inicial de R$ 1000.00.
b) Em 2006, ele recebeu aumento de 1.5% sobre seu salário inicial.
c) A partir de 2007 (inclusive), os aumentos salariais sempre corresponderam ao dobro do percentual do ano anterior.
Faça um programa que determine o salário atual desse funcionário.
Observações: na minha resolução, s5 significa 'salário em 2005'; s6, 'salário em 2006'; s, 'salário'; a, 'aumento';
Resposta correta: 13036.15.
Minha resolução:
PROGRAM NOVA_TENTATIVA_EX01_ER;
var
s5, s6, s, a : real;
i : integer;
begin
s5 := 1000.00;
s6 := s5 + (0.015 * s5);
a := 0.015;
s := s6;
FOR i := 2007 TO 2013 DO
a := 2 * 0.015;
s := s + (a * s);
writeln;
write ('O salario atual do funcionario eh de: ', s:2:2);
readln;
end.
Por favor, onde está o erro ?? Obrigada!
.
