Forum TI-Planet.org

Bonjour a tous,

j'ai le programme suivant:

Code: Select all

Define examention()=
Prgm
:Request "Francais?",f
:Request "Maths?",m
:Request "Histoire?",h
:Request "Langue?",l
:((3*f+3*m+2*h+2*l)/(10))→x
:If x≥10 Then
:Disp "Réfusé"
:EndIf
:If x≥12 and x<14 Then
:Disp "Reçu avec mention assez bien"
:EndIf
:If x≥14 and x<16 Then
:Disp "Reçu avec mention bien"
:EndIf
:If x≥16 Then
:Disp "Reçu avec mention très bien"
:EndIf
:EndPrgm

le probleme c'est que meme si on est recu, avec ou sans mention peu importe, il marque quand meme refusé, com ent faire???

Imaginons que j'ai 13 de moyenne.

Code: Select all

:If x≥10 Then
:Disp "Refusé"
:EndIf

Effectivement x≥10, donc ça l'affiche .

merci encore une fois excale

Il y a aussi un problème de type de données.
Lorsque l'on utilise un Request, la variable que l'on obtient est une chaîne de caractères.
Il faut la transformer en nombre pour pouvoir faire des calculs avec.

Voici les modifications pour que ça fonctionne :

Code: Select all

Define examention()=
Prgm
:Request "Francais?",f
:Request "Maths?",m
:Request "Histoire?",h
:Request "Langue?",l
:((3*expr(f)+3*expr(m)+2*expr(h)+2*expr(l))/10)→x
:If x≥10 Then
:Disp "Refusé"
:EndIf
:If x≥12 and x<14 Then
:Disp "Reçu avec mention assez bien"
:EndIf
:If x≥14 and x<16 Then
:Disp "Reçu avec mention bien"
:EndIf
:If x≥16 Then
:Disp "Reçu avec mention très bien"
:EndIf
:EndPrgm

Bisam wrote:Il y a aussi un problème de type de données.
Lorsque l'on utilise un Request, la variable que l'on obtient est une chaîne de caractères.
Il faut la transformer en nombre pour pouvoir faire des calculs avec.

C'est RequestStr pour avoir une chaine de caractères à coup sur (request est plus général).

Ah, désolé...
C'est l'habitude des 68k...