https://www.youtube.com/watch?v=MnXlh1S1usM
, le youtuber présent un petit programme qu'il utilise pour comparer les performances entre les calculatrices...
Il donne même la source du petit programme pour toutes les calculatrices de toute marque confondue...
https://www.hpmuseum.org/cgi-sys/cgiwra ... i?read=700
Je trouve le sujet intéressent et je copie le dit programme dans ma ti-200,
Petit problème; quand je l'exécute la calculatrice me donne un message : Dimension ...
Quelqu'un a une idée... Merci !
- Code: Tout sélectionner
queen()
Prgm
Local a,n,r,s,t,x,y
8→r
newlist(r)→a
For n,1,10
0→s
0→x
Loop
x+1→x
r→a[x]
Loop
s+1→s
x→y
While y>1
y-1→y
a[x]-a[y]→t
If t=0 or x-y=abs(t) Then
0→y
a[x]-1→a[x]
While a[x]=0
x-1→x
a[x]-1→a[x]
EndWhile
EndIf
EndWhile
If y=1
Exit
EndLoop
If x=r
Exit
EndLoop
EndFor
Disp s
EndPrgm