probleme triangle pascal

Question

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

aainfo · Answer

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

aainfo · Answer

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

layane · Answer

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

twist · Answer

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.

Probleme triangle pascal

4 réponses

Discussions similaires

Newsletters