Programme moyenne bac

→ **MyCalcs** profile · de **edwin** » 15 Fév 2012, 22:28

Bonjour a tous,

j'ai le programme suivant:

Code: Tout sélectionner: 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 · de **Excale** » 15 Fév 2012, 22:30

Imaginons que j'ai 13 de moyenne.

Code: Tout sélectionner: :If x≥10 Then :Disp "Refusé" :EndIf

Effectivement x≥10, donc ça l'affiche

.

→ **MyCalcs** profile · de **edwin** » 15 Fév 2012, 22:32

merci encore une fois excale

→ **MyCalcs** profile · de **Bisam** » 16 Fév 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: Tout sélectionner: 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 · de **Excale** » 17 Fév 2012, 19:36

Bisam a écrit: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).