Random en turbo pascal?

Fermé
cedos - 18 juin 2004 à 19:29
 hala - 16 déc. 2008 à 14:24
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 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 3 019
3 oct. 2008 à 21:36
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
Salut il faut que tu initialise le générateur de nombre aléatoire avec le commande "Randomize".
3
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