LOGO : Exemple d’un quiz

Par M.Ouchen -

Ça fait un jour que Tawfik Sadiq nous a proposé un programme LOGO qui est affiché ci-dessous
C’est un programme qui contient un quiz de 10 questions autour des connaissances générales.
On a effectué quelques modifications ou améliorations pour rendre ce programme compact et structuré.
Pour toute question ou suggestion veuillez la signaler dans les commentaires.
   
 
Pour NouveauTableau
     Tab_Nouveau "question"
     Tab_Nouveau "réponse"
Fin
Pour AjouterAuTableau Index rps qst
     Tab_Ajout "question" Index qst
     Tab_Ajout "réponse" Index rps
Fin
Pour RemplisTableau
     AjouterAuTableau 0 1998     "En quelle année Google a été fondé ?"
     AjouterAuTableau 1 1945     "En quelle année les bombardements atomiques d'Hiroshima et Nagasaki ont-ils eu lieux ?"
     AjouterAuTableau 2 1975     "En quelle année la marche verte a été organisée?"
     AjouterAuTableau 3 197      "D'après l'ONU, combien de pays il y a-t-il dans le monde ?"
     AjouterAuTableau 4 28       "Combien de pays sont membres de l'Union Européenne ? "
     AjouterAuTableau 5 9             "Combien y a-t-il de joueurs sur le terrain dans une équipe de base-ball ?"
     AjouterAuTableau 6 3             "Combien de périodes compte un match de hockey sur glace ?"
     AjouterAuTableau 7 5             "De combien de joueurs se compose une équipe de basket-ball ? "
     AjouterAuTableau 8 "Tokyo"   "Quelle est la capitale du Japon ?"
     AjouterAuTableau 9 "Vatican" "Quel est le plus petit pays du monde ?"
Fin
Pour SupprimerTableau
     Tab_Suppr "question" 
     Tab_Suppr "réponse"
Fin
Pour AfficherResultat nScore
     résultat="votre score = "+Txt(nScore)+" sur 10"+FL
     résultat+="************************************"+FL     
     Choisir(nScore)
     [
          Case 0:résultat+="Nul"    Stop
          Case 1:résultat+="Très mal" Stop
          Case 2:résultat+="Mal" Stop
          Case 3:résultat+="Faible" Stop
          Case 4:résultat+="Insuffisant" Stop
          Case 5:résultat+="Passable" Stop
          Case 6:
          Case 7:résultat+="Assez bien" Stop
          Case 8:résultat+="Bien" Stop
          Case 9:résultat+="Très bien" Stop
          Case 10:résultat+= "Excellent" Stop
     ]
     résultat+=FL   
     résultat+="************************************"+FL     
     Msg résultat
Fin
Pour QuestionRéponse
     i=0
     REPETE 10
     [
          Xréponse=Tab_LisVal "réponse",i
          Xquestion=Tab_LisVal "question",i
          Si VarType(Xréponse)==1 [essai=LireNombre Xquestion]
          Sinon [essai=LireTexte Xquestion]
          Si essai==Xréponse [score+=1]
          i+=1
     ]
Fin
Pour quiz
     NouveauTableau
     RemplisTableau
     Msg "Ce quizz contient 10 questions différentes ! Vous pouvez commencer à répondre !"
     QuestionRéponse
     AfficherResultat score
     SupprimerTableau    
Fin
 
 
//Point de départ
score=0  
quiz
 

Posts les plus consultés de ce blog

Tous les cours de la 2ASC

Par M.Ouchen -
Image
Pages de cours Cours informatique de 2ASC Cours 1: Notion d'un système informatique Unité 1: Système informatique Cours 2: Système d'exploitation et réseau Unité 1: Système informatique Cours 3: Communication dans un réseau local Unité 2: Communication dans un réseau local Cours 4: Introduction au tableur et Elaboration d'un tableau Unité 3: Tableur Cours 5: Mise en forme des cellules et formules Unité 3: Tableur Cours 6: Recopie de formule, fonctions, adresse absolue et adresse relative Unité 3: Tableur Cours 7: Graphique, mise en page et impression Unité 3: Tableur Cours 8: Programmation Logo - Introduction et primitives Unité 4: Programmation Logo Cours 9: Boucle REPETE et procédures Unité ...
Plus de détails »

Cours 1 - 2ASC: Notion d'un système informatique

Par M.Ouchen -
Image
UNITE 1: SYSTÈME INFORMATIQUE I - Système informatique 1-Notion d’information    L’information est une donnée de type texte, image ou son … qu’on peut conserver, traiter ou communiquer. 2-Le traitement d’informations    C’est la transformation de l’information en lui appliquant des opérations (calculs, classements…)  afin d'obtenir d’autres informations. Schéma d’un système de traitement de l’informations 3- L’informatique L’informatique est la science du traitement rationnel et automatique de l’information. Informatique= Information + Automatique 4. Définition d’un système informatique. Un système informatique c’est le système de traitement automatique de l’information. Il se compose de deux parties : - La partie matérielle (Hardware) - La partie logicielle (Software) 5. La partie matérielle d’un système informatique :   La partie matérielle (l'ordinateur et ses périphériques) se compose de quatre unités : A) Périphériques d’entrée : B) Périph...
Plus de détails »

Cours 2 - 2ASC: Système d'exploitation et réseau

Par M.Ouchen -
Image
  II - Système d'exploitation et réseau local 1. Définition d’un réseau    Un réseau est un ensemble de nœuds reliés entre eux par des liens. 2. Réseau informatique    Un réseau informatique est un ensemble d’ordinateurs (2 ou plus) et de périphériques interconnectés. 3. Les avantages d’un réseau informatique  - Partage des ressources matérielles et logicielles: Fichiers et applications Périphériques (imprimantes, scanners…)  - Communiquer entre les membres du réseau  - Le gain du temps et le coût d’équipement. 4. Configuration matérielle d’un réseau local  A) Réseau filaire Un réseau local filaire est constitué de :   - Ordinateurs avec cartes réseaux filaires.   - Câbles réseaux.   - Hub ou Switch. B) Réseau sans fil   Un réseau local sans fil (WIFI) est constitué de :   - Ordinateur avec cartes réseaux sans fil.   - Point d’accès ou routeur WIFI. 5. Topologie des réseaux La topologie est la manière avec la...
Plus de détails »