Resolver Exercicios de Pascal zim

[Fabioalfc]

Olá pessoal, Boa Noite,

Gostaria de ajuda com os seguintes exercicios.

Faça um programa que receba o código correspondente ao cargo de um funcionário e imprima seu cargo e o percentual de aumento ao qual este funcionário tem direito seguindo a tabela abaixo.

Código Cargo Percentual

1 Escriturário 50%

2 Secretário 35%

3 Caixa 20%

4 Gerente 20%

5 Diretor Não tem aumento

-------------------------------------------------------------------------

8) Faça um programa que mostre um menu com as seguintes opções:

 soma

 raiz quadrada

 Finalizar

O programa deve receber a opção desejada, receber os dados necessários para a operação de cada opção, realizar a operação e imprimir o resultado. Na opção finalizar nada deve acontecer.

-------------------------------------------------------------------------

10)Faça um programa que receba o valor do salário mínimo, o número de horas trabalhadas, o número de dependentes do funcionário e a quantidade de horas extras trabalhadas. Calcule e imprima o salário a receber do funcionário seguindo as regras abaixo:

 O valor da hora trabalhada é igual a 1/5 do salário mínimo;

 O salário do mês é igual ao número de horas trabalhadas vezes o valor da hora trabalhada;

 Para cada dependente acréscimo de 32 reais;

 Para cada hora extra trabalhada o cálculo do valor da hora trabalhada acrescida de 50%;

 O salário bruto é igual ao salário do mês mais os valores dos dependentes mais os valores das horas extras;

 O cálculo do imposto de renda retido na fonte segue a tabela abaixo:

IRRF Salário Bruto

Isento Inferior a 200

10% De 200 até 500

20% Superior a 500

 O salário líquido é igual ao salário bruto menos o IRRF;

 A gratificação segue a próxima tabela:

Salário Líquido// Gratificação

Até 350 100 reais

Superior a 350 50 reais

 O salário a receber do funcionário é igual ao salário líquido mais a gratificação.

[DiF]

e qual a sua duvida? posta o que você fez. nao espere que façamos eles.

abraço

[Daniel P. Barros]

o tempo que gasto para escrever, se é que nao copiou tambem, ja teria feito 2 exercicios.

lamentável.

[Fabioalfc]

ola pessoal consegui resolver dois so falta o ultimo.

vou postar os prontos e logo posto o outro , se tiver alguma duvida eu informo

1°

Program Pzim ;

var codigo,sl:integer;

Begin

writeln(' Digite seu codigo');

readln(codigo);

case codigo of

1:begin

writeln(' Cargo: Escriturário, aumento de 50%');

writeln(' Digite seu salário');

readln(sl);

writeln(' Seu novo salário é: ', sl+(sl*50)/100:2:2);

end;

2:begin

writeln(' Cargo: Secretário, aumento de 35%');

writeln(' Digite seu Salário');

readln(sl);

writeln(' Seu novo salário é: ', sl+(sl*35)/100:2:2);

end;

3:begin

writeln(' Cargo: Caixa, aumento de 20%');

writeln(' Digite seu Salário');

readln(sl);

writeln(' Seu novo salário é: ', sl+(sl*20)/100:2:2);

end;

4:begin

writeln(' Cargo: Gerente, aumento de 20%');

writeln(' Digite seu Salário');

readln(sl);

writeln(' Seu novo salário é: ', sl+(sl*20)/100:2:2);

end;

5:writeln(' Cargo: Diretor, Não Tem Aumento');

else

writeln(' Codigo inválido');

end;

End.

2°

Program Pzim ;

var soma,raiz,n1,n2,opcao:integer;

Begin

writeln('Digite: 1.Soma, 2.Raiz quadrada, 3.Finalizar : ');

readln(opcao);

case opcao of

1: begin

writeln(' Digite um numero: ');

readln(n1);

writeln(' Digite outro numero: ');

readln(n2);

writeln(' A Soma dos numeros são: ', n1+n2);

end;

2: begin

writeln(' Digite o numero: ');

readln(n1);

writeln(' A Raiz Quadrada do numero é: ', sqrt(n1):2:2)

end;

3: begin

writeln('')

end;

end;

END.

[Fabioalfc]

Ola pessoal aqui esta o ultimo.

Gostaria de saber se esta legal, se tem outras formas de fazer, um jeito mais simples ou é assim mesmo?

Obigado a todos.

Program Salario ;

var SM,HE,HT,vh,DP,SB,irrf,sl:real;

Begin

WRITELN('Digite o valor do salario minimo');

readln(sm);

writeln('Digite a quantidade de horas trabalhadas');

readln(HT);

ht:= HT*((SM*1)/5);

vh:= (SM*1)/5;

writeln('Digite o número de dependentes');

readln(DP);

DP:=DP * 32;

writeln('Digite a quantidade de horas extra');

readln(HE);

HE:=he*( vh+(vh*50)/100);

SB:=ht+he+dp;

Writeln(' Seu salario do mês é: ', HT :2:2);

writeln(' O valor das Suas Horas extra é : ', HE:2:2);

writeln(' Seu salário Bruto é : ', SB:2:2);

IF (SB>200) AND (SB<500) THEN begin

irrf:=(sb*10)/100;

WRITELN(' O Valor do seu IRRF é de: ', irrf :2:2 )

end;

begin

IF (SB>500) THEN begin

irrf:=(sb*20)/100;

WRITELN(' O Valor do seu IRRF é de: ',irrf :2:2)

end

else

if (sb<200) then

writeln(' "Você esta isento do IRRF"');

end;

begin

sl:= sb-irrf;

Writeln(' Seu salario liquido é de: ', sl :2:2);

if (sl<350) then begin

Writeln(' Sua Gratificação é de: 100 R$');

writeln(' Seu Salario será de: ', sl+100 :2:2)

end

else begin

if (sl>350) then

Writeln(' Sua Gratificação é de: 50 R$');

writeln(' Seu Salario será de: ', sl+50 :2:2);

end;

end;

End.