Programme sur les forces et l'énergie

→ **MyCalcs** profile · by **Ciwtron** » 31 Jan 2010, 11:47

Marco wrote:

Show/Hide spoilerAfficher/Masquer le spoiler

Ciwtron wrote:
print "Bienvenue dans ce programme de résolution des exercices concernant les forces et l'énergie"
print "Pour commencer, tapez quelque chose"
vac=1:goto fin
label choixdebut
print "La question fait-elle appel à un résultat numérique (1), à un résulat de cours (2) ou autre (3) ?"
vac=2:goto fin

label menugeneral
if var=1 goto menunum
if var=2 goto menucours
if var=3 goto menuautre

label menunum
print "Quelle est la question?"
print "1: Calculer la valeur de la force"
print "2: La force est-elle négligeable?"
print "3: Determinez la longueur du ressort"
print "4: Determinez la raideur du ressort"
print "5: Revenir au menu précédent"
vac=31:goto fin

label menucours
print "Référez-vous aux pages d'après"
print "Vous allez être redirigé vers le menu principal."
vac=2:goto fin

label menuautre
print "Quelle est la question?"
print "1: Donnez les caractéristiques de la force..."
print "2: D'où provient la force X"
print "3: Quels sont les effets de la force X?"
print "4: Quelles forces s'appliquent? (=faire un bilan des forces)"
print "5: Faire un schéma de la situation (+représenter forces)"
print "6: Quel est le mouvement de S ou que X "fait effectuer"?"
print "7: Quelle est la force qui met en mouvement?"
print "8: Revenir au menu précédent"

Merci, j'étais bien fatigué hier soir^^.

Voici le nouveau code:

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: vac=0 label debut input var$ if vac=0 goto depart if vac=1 goto choixdebut if vac=2 goto menugeneral if vac=31 goto choixquestionnum if vac=32 goto choixquestionautre if vac=4211 goto question211 if vac=42120 goto question211Tryagain label depart rem Delvar$ ... print "Bienvenue dans ce programme de résolution des exercices concernant les forces et l'énergie" print "Pour commencer, tapez quelque chose" vac=1:goto fin label choixdebut print "La question fait-elle appel à un résultat numérique (1), à un résulat de cours (2) ou autre (3) ?" vac=2:goto fin label menugeneral if var$="1" goto menunum if var$="2" goto menucours if var$="3" goto menuautre print "Invalide" vac=1:goto fin label menunum print "Quelle est la question?" print "1: Calculer la valeur de la force" print "2: La force est-elle négligeable?" print "3: Determinez la longueur du ressort" print "4: Determinez la raideur du ressort" print "5: Revenir au menu précédent" vac=31:goto fin label menuautre print "Quelle est la question?" print "1: Donnez les caractéristiques de la force..." print "2: D'où provient la force X" print "3: Quels sont les effets de la force X?" print "4: Quelles forces s'appliquent? (=faire un bilan des forces)" print "5: Quel est le mouvement de S ou que X "fait effectuer"?" print "6: Quelle est la force qui met en mouvement?" print "7: Revenir au menu précédent" vac=32:goto fin label menucours rem print "Quelle est la question?" rem print "1: Force= de distant ou de contact // localisée ou répartie?" rem print "2: Donnez des exemples de situation avec la force X?" rem print "3: Quelles sont les deux composantes de Rn?" rem print "4: La force de frottement est Rn ou Rt?" rem print "5: Le système S atteint il une vitesse limite, pourquoi?" rem print "6: Y a t-il équilibre? Pourquoi? Pourquoi n'est t-il pas possible sans F?" rem print "7: Donnez la relation entre la force X et Y" rem print "8: Revenir au menu précédent" print "Référez vous aux pages d'après" print "Vous allez être redirigé vers le menu principal." vac=1:goto fin label choixquestionnum if var$="1" goto question11 if var$="2" goto question12 if var$="3" goto question13 if var$="4" goto question14 if var$="5" goto choixdebut label choixquestionautre if var$="1" goto question21 if var$="2" goto question22 if var$="3" goto question23 if var$="4" goto question24 if var$="5" goto question25 if var$="6" goto question26 if var$="7" goto choixdebut label question21 print "Quelle est la force en question?" vac=4211:goto fin label question211 if var$="P" goto q21p if var$="T" goto q21t if var$="PI" goto q21pi if var$="F" goto q21f if var$="R" goto q21r print "Désolé, nous ne pouvons pas répondre à la question, car cette force n'est pas conue. Réessayer (1) ou retourner au menu (2)?" vac=42120:goto fin label question211Tryagain if var$="1" vac=4211:goto fin if var$="2" goto menuautre print "Invalide" vac=42120:goto fin label fin goto debut label stop