Comment permuter les questions dans un quiz

**lex001** · 12/02/2009, 02h44

Salut à tous,
J'ai fais un quiz avec 26 questions. Et j'aimerai permuter l'ordre des questions à chaque exécution de mon programme .
je voulais utiliser la commande ''ramdom'' mais elle peut répéter une question 2 fois.
Une personne a une idee ??
merci

**M.Dlb** · 12/02/2009, 11h11

Tu peux faire un algo qui mélange ton tableau de question (en supposant que tu as un tableau pour gérer tes données), en utilisant des algos de mélange et du random.

**darrylsite** · 12/02/2009, 13h09

peux tu nous dire comment tu conserve tes données? en utilisant un tableau, un fichier, ou autres.
Si tu utilise un tableau, tu peux faire simple en utilisant un algorithme comme celui qui suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
pour i de 1 à 26
  indice:=genererNombreDifferentDe(i);
  permuterElementTableau(i, indice);
finPour

**lex001** · 12/02/2009, 20h21

En fait j'utilise les tableaux du genre veb[n] n allant de de 1 a 26

SVP je ne comprends pas bien cet algo.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for i := 1 to 26 do begin
  indice:=genererNombreDifferentDe(i);
  permuterElementTableau(i, indice);
readln(vveb[i]);
 end;

**darrylsite** · 13/02/2009, 14h07

Le code que j'ai donné sert juste à distribuer les elements du tableau de façon aléatoire.
Par exemple, si tu as un tableau (1,2,3,4,5), apres transformation, tu peux avoir (3,5,1,2,4).

indice:=genererNombreDifferentDe(i);
permuterElementTableau(i, indice);

sont des fonction à definir. Les operaétions effectuées par ces fonctions se comprennent dejà en lisant leur noms.
Peut etre que tu devrais poster une partie de ton code, pour nous permetre de bien te comprendre, et savoir exactement ce que tu veux faire

**DUGUERPF** · 13/02/2009, 21h26

Perso, je te conseillerai de sauvegarder les questions de ton quizz dans un fichier externe, ce qui te permettra, parce que cela devrait arriver, d'en augmenter les questions autant que bon te semble. Qui plus est, ce fichier, exploité à partir d'un notepad, par exemple, te permettrait de manipuler les 'copier'-'coller' de windows.

Je me suis amusé à faire ce petit programme à ma façon, pas toujours trés "pascalement officielle". Tu noteras que le point-clé réside dans la constante max_questions qui fixe le volume maximum de questions du QUIZZ. A cette constante sont liées les variables [1..26]. Toute modification de max_questions demande de modifier les tableaux pour ne pas planter le programme.

ET LA, je suis sûr qu'il y a une solution en mode tableau dynamique, pointeurs, etc...et je viens de prouver mes limites en TP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
PROGRAM QUIZ;
USES crt,dos;
 
TYPE
tableau_quizz = RECORD
   question :  string;
   selection : boolean;
end;
 
VAR
cpta : byte;
ff : text;
nb_questions : byte;
cle : char;
 
veb : array[1..26] of tableau_quizz;
tableau_genere : array[1..26] of byte;
 
CONST
max_questions : byte =26;
 
PROCEDURE QUITTER(message : string[100]);
begin
   clrscr;
   writeln(message);
   halt;
end;
 
PROCEDURE INITIALISE_QUIZZ;
begin
   for cpta:=1 to max_questions do begin
      veb[cpta].question:='';
      veb[cpta].selection:=false;
      tableau_genere[cpta]:=0;
   end;
end;
 
PROCEDURE CHARGE_QUIZZ;
begin
   {$I-}
   assign(ff,'quizz.txt');
   {$I+}
   if ioresult<>0 then quitter('FICHIER QUIZZ.TXT ABSENT DU REPERTOIRE');
   reset(ff);
   readln(ff,nb_questions);
   if nb_questions>max_questions then quitter('FICHIER QUIZZ POSSEDE PLUS DE QUESTIONS QUE LE PROGRAMME PEUT TRAITER');
   for cpta:=1 to nb_questions do readln(ff,veb[cpta].question);
end;
 
PROCEDURE GENERE_QUIZZ;
VAR incremente : byte;
alea : byte;
begin
   randomize;
   incremente:=0;
   repeat
      alea:=succ(random(nb_questions));
{permet de ne plus pouvoir sélectionner une question préalablement incluse dans le tri.
la variable tableau_genere agit un peu comme un pointeur déguisé, donnant en fait la localisation (le n° d'ordre) dans la variable veb}
      if veb[alea].selection=false then begin
         inc(incremente,1);
         tableau_genere[incremente]:=alea;
         veb[alea].selection:=true;
      end;
   until incremente=nb_questions;
end;
 
BEGIN
   clrscr;
   initialise_quizz {mettre les variables à '0'};
   charge_quizz; {charger le fichier externe}
   genere_quizz; {faire le mélange aléatoier}
{une méthode simplissime d'affichage sans effets}
   for cpta:=1 to nb_questions do begin
      clrscr;
      write(veb[tableau_genere[cpta]].question);
      repeat until keypressed;
      if keypressed then cle:=readkey;
      if cle=chr(27) then quitter('FIN DU PROGRAMME');
   end;
END.

Sur ce modèle, la variable record pourrait s'enrichir de champs comme 'réponse', 'points par réponse', etc...

Espérant que cela t'aide et si quelqu'un sait transformer ce bazar en tableau dynamique, il m'éclairerait sûrement !

**DUGUERPF** · 13/02/2009, 21h26

Voici le fichier QUIZZ que j'ai utilisé pour tester le programme :
Par habitude, je crée les deux premières lignes sous TP, je sauvegarde avec l'extension souhaitée, puis j'ouvre en NOTEPAD et je le manipule comme je veux.

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
4
QUEL EST L'AGE DU CHIEN
POURQUOI
QUOI
COMMENT

PS : j'ai essayé en FreePascal, le programme plante sur la fonction de lecture du fichier, et ne reconnaît pas Ioresult. J'ai peut-être une piste à suivre pour comprendre le passage de TP7 en FreePascal...

**M.Dlb** · 14/02/2009, 11h57

Avec un tableau dynamique ou une liste chaînée, ça serait beaucoup plus simple en effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
tant que il y a des lignes dans le fichier
    lire la prochaine ligne du fichier
    allouer une case mémoire pour la stocker
    copier la ligne lue en mémoire
fin

**darrylsite** · 14/02/2009, 17h49

Envoyé par wormful_sickfoot

Avec un tableau dynamique ou une liste chaînée, ça serait beaucoup plus simple en effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
tant que il y a des lignes dans le fichier
    lire la prochaine ligne du fichier
    allouer une case mémoire pour la stocker
    copier la ligne lue en mémoire
fin

Mais l'auteur de ce post sait il utilisé les listes chainée?

**DUGUERPF** · 15/02/2009, 02h05

C'est tout mon pb avec ces maudits tableaux dynamiques et pointeurs. La théorie est hyper-claire et somme toute très simple.

C'est le passage en code Pascal qui me coince, même avec des aides. Ceci dit, si tu avais un code pour illustrer la théorie, je suis preneur.

Sinon, LEX001, est-ce que cela semble répondre à ta question ?

**droggo** · 15/02/2009, 03h26

Hea,

Envoyé par DUGUERPF

Tu noteras que le point-clé réside dans la constante max_questions qui fixe le volume maximum de questions du QUIZZ. A cette constante sont liées les variables [1..26].

Puisque tu définis une constante, il est nécessaire d'aller au bout du principe : s'en servir pour définir les types qui en dépendent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
...
CONST
max_questions : byte =26;
 
type
veb : array[1..max_questions] of tableau_quizz;
tableau_genere : array[1..max_questions] of byte;

Un principe est de ne pas utiliser de valeurs "magiques", c'est à dire codées en dur dans le code.

Envoyé par DUGUERPF

Toute modification de max_questions demande de modifier les tableaux pour ne pas planter le programme.

Utiliser des constantes permet justement de n'avoir à modifier le code qu'à un endroit, sans avoir à chercher toutes les occurrences d'une valeur qu'on veut modifier.

----- ici, édité

J'ai oublié de rappeler quelque chose : quand on définit une constante typée comme tu le fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CONST
max_questions : byte =26;

ce n'est pas une véritable constante, mais une variable initialisée (si, si, essaye de la modifier dans un petit programme

).

C'est une des aberrations qui nous viennent de Borland, car étant de fait une variable, on devrait la déclarer dans la section var, mais comme on peut s'en servir comme constante, en particulier dans la définition de types, elle a sa place dans la section const.
En clair, il aurait fallu créer une section spéciale pour ce type de déclaration, afin de lever toute ambiguïté.

**DUGUERPF** · 16/02/2009, 03h11

Miracle du net.

Dire que je galère depuis des années à modifier à chaque fois des "constantes" qui servent dans beaucoup de variables, et que la solution était nettement plus...simple ! Merci de l'indication.

Sinon, oui, je savais que toute CONST est effectivement modifiable (cause de bugs dans mes jeunes années). C'est en effet une curiosité de TP7 de le permettre !

**droggo** · 16/02/2009, 15h39

Gea,

Envoyé par DUGUERPF

Sinon, oui, je savais que toute CONST est effectivement modifiable (cause de bugs dans mes jeunes années). C'est en effet une curiosité de TP7 de le permettre !

Pas toute const.

Toute const typée.

Par exemple, avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
const
  limite = 100;
 
  maxi : integer = 235;

limite est une vraie constante, absolument non modifiable
alors que maxi est en fait une variable initialisée, et est donc modifiable..

**DUGUERPF** · 18/02/2009, 05h05

Tout arrive à point à qui sait attendre.

Il va y avoir quelques petits changements ce soir dans certains programmes...

**lex001** · 18/02/2009, 18h02

merci a tout. en enfait je ne connais pas utiliser les listes chainée. Mais je pense que j'ai trouver ce que je cherchais.

Comment permuter les questions dans un quiz [Turbo Pascal]

Turbo Pascal

Discussions similaires

Partager

Partager