power
37 messages postés
depuis ven 28 jui 06
 
|
 vendredi 01 février 2008 00:00 ---.29.214.110.coditel.net
|
|
calculer le jour de son anniversaires en qbasic
petit programme en qbasic
CLS
DIM b$(12)
FOR i = 1 TO 12
READ b$(i)
NEXT i
i = 0
DATA "JANVIER","FEVRIER","MARS","AVRIL","MAI","JUIN"
DATA "JUILLET","AOUT","SEPTEMBER","OCTOBRE","NOVEMBRE","DECEMBER"
PRINT
PRINT "jj";
INPUT D
PRINT "Mn";
INPUT m
PRINT "AAAA";
INPUT A
S = A \ 100 MOD 4: b = A MOD 100
J = (b + b \ 4 + D - 2 * S + VAL(MID$("512503514624", m, 1)) + (m < 3) * (b MOD 4 <> 0 + (b = 0) * S <> 0)) MOD 7
FOR i = 0 TO J: READ N$: NEXT: PRINT "Le"; D; b$(m); A; "est :"; N$
END
DATA Dimanche,Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi
|
|
Accueil
Membres
Forum
Articles
Download
Sondages
Outils
Scriptland
Morbleu !
