Programme moyenne bac

→ **MyCalcs** profile · by **edwin** » 15 Feb 2012, 22:28

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

→ **MyCalcs** profile · by **Excale** » 15 Feb 2012, 22:30

Imaginons que j'ai 13 de moyenne.

Code: Select all: :If x≥10 Then :Disp "Refusé" :EndIf

Effectivement x≥10, donc ça l'affiche

.

→ **MyCalcs** profile · by **edwin** » 15 Feb 2012, 22:32

merci encore une fois excale

→ **MyCalcs** profile · by **Bisam** » 16 Feb 2012, 08:50

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

→ **MyCalcs** profile · by **Excale** » 17 Feb 2012, 19:36

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