🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fr.comp.os.ms-windows.programmation
Article #56

Re: Petit algorithme

#56
From: Verdier St�phane
Date: Sun, 13 Feb 2000 00:00
92 lines
3019 bytes
Comment transposes tu ton algo pour 3 d�s.
Voici la modification que j'apporterai � ton algo :
Les lignes modifi�es sont not�es **
> D�but
>
>   Saisir(N)
>   nfacon <- 0
>   Pour d1 allant de 1 � 6 faire
**       Pour d2 allant de d1 � 6 faire  (Tu �vites ainsi les doublons)
>      Si (d1+d2)=N
>        nfacon <- nfacon +1
**                              ----------------- Tu peux envisager une
sortie de boucle d2, tu limites les occurences inutiles.
>      FinSi
>    FinPour
>  FinPour

** Plus besoin de faire un calcul savant, qui doit poser des pbs � trois
d�s.
> Afficher(nfacon)
> Fin

Pour ton algo � trois d�s ca doit donner ceci :
D�but

   Saisir(N)
   nfacon <- 0
   Pour d1 allant de 1 � 6 faire
       Pour d2 allant de d1 � 6 faire
**        Pour d3 allant de d2 � 6 faire
**      Si (d1+d2+d3)=N
        nfacon <- nfacon +1
      FinSi
    FinPour
 FinPour
Afficher(nfacon)
Fin



jeuf <jeufman@worldonline.fr> a �crit dans le message :
38A713BF.7DCD594C@worldonline.fr...
> Bonjour le NG ,
>
> J'ai un petit probleme d'algorithmique que j'ai du mal a resoudre.
> Pouvez vous m'aider ?
>
>
>
> L'utilisateur donne un entier entre 3 et 18, le programme donne le
> nombre de fa�on de faire en lan�ant 3 d�s dont les faces portent de 1 �
> 6 points
>
> Pour la version entre 2 et 12 points avec 2 d�s j'ai fait
>
> Variables :
> -N : entier compris entre 2 et 12
> -d1 : compteur pour le 1er d�
> -d2 : compteur por le 2eme d�
> -nfacon : comptabilise le nombre de fa�on
>
> D�but
>
>   Saisir(N)
>   nfacon <- 0
>   Pour d1 allant de 1 � 6 faire
>     Pour d2 allant de 1 � 6 faire
>      Si (d1+d2)=N
>        nfacon <- nfacon +1
>      FinSi
>    FinPour
>  FinPour
> Si (nfacon%2=0)
> nfacon <- nfacon/2
> FinSi
> Sinon
> nfacon <- (nfacon+1)/2
> FinSinon
>
> Afficher(nfacon)
> Fin
>
>
> Cet algorithme marche mais si je le transpose a la version 3 d�s, ca ne
> marche plus.
>
> Pouvez vous � dieux de l'algorithme m'indiquer la solution ?
>
>
> Jeufman
>
>
Technical Details
Message-ID: <ibFp4.58$%Y7.521364@nnrp2.proxad.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <38A713BF.7DCD594C@worldonline.fr>

Show Full Headers
Complete Article Headers
X-Google-Language: FRENCH,ASCII
X-Google-Thread: fff80,939171b795193bee
X-Google-Attributes: gidfff80,public
X-Google-Thread: 1053e6,939171b795193bee
X-Google-Attributes: gid1053e6,public
X-Google-Thread: fa08f,939171b795193bee
X-Google-Attributes: gidfa08f,public
From: "Verdier St�phane" <verdier.st@free.fr>
Subject: Re: Petit algorithme
Date: 2000/02/13
Message-ID: <ibFp4.58$%Y7.521364@nnrp2.proxad.net>
X-Deja-AN: 585466131
References: <38A713BF.7DCD594C@worldonline.fr>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
X-Complaints-To: abuse@proxad.net
X-Trace: nnrp2.proxad.net 950476622 213.228.27.27 (Sun, 13 Feb 2000 22:17:02 CET)
Organization: Guest of ProXad - France
X-MSMail-Priority: Normal
NNTP-Posting-Date: Sun, 13 Feb 2000 22:17:02 CET
Newsgroups: fr.comp.os.ms-windows.programmation,francom.programmation,fr.comp.divers