Probleme triangle pascal

Tony_Montana21 -
twist - 23 mai 2010 à 15:29

Bonjour,
si vous pouvez donné moi une solution pr se probléme:
on se propose d'ecrire un programme pascal qui affiche une pyramide d'entier de la maniere suivante :
exemple : n=5
1
232
34543
4567654
567898765

ALORS??????

Afficher la suite

A voir également:

Probleme triangle pascal
Turbo pascal - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Dev pascal - Télécharger - Édition & Programmation
Faire un triangle sur indesign - Forum InDesign
Périphérique pci triangle jaune - Forum Pilotes (drivers)

4 réponses

Réponse 1 / 4

aainfo Messages postés 80 Date d'inscription Statut Membre Dernière intervention 13

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

Réponse 2 / 4

aainfo Messages postés 80 Date d'inscription Statut Membre Dernière intervention 13

éééééééééééo
esque c'est ça ton probléme ou non !!!!!!!!!!!!!!!!!

---------------------------------------------------------------------
salutttttttttttttttt coucou !!!!!!!!!!!

tony_montana21

non c pa le bon reponse.....regarde bien l'exemple

Réponse 3 / 4

layane

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

Réponse 4 / 4

twist

program colonne;
uses wincrt;
var
ch:string;
i:integer;
begin
repeat
writeln('donner un mot');
readln(ch);
until (length(ch)<12);
for i:=1 to (length(ch)) do
writeln(copy (ch,1,i));
end.

Discussions similaires

Symbole Attention dans Word

Comment faire ce symbole dans Word ?

triangle rouge

Triangle rouge freebox tv révolution Light

Comment faire le symbole attention

Votre réponse

Discussions similaires