calendario turbo pascal

[banjoroad]

Salve avrei bisogno di un programma in turbo pascal che stampi sul video il calendario di un singolo mese dell'anno, spero che qualcuno mi possa aiutare,grazie!

 

[Dusy]

FUNCTION Giorno_della_settimana (Giorno, Mese, Anno: Integer): Integer;
BEGIN
IF (Mese < 3)
THEN
BEGIN
Mese := Mese + 12;
Anno := Anno - 1;
END;
Giorno_della_settimana := ((((Anno * 5) div 4) + (((Mese + 1) * 13) div 5) + Giorno + 4) mod 7);
END;


Con questa funzione ti ricavi il giorno della settimana...
[0..6] dove 0 è Lunedì e 6 è Domenica...
il resto è abbastanza semplice no???
Bastano due cicli e due vettori...

Che bello il Pascal così giallo e blu...
bei ricordi...CTRL F9...Syntax Error

Se hai bisogno del "dopo" chiedi pure...
ma almeno tenta...