hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Triangle pascal
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Previous topic :: Next topic   hd
Author Message
Mechergui haythem
recent membre
recent membre

Offline

Joined: 01 Dec 2008
Posts: 13
Point(s): 150
Moyenne de points: 0

Posted: Thu 4 Dec - 13:03 (2008)    Post subject: Triangle pascal Reply with quote

Tiangle de pascal:

program trianglepascal;
uses wincrt;
type
tab=array[1..50,1..50] of integer;
var
t:tab;
x:integer;
 

procedure saisir (var x:integer);
begin
repeat
writeln('donner x: ');
readln(x);
until (1<x) and (x<10);
end;
 

procedure remplir (var t:tab;x:integer);
var l,c:integer;
begin
t[1,1]:=1;
t[2,1]:=1;
t[2,2]:=1;
for l:=3 to x do
begin
t[l,1]:=1;
t[l,l]:=1;
end;
for c:=2 to l do
t[l,c]:=t[l-1,c-1]+t[l-1,c];
end;
 

procedure affichage (t:tab;x:integer);
var l,c:integer;
begin
for l:=1 to x do
begin
writeln;
for c:=1 to l do
write(t[l,c]);
end;
end;
 

begin
saisir (x);
remplir(t,x);
affichage(t,x);
end.


 
Revenir en haut
Publicité






Posted: Thu 4 Dec - 13:03 (2008)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
hlayyem


Offline

Joined: 14 Feb 2009
Posts: 1
Masculin
Point(s): 18
Moyenne de points: 0

Posted: Sat 14 Feb - 01:16 (2009)    Post subject: Triangle pascal Reply with quote

c'est pas un triangle de pascal ça Very Happy
Voilà le l'algorithme, c'est testé Shocked
program triangle_pascal;
uses wincrt;
type Matrice=array[1..20,1..20]of integer;
var
   n:integer;
   m:Matrice;
procedure remplir(n:integer;var M:Matrice);
          var
             i,j:integer;
          begin
               M[1,1]:=1;
               for i:=2 to n do
                   begin
                        M[i,1]:=1;
                        M[i,i]:=1;
                        for j:=2 to i-1 do
                        M[i,j]:=M[i-1,j-1]+M[i-1,j];
                   end;
          end;
 
procedure affi(n:integer;M:Matrice);
          var
             i,j:integer;
          begin
               For i:=1 to n do
                Begin
              For j:=1 to i do
               write(M[i,j]:5);
                                         writeln;
                        End ;
 
          end;
 
begin
writeln('donner le coefficient à chercher');
readln(n);
writeln('*********** Triangle de Pascal pour ',n,' coefficients ***********');
writeln;
writeln;
     remplir(n,m);
     affi(n,m);
end.
_________________
salut a tous


 
Revenir en haut
houssem91


Offline

Joined: 19 Feb 2010
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Fri 19 Feb - 22:14 (2010)    Post subject: Triangle pascal Reply with quote

merciiiiiiiiiiiiiiiiiiiiiiii

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation