Mes petits programmes

→ **MyCalcs** profile · de **Dark Fox** » 11 Nov 2007, 20:22

ok merci mais tu est sur de :

Code: Tout sélectionner: If non(R

ça signifie quoi ? et si je le rajoute ma Ti mets un message d'erreur

→ **MyCalcs** profile · de **tama** » 11 Nov 2007, 20:54

ça serait If not(R

not(X = si X est différent de 0, retourne 0, sinon retourne 1

→ **MyCalcs** profile · de **Dark Fox** » 13 Nov 2007, 20:06

tama a écrit:ça serait If not(R

not(X = si X est différent de 0, retourne 0, sinon retourne 1

retourne 0 ? par rapport à quoi ?

→ **MyCalcs** profile · de **tama** » 13 Nov 2007, 21:18

bah retourne le nombre 0...'comprends pas ta question...

→ **MyCalcs** profile · de **charognard** » 13 Nov 2007, 21:41

on peut faire aussi des
IF X THEN pour le test inverse

à noter ne marche pas sur 68K
et NOT(X) renvoi un entier signé sur 64bits et pas true ou false donc ne marche pas non plus sur 68000

→ **MyCalcs** profile · de **charognard** » 13 Nov 2007, 21:44

tu dois aussi pouvoir remplacer, théoriquement (je n'ai pas de Z80 TI)

If M=1
13-M
If M=2
14-M
M-2-M

par

(M=1)*13+(M=2)*12-M

→ **MyCalcs** profile · de **charognard** » 13 Nov 2007, 21:55

remplace ça

If W=0
Then
iPart(W/7-Q
W-7Q-R
Else
If W0 ; A
iPart(W/7-Q
W-7(Q-1-R
End

par ça
iPart(W/7-Q
W-7(Q-(W0-R

→ **MyCalcs** profile · de **charognard** » 13 Nov 2007, 22:03

ça (de plus ce code en ... merdiq....)

If A=1000
Then
iPart(A/100-H
100fPart(A/100-J
End
If A1000
Then
Lbl 0
Input "SIECLE: ",H
Input "ANNEE DS SIECLE: ",J
H-1-H
Goto 2
End
If A=10000
Goto 0
Lbl 2

par

If A=1000 AND A10000
Then
iPart(A/100-H
100fPart(A/100-J
ELSE
Input "SIECLE: ",H
Input "ANNEE DS SIECLE: ",J
H-1-H
End