[Pascal] Meses do ano

[knife]

Aqui fica outro programa feito por mim mas desta vez para dizer o mês do ano correspondente ao numero que digitar-mos (1 a 12).

Code Select Expand


program Meses;

uses crt;

var

valor:Integer;

Begin

clrscr;

writeln(\\'Este programa mostra o mes correspondente um numero\\');

writeln(\\'Introduza um numero de 1 a 12\\');

readln(valor);



case valor of

1:write(\\'O Numero corresponde ââ,¬Å¡ Janeiro\\');

2:write(\\'O Numero corresponde ââ,¬Å¡ Fevereiro\\');

3:write(\\'O Numero corresponde ââ,¬Å¡ Marââ,¬Â¡o\\');

4:write(\\'O Numero correspondente ââ,¬Å¡ Abril\\');

5:write(\\'O Numero correspondente ââ,¬Å¡ Maio\\');

6:write(\\'O Numero correspondente ââ,¬Å¡ Junho\\');

7:write(\\'O Numero correspondente ââ,¬Å¡ Julho\\');

8:write(\\'O Numero correspondente ââ,¬Å¡ Agosto\\');

9:write(\\'O Numero correspondente ââ,¬Å¡ Setembro\\');

10:write(\\'O Numero correspondente ââ,¬Å¡ Outubro\\');

11:write(\\'O Numero correspondente ââ,¬Å¡ Novembro\\');

12:write(\\'O Numero correspondente ââ,¬Å¡ Dezembro\\');

else write(\\'A operação nao ââ,¬Å¡ valida, tecle enter para sair!\\');

end;

readln;

end.