rem les variables
rem je change le fontd´ecrant
cls rgb(8,0,100)
erreur$="mauvaise reponse recomence"
juste=0
faux=0
rem je change la couleur
ink rgb(255,0,0),1
rem jaten quon apuis sur une touche
print " apuyer sur une touche pour comencer le quizz"
suspend for key
question1:
rem je pose la question
print " quel est la capital de la france"
rem je repond
input reponse1$
rem je dis si il a juste ou faux
if reponse1$="paris"
print " bravo continu"
juste=juste+1
else
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
print erreur$
rem si faut je recomence la question
goto question1
endif
rem je pose une autre question la question
question2:
print " quel groupe a fait graver dans la roche"
rem je repond
input reponse2$
rem je dis si il a juste ou faux
if reponse2$="sniper"
print " bravo continu"
juste=juste+1
else
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
print erreur$
rem si faut je recomence la question
goto question2
endif
rem je pose une autre question la question
question3:
print " dans quel gta peut t on prendre un helicoptère"
rem je repond
input reponse3$
rem je dis si il a juste ou faux
if reponse3$="gta vice city"
print " bravo continu"
juste=juste+1
else
print erreur$
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
rem si faut je recomence la question
goto question3
endif
rem je pose une autre question la question
question4:
print " quel est la racine carré de 25"
rem je repond
input reponse4$
rem je dis si il a juste ou faux
if reponse4$="5"
print " bravo continu"
juste=juste+1
else
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
print erreur$
rem si faut je recomence la question
goto question4
endif
question5:
rem je pose une autre question
print " combien font 6x9+23-5"
rem je repond
input reponse5$
rem je dis si il a juste ou faux
if reponse5$="72"
cls
cls rgb(8,0,100)
print " bravo continu"
juste=juste+1
else
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
print erreur$
rem si faut je recomence la question
goto question5
endif
question6:
rem je pose une autre question
print " mot melanger:nnoiu"
rem je repond
input reponse6$
rem je dis si il a juste ou faux
if reponse6$="union"
print " bravo continu"
juste=juste+1
else
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
print erreur$
rem si faut je recomence la question
goto question6
endif
question7:
rem je pose une autre question
print " quel est le nom du hero de mission imbosible"
rem je repond
input reponse7$
rem je dis si il a juste ou faux
if reponse7$="tom cruise"
print " bravo continu"
juste=juste+1
else
faux=faux+1
rem je limite les reponse fausse
if faux>4 then goto sortie
print erreur$
rem si faut je recomence la question
goto question7
endif
goto resultats
cls
sortie:
print " + de 4 mauvaise reponse TU AS PERDU ! !!!!!!!!!!!"
goto fin
resultats:
cls
if faux<2
textefaux$="reponse fausse"
else
textefaux$="reponses fausses"
endif
print " les résultats:"
print " reponses justes = " ;juste
print textefaux$;" = " ;faux
fin:
sleep 5000
end
