Question

A jornada de trabalho semanal é de 40 horas. O funcionário que trabalhar
mais de 40 horas receberá hora extra, cujo valor é o valor da hora regular com
um acréscimo de 50 %. Escreva um algoritmo em portugol que leia o número de horas
trabalhadas em um mês, o salário por hora e escreva o salário total do
funcionário (considere que o mês possua 4 semanas exatas).

Answer 1

Resposta:

1. program hora40;
3. uses
4.  SysUtils;
6. var
7.   numeroHorasTrabalhadasUmMes: integer;
8.   salarioPorHora: double;
9.   salarioTotal: double;
10.   salario: double;
11.   valorHoraExtra: double;
12.   qtdHorasExtras: integer;
13.   salarioExtras: double;
15. begin
16.  { Parte 1 - Solicitando as informações ao usuário }
17.  Write(Utf8ToAnsi('Informe o número de horas trabalhadas em um mês: '));
18.  ReadLn(numeroHorasTrabalhadasUmMes);
20.  Write(Utf8ToAnsi('Informe o salário por hora: '));
21.  ReadLn(salarioPorHora);
23.  { Parte 2, calculando o salário }
24.  if numeroHorasTrabalhadasUmMes <= 160 then
25.  begin
26.   { Calcula o salário normal }
27.   salario := numeroHorasTrabalhadasUmMes * salarioPorHora;
29. { Não tem horas extras }
30. valorHoraExtra := 0;
31. end
32. else
33. begin
34.  { Calcula o salário normal que é referencia a 160 horas - 40 horas * 4 semanas }
35.   salario := 160 * salarioPorHora;
37. { Calculando as horas extras }
38. qtdHorasExtras := numeroHorasTrabalhadasUmMes - 160;
40. { Valor normal + 50% }
41.  valorHoraExtra := salarioPorHora + (salarioPorHora * 50) / 100;
43. { Valor total em horas extras }
44. salarioExtras := valorHoraExtra * qtdHorasExtras;
45. end;
47. { Calculando o salário total }
48. salarioTotal := salario + salarioExtras;
50. { Exibindo o salário total }
51. Writeln(Utf8ToAnsi('O salário total do funcionário acrescido com horas extras foi de: '),
52. FormatFloat('#0.00', salarioTotal));
54. WriteLn('Enter para fechar o programa.');
55. ReadLn;
56. end .