Discussion :

[feynman]

Bonjour,
J ai un probleme dont je me bloque la dessus,
J ai un tableaux integer a rentré et ensuite voire le nombres des repetitions de chque nombres dans ce tableaux
par exemple A=1,3,4,2,4,5,1
le nombre 1 se repete 2
3 se repete 1
ect..........
pouvez vous m aider dans ce probleme?
merci

[Fortran90]

Tu pourrais simplement trier ton tableau et alors compter les occurences successives des nombres.

Il y a pas une section spéciale algorithmie sur développez.com? http://www.developpez.net/forums/forumdisplay.php?f=60

Comment ça je chipotte?

[genteur slayer]

pour le saisir, tu utilise des read typiquement, moi je le ferai lire un fichier texte contenant tout le contenu

ensuite vu que tu n'a que des chiffres, (en appelant le tableau de donnée 'tab' et sa taille 'LTab'):

Code :

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

1
2
3
4
5
6
7
8
 
do i=0,9
  nb=0
  do j=0,LTab
     if (tab(j)=i) then nb=nb+1
  enddo
  write(*,*)'le chiffre ',i,' est présent ',nb,' fois'
enddo

biensûr si tu as des nmbres à deux chiffre, il suffit d'augmenter la bouche en i...

[feynman]

Ok merci genteur slayer, mais pourquoi tu as mit write(*,*) et non pas print*?

[FR119492]

Salut.

C'est tout simple:

Tu définis un tableau A qui contient tes données et un tableau B en réserve.

Tu parcours le tableau A; pour chaque élément, si la valeur est 1, tu incrémentes le nombre de 1s; sinon, tu la transfère dans B. Quand tu a parcouru tout A, tu as le nombre de 1s.

Tu recopies B dans A, et tu recommences avec les 2s.

etc.

Quand il n'y a plus rien à recopier de B dans A, tu sais que tu as fini.

Bonne chance
Jean-Marc Blanc

[afrancisco]

salut,

si tes entiers sont inférieurs à 1.000.000 (par exemple) tu peux utiliser un vecteur V supplémentaire de taille, le plus grand des entiers et initialement nul.
Ensuite tu balayes une fois ton vecteur de départ et si tu rencontres un 12, par exemple, tu fais V(12)=V(12)+1.
A la fin, tu sais que si V(i) est non nul, alors i apparaît V(i) fois dans ton vecteur initial.

[genteur slayer]

j'ai mis write(*,*) par habitude, j'aime pas trop utiliser le print *, question de syntaxe cela dit dans le cas présent c'est strictement équivalent!!!