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.