A voir également:
- Probleme triangle pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Triangle away - Télécharger - Utilitaires
- Uses crt pascal - Forum Pascal
4 réponses
aainfo
Messages postés
80
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
30 juillet 2008
13
8 mars 2008 à 22:42
8 mars 2008 à 22:42
salut Tony_montana21......
voila ton problém est résolut .....
(j'espére que je trouve moi aussi des solutions à mes problémes....)
program triangle;
uses crt;
const n=9;
var i,j:integer;
t:array[1..n*(n+1) div 2]of integer;
function F(i,j:integer):integer;
begin
F:=i*(i-1) div 2+(j-1)+1;
end;
begin
clrscr;
textbackground(red);
textcolor(white);
writeln(' *** LE TRIANGLE DE PASCAL ***');
writeln;
writeln;
for i:=1 to n do
begin
t[F(i,1)]:=1;
t[F(i,i)]:=1;
end;
for i:=1 to n do
for j:=2 to i-1 do
t[F(i,j)]:= t[F(i-1,j-1)]+t[F(i-1,j)];
for i:=1 to n do
begin
for j:=1 to i do
write(t[f(i,j)]:5, ' ');
writeln;
end;
readln;
end.
-----------------------------------------------------------------------------------------------
salutttttttttttttttt coucou !!!!!!!!!!!
voila ton problém est résolut .....
(j'espére que je trouve moi aussi des solutions à mes problémes....)
program triangle;
uses crt;
const n=9;
var i,j:integer;
t:array[1..n*(n+1) div 2]of integer;
function F(i,j:integer):integer;
begin
F:=i*(i-1) div 2+(j-1)+1;
end;
begin
clrscr;
textbackground(red);
textcolor(white);
writeln(' *** LE TRIANGLE DE PASCAL ***');
writeln;
writeln;
for i:=1 to n do
begin
t[F(i,1)]:=1;
t[F(i,i)]:=1;
end;
for i:=1 to n do
for j:=2 to i-1 do
t[F(i,j)]:= t[F(i-1,j-1)]+t[F(i-1,j)];
for i:=1 to n do
begin
for j:=1 to i do
write(t[f(i,j)]:5, ' ');
writeln;
end;
readln;
end.
-----------------------------------------------------------------------------------------------
salutttttttttttttttt coucou !!!!!!!!!!!
aainfo
Messages postés
80
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
30 juillet 2008
13
8 mars 2008 à 23:55
8 mars 2008 à 23:55
éééééééééééo
esque c'est ça ton probléme ou non !!!!!!!!!!!!!!!!!
---------------------------------------------------------------------
salutttttttttttttttt coucou !!!!!!!!!!!
esque c'est ça ton probléme ou non !!!!!!!!!!!!!!!!!
---------------------------------------------------------------------
salutttttttttttttttt coucou !!!!!!!!!!!
je sollicite votre aide concernant la comprehension du programme 'triangle de pascal' en language pascal. j'aimerais que le code source soit suivi de commentaires pour faciliter ma comprehension
