1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Génération du triangle de pascal à un ordre quelconque

Génération du triangle de pascal à un ordre quelconque

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 398 fois - Téléchargée 40 fois

Commenter

Contenu du snippet

Cette source vous permettra d'afficher dans une fenêtre DOS le triangle de Pascal à un ordre saisi par l'utilisateur. (Note: le code est pour Delphi mais si vous enlevez le {$APPTYPE CONSOLE} et le uses Sysutils vous pourrez l'utiliser avec turbo pascal. Merci de me prévenir si vous trouvez un éventuel probleme.

Source / Exemple : 


Program TrianglePascal;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tabb=array[1..50,1..50] of integer;
var t:tabb;
    i,j,n:integer;
Begin
Repeat
writeln('entrez l''ordre du triangle');readln(n);
Until (n>=2) and (n<=20);

For i:=1 to n+1 do
    For j:=1 to n+1 do
        T[i,j]:=0;

For i:=1 to n+1 do
Begin
     For j:=1 to n+1 do
     Begin
     if (j=1) and (j<>1) then t[i,j]:=0;
     If j=1 then t[i,j]:=1
     else
     begin
     if i<>1 then t[i,j]:=t[i-1,j]+t[i-1,j-1];
     end;
     if t[i,j]<>0 then write(t[i,j],' ');
     end;
writeln;
end;
readln;
end.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.