Randomize et tableau

Fermé
littlebonbon Messages postés 9 Date d'inscription mercredi 7 mai 2008 Statut Membre Dernière intervention 15 mai 2008 - 12 mai 2008 à 17:26
zavenger Messages postés 811 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 - 12 mai 2008 à 18:35
Bonjour,
Voila , j'ai écris le début d'un programme. Je souhaite afficher mes valeurs (choisi aléatoirement par l'ordinateur) mais c'est à ce niveau que j'ai un probleme. Quand je fais l'execute , j'ai juste un zero qui s'affiche...
Je travail sous pascal et je ne vois pas ou j'ai faux puisque ca veut bien compiler -_-'.
Petite précision c'est pour afficher 3 valeurs choisis entre 1 et 6.

voici ce que j'ai tapé si vous pouvez voir ce qui cloche , merci beaucou.

begin
randomize;
for I := 1 to 3 do
begin
TD[I]:= random(6)+1;
end;
writeln (TD[I]);
readln;
end.

merci d'avance
A voir également:

2 réponses

zavenger Messages postés 811 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 161
12 mai 2008 à 18:14
salut

essaye donc ceci :

begin
randomize;
for I := 1 to 3 do
begin
TD[I]:= random(6)+1;
writeln (TD[I]);
end;
readln;
end.

PS ce n'est pas parce que la syntaxe est juste (= ca compile) que l'algorithme est juste (= le programme fait ce que tu penses)
0
littlebonbon Messages postés 9 Date d'inscription mercredi 7 mai 2008 Statut Membre Dernière intervention 15 mai 2008
12 mai 2008 à 18:26
merci^^
j'avais sinon trouver une autre solution , j'ai recréé une boucle pour afficher mais c'est un peu perte de temps...
autre question: j'aimerais que mon programme réagisse à la commande
'Si ( TD[1] = 4) alors... 'Pour qu'il prenne en compte le 'egale' je dois le traduire comment ?
j'ai trouver comme idée de lui dire que TD[1] <5 et TD[1] >3 mais je trouve cela bisarre -_-'
merci d'éclairer ma lanterne ^^
0
zavenger Messages postés 811 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 161
12 mai 2008 à 18:35
et pourquoi pas simplement if TD[i] = 4 then
0