Crie um algoritmo que a partir do número digitado de 1 a 12, exiba qual o mês correspondente
Pseudocódigo:
programa exercicio1
var
n : inteiro;
inicio
leia n;
escolha (n)
1: escreva "Janeiro";
2: escreva "Fevereiro";
3: escreva "Março";
4: escreva "Abril";
5: escreva "Maio";
6: escreva "Junho";
7: escreva "Julho";
8: escreva "Agosto";
9: escreva "Setembro";
10: escreva "Outubro";
11: escreva "Novembro";
12: escreva "Dezembro";
senao
escreva "Mês Inválido"
fim_escolha;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 14/04/2010
Program exercicio1;
uses crt;
var
numero : integer;
Begin
writeln('Insira um Numero de 1 a 12');
readln(numero);
case (numero) of
1: writeln('Mes', numero, ' = Janeiro');
2: writeln('Mes', numero, ' = Fevereiro');
3: writeln('Mes', numero, ' = Marco');
4: writeln('Mes', numero, ' = Abril');
5: writeln('Mes', numero, ' = Maio');
6: writeln('Mes', numero, ' = Junho');
7: writeln('Mes', numero, ' = Julho');
8: writeln('Mes', numero, ' = Agosto');
9: writeln('Mes', numero, ' = Setembro');
10: writeln('Mes', numero, ' = Outubro');
11: writeln('Mes', numero, ' = Novembro');
12: writeln('Mes', numero, ' = Dezembro');
else
writeln('Mes Invalido');
end;
writeln('Pressione para fechar');
readkey;
End.
Veja também:
