Autor Tópico: [Pascal] Meses do ano  (Lida 1307 vezes)

Offline knife

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://helderpatinho.com
[Pascal] Meses do ano
« em: Novembro 09, 2007, 07:52:16 pm »
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).

Código: [Seleccione]

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.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49