Générer un nombre aléatoire en Turbo Pascal

comment generer un nombre aleatoire en turbo pascal ?

Pour générer un nombre aléatoire en Turbo Pascal, vous pouvez utiliser les fonctions Randomize et Random. Voici un exemple de code qui montre comment générer un nombre aléatoire dans une plage spécifique :

program GenererNombreAleatoire;

uses
  crt;

var
  nombreAleatoire: Integer;

begin
  Randomize;  { Initialise le générateur de nombres aléatoires }
  
  nombreAleatoire := Random(100);  { Génère un nombre aléatoire entre 0 et 99 }
  
  writeln('Le nombre aléatoire généré est : ', nombreAleatoire);
  
  readln;  { Attend que l'utilisateur appuie sur une touche avant de fermer le programme }
end.

Explications :

1. Randomize initialise le générateur de nombres aléatoires avec une valeur de départ basée sur l'horloge système. Cela permet d'obtenir des séquences de nombres différentes à chaque exécution du programme.
2. Random(100) génère un nombre entier aléatoire compris entre 0 et 99. Si vous souhaitez générer un nombre dans une autre plage, vous pouvez remplacer 100 par la valeur maximale souhaitée (non incluse).

Si vous voulez générer un nombre aléatoire dans une plage différente, par exemple entre min et max, vous pouvez utiliser la formule suivante :

nombreAleatoire := Random(max - min + 1) + min;

Voici un exemple complet pour générer un nombre aléatoire entre 50 et 150 :

program GenererNombreAleatoire;

uses
  crt;

var
  nombreAleatoire: Integer;
  min, max: Integer;

begin
  min := 50;
  max := 150;
  
  Randomize;  { Initialise le générateur de nombres aléatoires }
  
  nombreAleatoire := Random(max - min + 1) + min;  { Génère un nombre aléatoire entre min et max }
  
  writeln('Le nombre aléatoire généré est : ', nombreAleatoire);
  
  readln;  { Attend que l'utilisateur appuie sur une touche avant de fermer le programme }
end.

Ce code gén��re un nombre aléatoire compris entre 50 et 150