Liberty BASIC
Dernière réponse : dans Programmation
CompNom = 72 ' Nombre choisit par le PC
Print "Je pense à un nombre..."
Print
Print "Essayes de le deviner !"
Essais = 0
While ( guess <> compnum )
Print
Input "Annonces un nombres entre 1 et 100 "; guess
If ( guess < compnum ) then
print "Votre nombre est trop petit; choisisez un autre nombre. "
If ( guess > compnum ) then
print "Votre nombre est trop grand; choisisez un autre nombre. "
End if
Essais = Essais + 1
Print " Vous avez trouver le nombre en seulement "; Essais; " de tentative !"
End
Pouvez vous me dire le probleme de ce texte car a chanque fois que j'utilise if en liberty basic il me mais un error !!!!
Merci d'avance !!
PS : Je programme avec liberty basic V4.03
PS : Si vous connaisser un excellent tuto rapide et simple faite moi part !!!!
Print "Je pense à un nombre..."
Print "Essayes de le deviner !"
Essais = 0
While ( guess <> compnum )
Input "Annonces un nombres entre 1 et 100 "; guess
If ( guess < compnum ) then
print "Votre nombre est trop petit; choisisez un autre nombre. "
If ( guess > compnum ) then
print "Votre nombre est trop grand; choisisez un autre nombre. "
End if
Essais = Essais + 1
Print " Vous avez trouver le nombre en seulement "; Essais; " de tentative !"
End
Pouvez vous me dire le probleme de ce texte car a chanque fois que j'utilise if en liberty basic il me mais un error !!!!
Merci d'avance !!
PS : Je programme avec liberty basic V4.03
PS : Si vous connaisser un excellent tuto rapide et simple faite moi part !!!!
Autres pages sur : liberty basic
Lassé par la pub ? Créez un compte
Jai encore ecrit un autre code mais il ne marche pas il me mais 0-0 10 fois a la fin alors que jai bien mis les nom et les ote :
Dim Snom$ (10)
Dim Notes (10)
For i = 1 to 10
Input "Quel est le nom de l'élève ?"; sn$
snom$ (i) = sn$
Input " Quelle est la note de l'élève ?"; notes
notes (i) = sc
Print
Next i
Print "***Liste des notes***"
Print " Nom et note"
For i = 1 to 10
Print SNom$ (i); "-"; notes (i)
Next i
End
Dim Snom$ (10)
Dim Notes (10)
For i = 1 to 10
Input "Quel est le nom de l'élève ?"; sn$
snom$ (i) = sn$
Input " Quelle est la note de l'élève ?"; notes
notes (i) = sc
Next i
Print "***Liste des notes***"
Print " Nom et note"
For i = 1 to 10
Print SNom$ (i); "-"; notes (i)
Next i
End
Lassé par la pub ? Créez un compte
