Afficher une question tirée au hasard parmi une base de données ainsi que 4 réponses possibles

**christo766100** · 26/09/2014, 16h28

Bonjour à tous,

J'aimerais afficher à l'écran une question tirée au hasard parmi une base de données ainsi que 4 réponses possibles. Je voulais créer une fichier avec les questions et un fichier avec les réponses possibles puis faire correspondre par exemple la 1ère ligne du fichier questions avec la 1ère ligne du fichier réponse possibles. Mais cela me forcerait à charger à chaque fois la fichier. Mon prof m'a proposé de charger dans un tableau à 2 dimensions l'intégralité des questions et des réponses possibles mais je ne vois pas comment faire. Pouvez-vous m'aider ?

Merci d'avance.

**Roland Chastain** · 26/09/2014, 19h40

Bonjour !

Le nombre de réponses étant constant, on peut tout mettre dans un seul fichier : une question, les quatre réponses, une question, les quatre réponses... Ensuite il n'y a plus qu'à lire les lignes cinq par cinq.

Maintenant, pour le tableau, il y a plusieurs solutions. La première idée qui m'est venue, c'est un enregistrement (record) contenant une chaîne pour la question et un tableau de quatre chaînes pour les réponses. Mais il y a d'autres possibilités.

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
program Exemple;
 
type
  TQR = record
    q: shortstring;
    r: array[1..4]of shortstring;
  end;
 
const
  N = 10;
 
var
  a: array[1..N]of TQR;
  f: textFile;
  i: integer;
 
begin
  Assign(f, 'questions.txt');
  Reset(f);
 
  i := 1;
  while (i <= N) and not Eof(f) do
  begin
    ReadLn(f, a[i].q);
    ReadLn(f, a[i].r[1]);
    ReadLn(f, a[i].r[2]);
    ReadLn(f, a[i].r[3]);
    ReadLn(f, a[i].r[4]);
    Inc(i)
  end;
 
  Close(f);
 
  WriteLn(a[2].q);
  WriteLn(a[2].r[4]);
 
  Write('Appuyez sur la touche Entrée... ');
  ReadLn;
end.

Code X :

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

1
2
3
4
5
6
7
8
9
10
Quel écrivain est surnommé l'aigle de Meaux ?
Racine
Corneille
Bossuet
Vigny
Quel poète a écrit "La Mort du Loup" ?
Baudelaire
Boileau
Bossuet
Vigny