Galera To Tentando Fazer Um Algoritmo de Registro, Já Tentei de Todas

[ThOliveiira26 0]

UM ALGORITMO DE FREQUENCIA DE FUNCIONARIOS.
1. O Programa Devera Solicitar a Quantidade de Funcionarios Que deseja Cadastra Antes de Iniciar o Cadastro Principal.
2. Informar os Nome do Funcionario.
3. CPF
4. Cargo
5. Informar Beneficios e Valor dos Descontos de Cada Beneficio(ex. Plano de Saude, Previdenciario, Odontoligico)
6. Informar o Salario do Funcionario
7. Regime de Contratação (CLT 40hs ou Horista 20hs)
a. Se For CLT Informar Salario
b. Se For Horista Informar Valor/Hora
8.Quando os Funcionarios Estiverem Cadastrado Devera Aparecer Um Lista Com os Cadastros
9. O Usuario Devera Escolher Um Fucionario da Lista e Informar
a. Horas Trabalhadas na Semana 1
b. Horas Trabalhadas na Semana 2
c. Horas Trabalhadas na Semana 3
d. Horas Trabalhadas na Semana 4
10. O Programa Devera Informar Se O Funcionario Tem Horas Extras a Receber ou Se Ele Esta Devedo Horas
11. Caso Ele Tenha Horas Extras, devera Informar Seu Salario + as Horas Extras do Contrario Informar Salario e Valor devido das Horas Trabalhadas
12. No Final o Programa Deve Emitir Tipo Um Contra Cheque Com:
Nome, CPF, Cargo, Salario Bruto, Desconto Especificados (Beneficios, Impostos) , Acrescimo Especificados(Hora Extra/Decimo Terceiro), Salario Liquido a Receber.

[snowstormdelivery 19]

Amigo, então escreva o exato local onde não consegues evoluir, ou seja, escreva os códigos que já desenvolveu e onde está dando erro.
Não podemos simplesmente dar a resposta, só te encaminhar para a direção de raciocínio correto, ou dizer onde o código está dando erro.

Quando responder a questão acima, aproveite e fale-nos se usas o VisuAlg.

Até mais!

[ThOliveiira26 0]

...

[ThOliveiira26 0]

Amigo, então escreva o exato local onde não consegues evoluir, ou seja, escreva os códigos que já desenvolveu e onde está dando erro.

Não podemos simplesmente dar a resposta, só te encaminhar para a direção de raciocínio correto, ou dizer onde o código está dando erro.

Quando responder a questão acima, aproveite e fale-nos se usas o VisuAlg.

 

Até mais!

 

Program Frequencia;

Uses Crt;

Var

HorasTrab : array[1..100,1..4] of integer;

P_Saude, P_Prev, P_Odontologico, V_Transp, V_Alim, Sal_Func:Real;

I , Quant: Integer;

Nome, Cargo : String;

Regime : Char;

CPF : Boolean;

Begin

WriteLn ('###########################################################');

WriteLn ('###########################################################');

WriteLn ('### *TABELA DE FREQUENCIA* ###');

WriteLn ('###########################################################');

WriteLn ('###########################################################');

//Tela de Cadastros.

WriteLn (' __________________________________________________________ ');

WriteLn ('Informe a Quantidade de Funcionarios Que Deseja Cadastrar? ');

ReadLn (Quant);

WriteLn (' __________________________________________________________ ');

WriteLn (' ');

WriteLn (' ');

For I:= 1 to Quant do

WriteLn ('Informe o Nome do Funcionario.');

ReadLn (Nome);

WriteLn ('Informe o CPF do Funcionario.');

ReadLn (CPF);

WriteLn ('Informe o Cargo do Funcionario.');

ReadLn (Cargo);

WriteLn ('Informe o Salario do Funcionario.');

ReadLn (Sal_Func);

WriteLn ('Informe o Regime de Contratação. (CLT"40hs"[1] ou Horista"20hs"[2]');

ReadLn (Regime);

Case (Regime) Of

1: Begin

WriteLn ('Regime CLT"40hs"');

WriteLn ('Salario' , Sal_Func);

End;

2: Begin

WriteLn ('Regime Horista"20hs"');

WriteLn ('Informe o

End;

End;

WriteLn (' __________________________________________________________ ');

WriteLn ('| INFORME OS DESCONTOS PREVISTOS NA FOLHA DO FUNCIONARIO |');

WriteLn ('|__________________________________________________________|');

WriteLn ('');

WriteLn ('Plano de Saude. [%]');

ReadLn (P_Saude);

WriteLn ('Plano Previdenciario. [%]');

ReadLn (P_Prev);

WriteLn ('Plano Odontologico. [%]');

ReadLn (P_Odontologico);

WriteLn ('Vale Transporte. [%]');

ReadLn (V_Trasnp);

WriteLn ('Vale Alimentacao. [%]');

ReadLn (V_Alim);

//Apartir Daqui Deu Bug na Minha Logica KKkkk

ReadKey;

End.