Remplissage aléatoire

randomize;
for i:=1 to n do
t[i]:=random(999);
for i:=1 to n do
write(t[i]:4);

je veux que ces entiers soient entre 100 et 999 non entre 0 et 999
comment faire

1 réponse

  1. Il suffit de faire t[i]:=random(899) +100...
    1. Modérateur
      Comme ça, est-ce que le 899 peut-être choisi ? Il me semble que non...
      random(900)+100 serait sûrement mieux.
    2. Oui absolument, c'est bien random(900)+100!
    3. mercii :) et concernant le remplissage aléatoire par des caractères alphabétiques comment faire ???
      procedure remplissage(var t:tab;n,i:integer);
      begin
      if i<=n then
      begin
      t[i]:=chr(random(121)+97);
      remplissage(t,n,i+1);
      end;
      end; lors de l'affichage il y a des symboles aussi dans le tableau
    4. Oui bien sûr c'est que tu laisse trop de marge, il faut mettre:
      t[i]:=chr(random(26)+97); 

      pour ne prendre en compte que les caractères, de 0 à 25 donc...