erreur syntaxe programme

[mathieu524523]

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

[Hamza.S]

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.

[mathieu524523]

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...

[mathieu524523]

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

[critor]

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

[Hamza.S]

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

[mathieu524523]

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

[mathieu524523]

toujours la meme erreurs même avec effecran

[critor]

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

[critor]

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.