• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vascoprogramador

programa (case of)

2 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Antes de mais: Bem vindo!

Por favor lê as regras deste fórum.

Segue o link na minha assinatura.

0

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