Dúvidas e auxílio para solucionar exercício (Pascal)

[nick_ito]

Para determinar o dia da semana a que corresponde uma data dada por

três variáveis A, M, D, correspondendo respectivamente ao valor do ano, mês e dia (todas inteiras, com 1 ≤ D ≤ 31, 1 ≤ M ≤ 12, A ≥ 1582) pode-se usar o seguinte algoritmo:

(Primeiro deve-se calcular um valor FATOR:)

Se o mês for Janeiro ou Fevereiro:

FATOR = 365 × A + 31 × (M – 1) + D + INT((A – 1)/100 + 1)

Para os meses restantes:

FATOR = 365 × A + 31 × (M – 1) + D – INT(0.4 × M + 2.3) + INT(A/4) – INT(0.75 ×(INT(A/100) + 1))

O dia da semana é então dado por SEMANA = (FATOR MOD 7) com a correspondência 0≡sábado, 1≡domingo, 2≡segunda, ..., 6≡sexta.

Escreva um subprograma FUNCTION SEMANA(D,M,A) em Pascal que determina

o dia da semana de uma data caracterizada por D,M,A. Além disso, escreva um programa principal que use a função anterior para tabelar o dia da semana do Natal do ano 2000 até o ano de 2013 (inclusive).

Gostaria de ideias para resolver esse exercicio.

Obrigado

[FIRE_Scheifer]

Caro usuário,

 

Seja bem-vindo ao Fórum do Clube do Hardware.

 

No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware.

 

Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a sua resposta está certa ou não, ou para que possamos ajudá-lo com a sua dúvida no desenvolvimento do exercício.

 

Infelizmente, não temos como resolver seus trabalhos por você. O objetivo do Fórum do Clube do Hardware é auxiliar você a sanar suas dúvidas, e não de responde-las em seu lugar. Além disso, copiar e colar respostas que não são de sua autoria é considerado plágio, o que é ilegal.

 

Esperamos que compreenda.

 

Atenciosamente,

Equipe Clube do Hardware