erreur syntaxe programme

[mathieu524523]

ça marche grand merci et ce petit dernier svp :

Code: Select all

:EffÉcran
:Prompt N          // Demande la valeur de N
:1→V               // Initialiser v0 à 1
:0→S               // Initialiser S à 0

:For(I,0,N)        // Boucle de 0 à N
:If I>0 Then
:V/(V + 1)→V      // Calculer vn+1
:End
:Disp "vN =", V    // Affiche la valeur de vN

// Vérification de l'initialisation
:If V = (1/(1+1)) Then   // Vérifie si v1 est correct
:Disp "INIT OK"
:Else
:Disp "INIT FAUX"
:Stop
:End

// Vérification de l'hérédité
:N+1→N
:S + N → S          // S = S + N
: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

[Hamza.S]

tu fais pareil, tu supprimes tous les espaces.
et les Then il faut les mettre à la ligne

[critor]

Supprimer les espaces hors des chaînes, supprimer les commentaires, et retours à la ligne avant les Then.

Et après, ça marche :

Code: Select all

EffÉcran
Prompt N
1→V
0→S

For(I,0,N)
If I>0
Then
V/(V+1)→V
End
Disp "vN =",V

If V=(1/(1+1))
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

[Adriweb]

Il faut aussi ne pas mettre d'espace au debut des lignes (sinon, il faut utiliser un autre éditeur qui gère ça...)