Génération du triangle de pascal à un ordre quelconque
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 289 fois - Téléchargée 39 fois
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
- Génération du triangle de pascal à un ordre quelconque
- PHP : Générer n lignes du triangle de pascal ( utile pour développement polynom - Guide
- Triangle de pascal c++ - Guide
- Triangle de pascal java - Guide
- C / C++ / C++.NET : Triangle de pascal - CodeS SourceS - Guide
- Triangle de pascal en c - Codes sources - C / C++ / C++.NET (Maths & Algorithmes)
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.