Discussion :

[emna1987]

écrire en pascal, une procédure qui génère au hasard et successivement, huit entiers naturels distincts deux à deux.chacun des ces nombres est compris entre 1 et 99 au sens large.j'ai une question car j'ai pas compris la syntaxe distincts deux à deux est qu'il veut dire que les deux entier successive seulement doivent etre différents ou bien l'entier ramdomizé doive etre différents de tous les entiers qu'ils précèdent

[Roland Chastain]

Bonjour !

Ce que je comprends, c'est que chaque paire de nombres doit être formée de deux nombres différents : peu importe si un nombre apparaît dans deux paires différentes.

[e-ric]

écrire en pascal, une procédure qui génère au hasard et successivement, huit entiers naturels distincts deux à deux.chacun des ces nombres est compris entre 1 et 99 au sens large.j'ai une question car j'ai pas compris la syntaxe distincts deux à deux est qu'il veut dire que les deux entier successive seulement doivent etre différents ou bien l'entier ramdomizé doive etre différents de tous les entiers qu'ils précèdent

Différents deux à deux = les 8 entiers sont tous différents, en les comparant l'un avec un autre. On en compare donc deux à chaque fois.

Tu dois tirer un premier nombre, l'enregistrer par exemple dans un tableau résultat. Tirer le second et vérifier s'il n'est pas déjà tiré (i.e. présent dans le tableau résultat), s'il n'est pas tiré, tu l'enregistres à son tour et tu recommence avec le troisième nombre tiré et ainsi de suite pour les cinq autres.

Une solution simple consiste à employer un tableau de 99 booléens valant False s'il n'est pas tiré (au départ, toutes les valeurs sont donc à False) et pour chaque tirage réussi, tu affecte True à la cellule du tableau dont l'indice est égale au tirage. Cette solution est efficace car elle consomme peu de ressource (tableau de booléens) et en lisant la valeur de la cellule d'indice, tu sais immédiatement si l'entier a déjà été tiré ou non ; si oui, il faut procéder à un nouveau tirage.

Pour lire le résultat, il suffit de parcourir le tableau et de récupérer les indices pour lesquels les booléens valent True.

Cdlt

[Roland Chastain]

Ah oui, je pense que c'est e-ric qui a raison : je retire ma première réponse. J'aime bien l'idée du tableau de booléens.

[emna1987]

bonjour
oui moi aussi merci beaucoup e-ric pour cette solution.
et j'ai une autre question moi j'utilise comme compilateur free pascal et il me génère une erreur pour ce syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
var 
tmp:integer
begin 
tmp:=random(99)+1;

lors de compilation une erreur sur cette ligne qui est la suivante:random.pas(8,10) Error:Illegal qualifier:syntax error, "." "xpected but "(" found.
mais je connais que c'est la syntaxe d'une fonction random j'ai chercheé beaucoup sur google j'ai pas trouvé comme j'écris la fonction random sous free pascal!!??

[Roland Chastain]

@emna1987

Il manque un point-virgule après "integer".

[e-ric]

Salut

Je ne peux pas regarder cela en cours de journée (pas de Pascal au boulot ) donc au mieux, je peux regarder cela ce soir.
@Emna: peux-tu confirmer à Roland si sa solution convient et dans le cas contraire, peux-tu nous montrer l'intégralité de ton code ?

cdlt