Problema di Pascal

[angie ;o)]

Ciao a tutti!
Se riuscite ad aiutarmi a fare funzionare questo programma siete mitici.. La prof nn ha la minima intenzione d spiegarcelo..
La traccia del problema è: "Data la data del giorno (g,m,a) stabilire se la data (g1,m1,a1) è antecedente o futura alla data del giorno.
Visualizza la scritta “Data passata” oppure “Data futura”."
Vi riporto sotto quello che ho provato a fare io con Pascal ma non funzione come dovrebbe..

Ciao ciao

PROGRAM DATA;
USES CRT;
VAR g,m,a,g1,m1,a1 : integer;
BEGIN
CLRSCR;
WRITELN ('Inserisci il giorno corrente');
READLN (g);
WRITELN ('Inserisci il mese corrente');
READLN (m);
WRITELN ('Inserisci l anno corrente');
READLN (a);
WRITELN ('Inserisci un giorno');
READLN (g1);
WRITELN ('Inserisci un mese');
READLN (m1);
WRITELN ('Inserisci un anno');
READLN (a1);
WRITELN;
IF a1>a
then
WRITELN ('Data futura')
else
IF (m1>m) AND (g1<g)
then
WRITELN ('Data futura')
else
WRITELN ('Data passata');
READLN;
END.

[gokan]

Così su due piedi la prima cosa che mi viene in mente è fare un controllo sull'anno:

if a1>a then "la data con a1 è successiva"

Un pò più complesso è il caso in cui, a parità di anno verifichi il mese, ti conviene memorizzarti i mesi in qualche struttura dati e verificare fare un controllo come sopra..

Nel caso in cui anche i mesi coincidono allora verifichi il giorno, questo lo fai come nel caso dell'anno..

Ciao

[angie ;o)]

nn è ke devo fare "if m1>m" e poi "if g1>g"???
Xè nn ho capito cs m hai dtt.. Sn 2 settimane ke faccio pascal..
Sorry..
Ciao ciao e grazie

[gokan]

Prima controlli se le due date hanno lo stesso anno, giusto?
E' ovvio che se i due anni sono diversi, significa che uno viene prima dell'altro e che quindi non è necessario andare a verificare sia il mese che il giorno per stabilire se una data precede un'altra.
A parità di anno, si controllano i mesi. I mesi sono Gennaio, Febbraio etc, questi non li puoi verificare semplicemente facendo:

if gennaio < aprile then . ..

perchè il compilatore fa una verifica lessicografica (ossia in ordina alfabetico), in questo caso, infatti aprile < gennaio.
Potresti fare, in maniera banale (penso che si possa fare in pascal, non sono sicuro).

const gennaio=1, febbraio=2 .... dicembre=12

e poi provare a vedere se il confronto

if gennaio<aprile (cioè 1<4)

funziona

[Eyescream]

se tu riuscissi a traformare la tue date in interi del tipo
YYYYMMDD potresti confrontarli direttamente.
esempio
data=anno*10000 + mese*100 + giorno;

[angie ;o)]

Grazie 1000! ce l'ho fatta.. era solo un segno sbagliato..
Ciao ciao e ancora grazie