Random en turbo pascal?

cedos -  
 hala -
Salut à tous,

En créant un un programme en turbo, j'ai voulu utiliser la fonction random. Cependant quand je lance mon programme, la valeur donnée, alors quelle devrait être aléatoire est zéro.

J'ai en partie dans mon programme:

var choix:integer;
const n=101;

et:

choix:=random(n);

Je ne comprends pas pourquoi la valeur est toujours à zéro.

Dans l'espoir d'une réponse, je vous remercie d'avance.
A voir également:

3 réponses

KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
Voici donc le code que tu devrais avoir :
var choix:integer;
const n=101;
begin
randomize;
choix:=random(n);
writeln(choix);
Attention : il ne faut lancer "randomize" qu'une fois dans ton code, et de plus il n'est pas nécessaire que ton n soit const, tu peux faire un random sur une variable...
7
Pfeifer
 
Salut il faut que tu initialise le générateur de nombre aléatoire avec le commande "Randomize".
3
hala
 
0 est une valeur aléatoire appartient à [0..101] comment il peut être des autres valeurs
ecrivez cette traitement et observez le résultat de l'exéxution:
for i:= 1 to 10 do
writeln (random(100));
2