Algoritmos - dois laços e if - folha de pagamento

Feira de Santana

Algoritmos

28 de maio de 2014
Feira de Santana

Trabalho solicitado pela professora Renata, da disciplina: algoritmos, aos alunos: Da turma de Engenharia Civil, Primeiro semestre, noturno da
Faculdade de Tecnologia e Ciências de Feira de Santana.

28 de maio de 2014 O programa tem a função de realizar todos os cálculos necessários para o preenchimento da folha de pagamento mensal dos funcionários de uma determinada obra, sob responsabilidade de uma construtora, a obra possui 20 funcionários, dentre eles, pedreiros e serventes. Todas as horas extras de trabalho realizadas pelos funcionários deverão ser informadas, vale ressaltar que o valor da hora extra no turno da noite é o dobro dos demais turnos. O programa irá fazer todos os descontos padrões de FGTS, auxilio alimentação e vale transporte, com base no salário mínimo atual, bem como o calculo total de horas extras e a adição do valor do auxilio alimentação, resultando assim no salário final do funcionário da empresa.

Program salario_final_com_extras; var cont: integer; nht, het, sal_min, aux, sal_final: real; nome,categoria,turno:string;
Begin
sal_min := 724; for cont := 1 to 20 do begin writeln('Digite o nome do ',cont,'funcionario'); readln(nome); writeln('Digite o numero de horas extras trabalhadas do ',cont,'funcionario'); readln(nht); writeln('Digite o turno de trabalho das horas extras ',cont,'funcionario'); readln(turno); while (turno 'matutino') and (turno 'vespertino') and (turno 'noturno') do begin writeln('Turno invalido, digite novamente'); readln(turno); end; writeln('Digite a categoria do ',cont,'funcionario'); readln(categoria); while (categoria 'pedreiro') and (categoria 'servente') do begin writeln('Categoria invalida, digite novamente'); readln(categoria); end; if categoria = 'pedreiro' then begin if