Fonction récursive ou pas ?

Bonjour.

Je me pose une question de logique, et je ne sais pas s'il faut ou non utiliser une fonction récursive. Voici donc le problème.

Dans un programme de répartition des couts et du chiffre d'affaire, j'effectue différents calculs.

Je distingue 3 cas:
- A) Si R > S
- B) Si R < S
- C) Si R = S

Jusque là, pas de soucis.

1) Dans le cas A, je calcule un reste: reste = R-S
2) Je calcule un prix par produit en fonction de 2 autres prix... Passons dessus...
3) Je fais la somme et je l'affiche dans un tableau virtuel
4) SI mon prix est inférieur au total, alors c'est bon
SINON, je dois recalculer un nouveau reste
a) Refaire certains calculs etc...
b) ...


Je ne sais pas trop comment faire en fait!

Le soucis est donc que j'obtiens toujours le premier reste, et ensuite suivant certains mois, j'aurai un reste, ou bien deux restes, ou trois... etc... (nombre de reste inconnu par moi) sachant que SI j'ai un reste... cela influe sur tout les résultats...

Quelqu'un a une idée?

Je ne demande pas de code, mais un début de logique si possible :)

Merci

bonjour ,
je ne comprend pas le probleme!!!!

tu ne sais comment attaquer ????
tom

J'obtiens forcément un reste, le 1er reste.

Ensuite, avec ce reste est réparti sur plusieurs produits.

MAIS si reste + prix du produit > prix maxi ALORS j'ai un nouveau reste.

Avec ce nouveau reste, je le réparti à nouveau sur les autres produits, et ainsi de suite...

Une boucle est nécessaire, j'en suis pas à ce point là, mais je voudrais connaitre une solution efficace pour éviter de tomber dans du bidouillage, merci :)

Tu peux nous donner un exemple chiffré, avec des trucs simples (genre, 10, 20 des trucs comme ça) en faisant un exemple pour ton cas que tu expliques ?

Parce que je comprend pas trop ton histoire de prix de base par rapport au prix maxi et au reste tout ça :?:aie:

j attaquerai le probleme de cette maniere:

Code:

---

1 2 3 4 5 6 7 8 9

Select case addition case reste_plus_produit>Pmax .........effectuer je sais pas quoi....   case reste_plus_produit<Pmax ...... effectuer je sais pas quoi .....   end select

---

Bonjour,

Ca pourrait ressembler à ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Depart() Dim Reste 'Code déterminant le 1er reste Do While Reste > 0 Reste = Repartition(Reste) Loop End Sub   Function Repartition(x) 'Code faisant diminuer x End Function

---

La difficulte étant de s'assurer que x diminue forcement jusqu'a atteindre zéro dans un temps raisonnable, faute de quoi ca ne s'arrete jamais.

Cordialement,

Tirex28/

Bonjour tout le monde
je pense que yodu29 cherche a faire quelque chose de ce genre
heu j'ai inventé hein, c'est un peu primaire :roll:
probleme*
j'ai trois prix
A = 8 €
B=10€
C = 12€
je dois vendre tout ça pour 40 €
Combien je peux ajouter a chaque produit ?'

Somme = A + B + C
qaund il me restera moins de 3 €, je ne peux plus en rajouter sur les prix = résultat

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function distribution(Prix, A, B, C) distribution = Prix - (A + B + C) If distribution - 3 >= 0 Then A = A + 1 B = B + 1 C = C + 1 distribution Prix, A, B, C End If distribution = Prix - (A + B + C) End Function Sub distribue() Prix = 40 A = 8 B = 10 C = 12 reste = distribution(Prix, A, B, C) MsgBox "A = " & A & Chr(10) & "B = " & B & Chr(10) & "C = " & C & Chr(10) & "Reste = " & reste End Sub

---

dis nous si ça doit ressembler a ça
pour les autres, en annexe a ce sujet, il y a quelque chose que je ne comprend pas dans ce que je viens de faire
si j'écris la fonction comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Function distribution(Prix, A, B, C) distribution = Prix - (A + B + C) If distribution - 3 >= 0 Then A = A + 1 B = B + 1 C = C + 1 distribution Prix, A, B, C End If '''''distribution = Prix - (A + B + C) End Function

---

et qu'on déroule en F8 le calcul se passe bien, la valeur de distribution arrive bien a 1, mais a la fin, a chaque end if elle remonte de trois, elle reprend sa valeur initial d'avant chaque passage dans la boucle, et je ne comprend pas très bien le phénomène

Bonjour alsimbad,

Ce que tu cherches à faire par ton 2ème code s'écrirait ainsi (en respectant ton mécanisme)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Command1_Click() Dim prix As Single, A As Single, B As Single, C As Single prix = 40 A = 5 B = 10 C = 3 MsgBox "reste " & distribution(prix, A, B, C) & vbCrLf & A & " " & B & " " & C End Sub   Private Function distribution(prix As Single, A As Single, B As Single, C As Single) As Single distribution = prix - (A + B + C) If distribution - 3 >= 0 Then A = A + 1 B = B + 1 C = C + 1 distribution = distribution(prix, A, B, C) End If End Function

---

Mais personnellement, récursivité pour récursivité (bien inutile ici) je l'écrirais encore autrement ;)

ok alors, mais bon, juste pour m'expliquer, je vois bien que la chose n'a pas besoin d'etre comme ça, mais bon. la differrence entre nos deux fonction, en dehors des déclarations, est

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Function distribution(prix As Single, A As Single, B As Single, C As Single) As Single distribution = prix - (A + B + C) If distribution - 3 >= 0 Then A = A + 1 B = B + 1 C = C + 1 distribution = distribution(prix, A, B, C) End If End Function Function distribution(prix, A, B, C) distribution = prix - (A + B + C) If distribution - 3 >= 0 Then A = A + 1 B = B + 1 C = C + 1 distribution prix, A, B, C End If End Function

---

et alor, juste for fun, je ne comprend pas ce qui fait la differrence. la tienne fonctionne, pas la mienne, mais je ne vois pas.
du moins, elle fonctionne, la valeur de distribution passe bien a 1 en final, puis sur les end if, elle remonte jusqu'a 10. mystère

Ami alsimbad,
la mienne est récursive
Elle se rappelle elle-même par :

Code:

---

distribution = distribution(prix, A, B, C)

---

en se recalculant (par passage des paramètres)

La tienne ne l'est pas et son appel, de surcroît , ne revêt pas la forme de l'appel d'une fonction puisqu'elle ne lui passe pas de paramètres.
ceci :

Code:

---

distribution prix, A, B, C

---

ne passe pas de paramètres à une fonction et serait la forme à utiliser pour une procédure.

Je sais que tout n'est pas immédiatement compréhensible, mais voilà ...
Je pense qu'il te suffit de bien te concentrer ...
tu vois bien comment, depuis le click de command1 on a appelé la fonction :
ainsi :

Code:

---

distribution(prix, A, B, C)

---

et pas ainsi :

Code:

---

distribution prix, A, B, C

---

Bien !

L'appel de la fonction sur elle-même (récursivité) revêt exactement la même forme que l'appel de la fonction depuis l'extérieur.

Si tu as encore des difficultés à ce sujet : =====>>>> MP et on fait quelques petits exercices ensemble, avec plusieurs exemples. Comme tu veux... Il me sera toujours agréable de t'aider à y voir très clair dans ce domaine... j'ai bien vu tes autres interventions et connais et aprécie ta valeur...;)

Salut, finalement il s'agissait bien d'une fonction récursive, j'ai réussi à la faire ;)

En fait, il faut faire un call pour appeler la procedure et passer les paramètres, sachant que la seconde fois ou on la rappelle, les parametres changeront logiquement ;)