GUJ Discussões   :   últimos tópicos   |   categorias   |   GUJ Respostas

Pascal - Enumeração de meses


#1

Iai galera, blz? Estou com um problema para fazer essa questão. A questão é a seguinte:

Construa uma estrutura heterogênea que modele uma data incluindo dia, mês e ano. Use uma enumeração para representar os meses.

Sobre a parte de contruir uma uma estrutura eu ja fiz, entretanto não obtive exito na criação de uma enumeração para os meses. Codigo:

Program heterogeno ;

  type

             data = record

             dia : integer;

             mes : integer;

             ano : integer;

             end;

  var

  novaData : data;

Begin

  writeln('Data Informada');

  writeln('Informe o Dia:');

  readln(novaData.dia);

  writeln('Informe o Mes:');

  readln(novaData.mes);

  writeln('Informe o Ano:');

  readln(novaData.ano);

  writeln();

  writeln('###################');

  write('#### ',novaData.dia);

  write('/');

  write(novaData.mes);

  write('/');

  writeln(novaData.ano,' ####');

  writeln('###################');

readkey;

End.

Alguem pode me ajudar? Nas minhas pesquisas pela web não obtive nenhuma ajuda precisa.


#2

Sua dificuldade é qual exatamente? Criar a enumeração ou usá-la como atributo?

Veja esse exemplo de enumerações em Pascal (usando meses, ainda por cima): http://wiki.lazarus.freepascal.org/Enumerated_types

Abraço.


#3

Com relação a enumeração para os meses, deve-se criar um tipo específico para os meses que podem ter os valores de 1 a 12.


#4

Você pode definir o valor de uma das enumerações, e valores subsequentes terão o valor da enumeração anterior + 1. Ou seja:

type
  Meses = (Janeiro := 1, Fevereiro, Marco, Abril, Maio, Junho, Julho, Agosto, Setembro, Outubro, Novembro, Dezembro);

Nesse caso, Fevereiro terá valor 2, Marco será 3, e assim sucessivamente. Exemplo: https://ideone.com/rKVlEK

Abraço.