hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, 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
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
Mechergui haythem
recent membre
recent membre

Hors ligne

Inscrit le: 01 Déc 2008
Messages: 13
Point(s): 150
Moyenne de points: 0

Posté le: Jeu 4 Déc - 13:03 (2008)    Sujet du message: Triangle pascal Répondre en citant

PublicitéSupprimer les publicités ?
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
hlayyem


Hors ligne

Inscrit le: 14 Fév 2009
Messages: 1
Masculin
Point(s): 18
Moyenne de points: 0

Posté le: Sam 14 Fév - 01:16 (2009)    Sujet du message: Triangle pascal Répondre en citant

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


Hors ligne

Inscrit le: 19 Fév 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Ven 19 Fév - 22:14 (2010)    Sujet du message: Triangle pascal Répondre en citant

merciiiiiiiiiiiiiiiiiiiiiiii

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:07 (2016)    Sujet du message: Triangle pascal

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> `··._.·`·.¸¸.·´´Cours¯`··._.·`·.,¸¸,.·´¯ Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation