Discussion :

[Seligh]

Salut tout le monde,

Je suis nouveau sur ce site, j’espère que vous allez tous bien. Je ne vais pas m'attarder à connaître l'humeur de chacun puisque ça ne sert à rien, looool bref.
Voilà, je voudrais créer un programme, bien sûr en Pascal. L'idée de ce que je veux faire : une liste de mots, à peu près 50 mots déclarés, par exemple.

Écrire un nom et prénom, bien sûr donné par l'utilisateur.
Et le programme doit piocher dans la liste et prendre au hasard des mots, ça dépend lesquels, et les assimiler aux nom et prénom.

Exemple :

Code :

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

1
2
3
 
writeln('Djeddi Ghiles'); { c'est mon nom }
readln(la variable); { je ne sais pas quoi déclarer comme variable ici }

Ma liste de mots est
grand
fort
prétentieux
intelligent
kan
etc.

Le résultat doit être après l'exécution :

Ghiles Djeddi est un kan prétentieux et intelligent

Voilà par exemple.
Il ne doit prendre que 3 ou 4 mots, au hasard ou par tirage au sort, ça dépend.

Merci d'avance pour tous les internautes de ce site et j’espère avoir ma réponse rapidement s'il vous plaît hhhh

[Alcatîz]

Bonjour et bienvenue,

Tu peux par exemple déclarer un vecteur (tableau à une dimension) de 50 mots et tirer au hasard quatre nombres entre 1 et 50, en prenant soin qu'ils soient tous différents. Ces quatre nombres seront autant d'indices dans le vecteur.

Pour te documenter :

• Sur les tableaux :
  
  • http://pascal.developpez.com/cours/p...=page_11#LXI-A
  • http://pascal.developpez.com/cours/c...pg_Array#LXXVI
  • http://lazarus.developpez.com/cours/...ge=pg_04#LIV-B
• Sur la déclaration des constantes :
  
  • http://pascal.developpez.com/cours/c...pg_Const#LXXXI
• Sur le tirage de nombres aléatoires :
  
  • http://pascal.developpez.com/cours/c...page=pg_Random

[Seligh]

Merci beaucoup pour ta réponse ca m'aide un peut
mais je cherche comment affecter a ma liste de nombre des mots pour qu'il soit tiré aléatoirement
et aussi comment créé une liste dans pascal et koi déclarer

[l_autodidacte]

Cela fait longtemps que ce forum n'a pas bougé !?!?
Voici un tout petit code pour commencer

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
Program Execute_Command;
Uses WinCrt;
Const  MyArray : Array[1..5]Of String=('grand','fort','prétentieux','intelligent','kan');
Var  I:Integer;
Begin
   Repeat
   Write('Donner un nombre entre de 1 à 5: ');Readln(I);
   Until I IN [1..5];
   WriteLn('MyArray[',I,'] = ',MyArray[I]);
   {Ci-après, on tire un nombre aléatoire et on affiche le mot correspondant}
   Write('Mot tiré au hasard :   ');
   Randomize;
   I:=Random(5)+1;  {on ajoute 1 car la valeur de retour de Random va de 0 à 4 et pas à 5}
   Write('MyArray[',I,'] = ',MyArray[I]);
End.