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.
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.