Alp Datas Pascal

FACULDADE DE TECNOLOGIA DE SÃO PAULO
Algorítmos e Lógica de Programação

Trabalho para avaliação – 2º semestre de 2014
Título: Obtenção e Consistência de Datas.

Este trabalho em grupo consiste em obter uma data, consistir a mesma, isto é, verificar sua validade, em seguida obter a data do dia seguinte, como também a data do dia anterior.
Obtenção da data: sabemos que datas possuem 3 componentes: dia, mês e ano. Vamos ter pelo menos 3 variáveis do tipo INTEGER. Para obter a data, faremos uma leitura das 3 variáveis: dia, mês, ano.
Ex.: READLN(DIA, MÊS, ANO);
Consistência da data:
1. O mês deve variar de 1 a 12. Qualquer mês fora desse intervalo será inválido.
2. Os meses: Janeiro (01), Março (03), Maio (05), Julho (07), Agosto (08), Outubro (10) e Dezembro (12) são meses de 31 dias, invariavelmente.
3. Os meses Abril (04), Junho (06), Setembro (09) e Novembro (11) são meses de 30 dias, invariavelmente.
4. O mês de Fevereiro (02) possui normalmente 28 dias, mas nos anos bissextos, Fevereiro possui 29 dias
5. Os anos bissextos são anos divisíveis por 4 e não por 100, ou divisíveis por 400.
Formato da data:
Conforme o pais, a data pode se apresentar sob diferentes formatos. Temos 5 formatos os quais podem ser implementados neste trabalho:
Formato Britânico: DD/MM/AAAA, o mais usado no Brasil.
Formato Americano: MM/DD/AAAA
Formato Italiano: DD-MM-AAAA
Formato Germânico: DD.MM.AAAA
Formato ANSI: AAAA.MM.DD

Queremos que o formato da data fique o mais automatizado possível, e evitar de ter que perguntar pelo formato sempre que for ler ou escrever a data.

O que muda de um formato para outro: caracter separador e ordem dos termos. Assim, o programa deverá ter as seguintes variáveis globais:

FORMATO: variável tipo INTEGER, cujos valores serão:
1 para Britânico, 2 para Americano, 3 para Italiano, 4 para Germânico, 5 para ANSI.

COMPONENTES: um vetor de inteiros com 3 elementos, onde: componentes[1] é o dia, componentes[2] é o mês e