calcular aumento de salário salario pascal

[FAWAUGHAN]

Olá pessoal boa tarde estou com uma dúvida criei um programa em pascal que recebe o salario do funcionário

e recebe um novo salario com aumento de 25% gostaria de saber se o código estar correto.

Aguardo uma resposta  

 

 

program calcsalario;
uses crt; 

var sal,novo_sal,aumento:real;


begin 
clrscr;

writeln('digite o salario do funcionario');

readln(sal);



aumento:= sal * 25/100;
novo_sal:= aumento;

writeln('O novo salario e :',novo_sal:6:2);
readkey();
end. 

 

[willink0]

esta errado a formula, a correta seria "aumento:= sal + (sal*25/100)" e também poderia jogar direto no novo_sal eliminando uma variável.

[FAWAUGHAN]

Muito obrigado pela ajuda 

[Simon Viegas]

Olá a todos;

 

Um adendo:

 

Em 30/11/2016 às 16:54, willink0 disse:

esta errado a formula, a correta seria "aumento:= sal + (sal*25/100)" e também poderia jogar direto no novo_sal eliminando uma variável.

 

Essa conta do aumento tem um errinho. Pois o "aumento" é o que "vai ser aumentado". Mas esse cálculo, como @willink0 mesmo sugere, é do novo salário em si. (são coisas próximas, mas distintas)

 

Aumento:

aumento:= sal * 25/100;

 

Novo salário:

novo_sal:=sal + aumento;

 

ou como sugerido por @willink0:

 

novo_sal:=sal + (sal*25/100); //valor atual + 25% do valor atual

 

***

 

No aguardo