aide algo sur les matrices

aide algo sur les matrices - Algo - Programmation

Marsh Posté le 21-12-2008 à 15:53:16    

Bonjour sil vous plait je suis un debutant en algorithme et voici mon problème:
 
 On souhaite écrire un programme qui génère à l'écran le triangle arithmétique de Pascal au rang 8. C'est à dire que l'on veut voir apparaître à l'écran l'affichage suivant:
 1
 
 1 1
 
 1 2 1
 
 1 3 3 1
 
 1 4 6 4 1
 
 1 5 10 10 5 1
 
 1 6 15 20 15 6 1
 
 1 7 21 35 35 21 7 1
 
 1 8 28 56 70 56 28 8 1
 
 On procède en deux temps:
 
On effectue les calculs dans une procédure qui affecte les résultats dans un tableau à deux dimensions de la forme: [0..8, 0..8]
 
 Le programme principal qui contient les déclarations nécessaires, appelle la procédure précédente puis effectue l'affichage souhaitée.
 
Question1:
 Ecrire les déclarations devant apparaître dans le programme principal afin que les paramètres à transmettre à la procédure soient correctement définis.
 
Question2:
 Ecrire la procédure TriangleP (…?…) qui génère les coefficients dans le tableau déjà mentionné.

Reply

Marsh Posté le 21-12-2008 à 15:53:16   

Reply

Marsh Posté le 21-12-2008 à 15:55:58    

un topic suffit :jap:

Reply

Marsh Posté le 21-12-2008 à 19:02:33    

Code :
  1. module Main where
  2. import System.Environment
  3.  
  4. next [] = []
  5. next xs =
  6.     map (uncurry (+)) $ zip (0:xs) (xs ++ [0])
  7.  
  8. pascalTriangle = [1] : (map next pascalTriangle)
  9.  
  10. pascal = flip take pascalTriangle
  11.  
  12. main = do
  13.     args <- getArgs
  14.     let arg = read (args !! 0)
  15.     mapM_ (putStrLn.show) (pascal arg)
 

$ main 42
[1]
[1,1]
[1,2,1]
[1,3,3,1]
[1,4,6,4,1]
[1,5,10,10,5,1]
[1,6,15,20,15,6,1]
[1,7,21,35,35,21,7,1]
[1,8,28,56,70,56,28,8,1]
[1,9,36,84,126,126,84,36,9,1]
[1,10,45,120,210,252,210,120,45,10,1]
[1,11,55,165,330,462,462,330,165,55,11,1]
[1,12,66,220,495,792,924,792,495,220,66,12,1]
[1,13,78,286,715,1287,1716,1716,1287,715,286,78,13,1]
[1,14,91,364,1001,2002,3003,3432,3003,2002,1001,364,91,14,1]
[1,15,105,455,1365,3003,5005,6435,6435,5005,3003,1365,455,105,15,1]
[1,16,120,560,1820,4368,8008,11440,12870,11440,8008,4368,1820,560,120,16,1]
[1,17,136,680,2380,6188,12376,19448,24310,24310,19448,12376,6188,2380,680,136,17,1]
[1,18,153,816,3060,8568,18564,31824,43758,48620,43758,31824,18564,8568,3060,816,153,18,1]
[1,19,171,969,3876,11628,27132,50388,75582,92378,92378,75582,50388,27132,11628,3876,969,171,19,1]
[1,20,190,1140,4845,15504,38760,77520,125970,167960,184756,167960,125970,77520,38760,15504,4845,1140,190,20,1]
[1,21,210,1330,5985,20349,54264,116280,203490,293930,352716,352716,293930,203490,116280,54264,20349,5985,1330,210,21,1]
[1,22,231,1540,7315,26334,74613,170544,319770,497420,646646,705432,646646,497420,319770,170544,74613,26334,7315,1540,231,22,1]
[1,23,253,1771,8855,33649,100947,245157,490314,817190,1144066,1352078,1352078,1144066,817190,490314,245157,100947,33649,8855,1771,253,23,1]
[1,24,276,2024,10626,42504,134596,346104,735471,1307504,1961256,2496144,2704156,2496144,1961256,1307504,735471,346104,134596,42504,10626,2024,276,24,1]
[1,25,300,2300,12650,53130,177100,480700,1081575,2042975,3268760,4457400,5200300,5200300,4457400,3268760,2042975,1081575,480700,177100,53130,12650,2300,300,25,1]
[1,26,325,2600,14950,65780,230230,657800,1562275,3124550,5311735,7726160,9657700,10400600,9657700,7726160,5311735,3124550,1562275,657800,230230,65780,14950,2600,325,26,1]
[1,27,351,2925,17550,80730,296010,888030,2220075,4686825,8436285,13037895,17383860,20058300,20058300,17383860,13037895,8436285,4686825,2220075,888030,296010,80730,17550,2925,351,27,1]
[1,28,378,3276,20475,98280,376740,1184040,3108105,6906900,13123110,21474180,30421755,37442160,40116600,37442160,30421755,21474180,13123110,6906900,3108105,1184040,376740,98280,20475,3276,378,28,1]
[1,29,406,3654,23751,118755,475020,1560780,4292145,10015005,20030010,34597290,51895935,67863915,77558760,77558760,67863915,51895935,34597290,20030010,10015005,4292145,1560780,475020,118755,23751,3654,406,29,1]
[1,30,435,4060,27405,142506,593775,2035800,5852925,14307150,30045015,54627300,86493225,119759850,145422675,155117520,145422675,119759850,86493225,54627300,30045015,14307150,5852925,2035800,593775,142506,27405,4060,435,30,1]
[1,31,465,4495,31465,169911,736281,2629575,7888725,20160075,44352165,84672315,141120525,206253075,265182525,300540195,300540195,265182525,206253075,141120525,84672315,44352165,20160075,7888725,2629575,736281,169911,31465,4495,465,31,1]
[1,32,496,4960,35960,201376,906192,3365856,10518300,28048800,64512240,129024480,225792840,347373600,471435600,565722720,601080390,565722720,471435600,347373600,225792840,129024480,64512240,28048800,10518300,3365856,906192,201376,35960,4960,496,32,1]
[1,33,528,5456,40920,237336,1107568,4272048,13884156,38567100,92561040,193536720,354817320,573166440,818809200,1037158320,1166803110,1166803110,1037158320,818809200,573166440,354817320,193536720,92561040,38567100,13884156,4272048,1107568,237336,40920,5456,528,33,1]
[1,34,561,5984,46376,278256,1344904,5379616,18156204,52451256,131128140,286097760,548354040,927983760,1391975640,1855967520,2203961430,2333606220,2203961430,1855967520,1391975640,927983760,548354040,286097760,131128140,52451256,18156204,5379616,1344904,278256,46376,5984,561,34,1]
[1,35,595,6545,52360,324632,1623160,6724520,23535820,70607460,183579396,417225900,834451800,1476337800,2319959400,3247943160,4059928950,4537567650,4537567650,4059928950,3247943160,2319959400,1476337800,834451800,417225900,183579396,70607460,23535820,6724520,1623160,324632,52360,6545,595,35,1]
[1,36,630,7140,58905,376992,1947792,8347680,30260340,94143280,254186856,600805296,1251677700,2310789600,3796297200,5567902560,7307872110,8597496600,9075135300,8597496600,7307872110,5567902560,3796297200,2310789600,1251677700,600805296,254186856,94143280,30260340,8347680,1947792,376992,58905,7140,630,36,1]
[1,37,666,7770,66045,435897,2324784,10295472,38608020,124403620,348330136,854992152,1852482996,3562467300,6107086800,9364199760,12875774670,15905368710,17672631900,17672631900,15905368710,12875774670,9364199760,6107086800,3562467300,1852482996,854992152,348330136,124403620,38608020,10295472,2324784,435897,66045,7770,666,37,1]
[1,38,703,8436,73815,501942,2760681,12620256,48903492,163011640,472733756,1203322288,2707475148,5414950296,9669554100,15471286560,22239974430,28781143380,33578000610,35345263800,33578000610,28781143380,22239974430,15471286560,9669554100,5414950296,2707475148,1203322288,472733756,163011640,48903492,12620256,2760681,501942,73815,8436,703,38,1]
[1,39,741,9139,82251,575757,3262623,15380937,61523748,211915132,635745396,1676056044,3910797436,8122425444,15084504396,25140840660,37711260990,51021117810,62359143990,68923264410,68923264410,62359143990,51021117810,37711260990,25140840660,15084504396,8122425444,3910797436,1676056044,635745396,211915132,61523748,15380937,3262623,575757,82251,9139,741,39,1]
[1,40,780,9880,91390,658008,3838380,18643560,76904685,273438880,847660528,2311801440,5586853480,12033222880,23206929840,40225345056,62852101650,88732378800,113380261800,131282408400,137846528820,131282408400,113380261800,88732378800,62852101650,40225345056,23206929840,12033222880,5586853480,2311801440,847660528,273438880,76904685,18643560,3838380,658008,91390,9880,780,40,1]
[1,41,820,10660,101270,749398,4496388,22481940,95548245,350343565,1121099408,3159461968,7898654920,17620076360,35240152720,63432274896,103077446706,151584480450,202112640600,244662670200,269128937220,269128937220,244662670200,202112640600,151584480450,103077446706,63432274896,35240152720,17620076360,7898654920,3159461968,1121099408,350343565,95548245,22481940,4496388,749398,101270,10660,820,41,1]


Ca a l'air de marcher :o


Message édité par masklinn le 21-12-2008 à 19:03:11

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box, and replicate and expand beyond their wildest dreams by throwing away the limits imposed by overbearing genetic r
Reply

Marsh Posté le 21-12-2008 à 19:06:24    

Accessoirement, et c'est également valable pour ton autre topikalakon, tu devrais lire les règles de la cat prog:

Citation :

[0D] De la même manière, les demandes de résolutions d'exercices ne seront pas acceptées

 
  • Du moins, s'il s'agit d'une demande de solution toute faite, sans effort manifeste du côté du demandeur. Cette décision a été prise étant donné le nombre croissant de ce type de demandes lors des périodes de reprise des cours ou d'approche des périodes d'examens.
  • Merci aux membres du forum de ne pas donner des résolutions d'exercice lorsqu'il est clair que le demandeur n'a rien fait de son côté


Message édité par masklinn le 21-12-2008 à 19:06:39

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box, and replicate and expand beyond their wildest dreams by throwing away the limits imposed by overbearing genetic r
Reply

Marsh Posté le 21-12-2008 à 20:25:30    

Tout est dit.  
 
Je ferme ce sujet.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed