Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

vascoprogramador

programa (case of)

Mensagens Recomendadas

vascoprogramador    0
vascoprogramador

Pessoal preciso de ajuda urgente para fazer 1 programa que leia o ordenado de 1 funcionario e o nº de horas que este trabalhou e que calcule o vencimento!!

PROGRAM HorasExtra(INPUT,OUTPUT);

VAR horas:INTEGER;

    venc,quantia:REAL;

BEGIN

     REPEAT

           WRITE('Qual o vencimento base do funcion rio ? ');

           READLN(venc)

     UNTIL venc>=0;

     REPEAT

           WRITE('Quantas horas extra fez o funcion rio ? ');

           READLN(horas)

     UNTIL horas>0;

     CASE horas OF

          1..10:quantia:=(venc*(1/50))*horas;

         11..20:quantia:=(venc*(1/45))*horas;

         21..30:quantia:=(venc*(1/35))*horas;

         31..40:quantia:=(venc*(1/25))*horas

         ELSE quantia:=(venc*(1/10))*horas

     END;

     WRITELN('O vencimento total ‚ ',venc+quantia:8:4)

END.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade