Forum TI-Planet.org

Bonjour,

J'ai mis ce programme mais il ne fonctionne pas quelqu'un peut m'aider svp pour une ti 83 premium ce :

Code: Select all

:ClrHome
:Prompt N          // Demande à l'utilisateur de saisir N
:0→S               // Initialisation de S (somme)

:For I, 1, N       // Boucle de 1 à N
: S + I → S        // Ajoute I à S
:End

:If S = (N*(N+1))/2
:Then
: Disp "INIT OK"
:Else
: Disp "INIT FAUX"
: Stop
:End

: N + 1 → N        // Incrémenter N pour N + 1
: S + N → S        // Ajouter N + 1 à la somme

:If S = (N*(N+1))/2
:Then
: Disp "HERED OK"
:Else
: Disp "HERED FAUX"
: Stop
:End

:Disp "PROP VRAIE" // Affiche que la propriété est vraie
:Stop

Merci de votre aide
c'est pour la demonstration avec récurrence initialisation hereditée et conclusion

bonjour,

si c'est du copier/coller ce n'est pas bon. c'est For(I,1,N
il faut supprimer tous les espaces sauf ceux des chaînes de caractères.

Ah d'accord merci de ta réponse !
Y a moyen que tu me le fasses stp, j'arrive pas trop à comprendre j'ai tout essayé pourtant...

Voici mes modif ça ne marche toujours pas

Code: Select all

:ClrHome
:Prompt N
:0→S
:For I,1,N
: S+I→S
:End
:If S=(N*(N+1))/2
:Then
: Disp "INIT OK"
:Else
: Disp "INIT FAUX"
: Stop
:End
: N+1→N
: S+N→S
:If S=(N*(N+1))/2
:Then
: Disp "HERED OK"
:Else
: Disp "HERED FAUX"
: Stop
:End
:Disp "PROP VRAIE"
:Stop

Il faut éviter les indentations également.

Pour moi ça marche :

Code: Select all

ClrHome
Prompt N
0→S

For(I,1,N
S+I→S
End

If S=(N*(N+1))/2
Then
Disp "INIT OK"
Else
Disp "INIT FAUX"
Stop
End

N+1→N
S+N→S

If S=(N*(N+1))/2
Then
Disp "HERED OK"
Else
Disp "HERED FAUX"
Stop
End

Disp "PROP VRAIE"
Stop

si tu utilises TI Connect CE et qu'il est en Français, la première ligne tu dois la remplacer par EffÉcran

Salut critor j'ai copier coller ton code dans ti connect je l'ai envoyer sur ma ti 83 premium ce ça me met erreur syntaxe au lancement

toujours la meme erreurs même avec effecran

Comme Hamza t'a dit, tente cette modification :

Code: Select all

EffÉcran
Prompt N
0→S

For(I,1,N
S+I→S
End

If S=(N*(N+1))/2
Then
Disp "INIT OK"
Else
Disp "INIT FAUX"
Stop
End

N+1→N
S+N→S

If S=(N*(N+1))/2
Then
Disp "HERED OK"
Else
Disp "HERED FAUX"
Stop
End

Disp "PROP VRAIE"
Stop

mathieu524523 wrote:toujours la meme erreurs même avec effecran

N'oublie pas l'accent sur le EffÉcran, sinon ça ne marche pas.
Tu peux copier-coller la dernière version de mon code qui l'intègre.