- Code: Tout sélectionner
Prgm
{H,D,M,N,year}:=1
While Year<1
If H=24 then
LBL G
H:=0
D+1->D
EndIf
If D=30 then
M+1->M
Goto L
EndIf
Rand(0,1000)->n
Disp n
Wait 86400
D:=1
Goto B
LBL L
If H=24 then
H:=0
D+1->D
EndIf
If D=31 then
M+1->M
Goto G
EndIf
Rand(0,1000)->n
Disp n
Wait 86400
D:=1
LBL B
If M=12 then
M:=1
Year+1->Year
Disp "Happy New Year !" For H=0 and D=1 and M=1
EndIf
H+1->H
EndWhile
EndPrgm
Je ne compte pas le faire faire par la calculatrice mais par un ordinateur Apple en définitive, plus rapide et plus simple à manipuler du coup utiliser l'heure de la calculatrice ne m'est pas utile...
Mais par contre comment je peux faire pour le :
For h=0 and D=1 and M=1
Si je veux le faire de façon compréhensible pour la calculatrice ?