Triangle pascal
Résolu/Fermé
Stoicien
Messages postés
78
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
14 mars 2014
-
13 déc. 2007 à 13:34
DT - 20 juil. 2011 à 17:54
DT - 20 juil. 2011 à 17:54
A voir également:
- Exercice algorithme triangle corrigé
- Fleur d'encre 5eme corrigé exercice ✓ - Forum PDF
- Transmath 3eme corrigé exercices ✓ - Forum Études / Formation High-Tech
- Algorithme euromillion excel gratuit - Forum Excel
- Confession d'une femme sujet corrigé - Forum Téléchargement
- Triangle des textures exercice corrigé - Forum Loisirs / Divertissements
4 réponses
programme pascale qui affiche le triangle de pascal
program tr_pas;
uses crt;
const n=10;
var a:array[1..n,1..n]of integer;
i,j:integer;
begin clrscr; textcolor(10);
gotoxy(15,3);write('le triangle de pascal');
textcolor(11);for i:=1 to n do
begin a[i,i]:=1;a[i,1]:=1;
gotoxy(i+10+(2*i),i+5);write(a[i,i]);
gotoxy(13,i+5);write(a[i,i]);end;
for i:=2 to n do for j:=2 to i-1 do
begin a[i,j]:=a[i-1,j-1]+a[i-1,j];
gotoxy(j+10+(2*j),i+5); write(' ',a[i,j]); end;
readln;
end.
program tr_pas;
uses crt;
const n=10;
var a:array[1..n,1..n]of integer;
i,j:integer;
begin clrscr; textcolor(10);
gotoxy(15,3);write('le triangle de pascal');
textcolor(11);for i:=1 to n do
begin a[i,i]:=1;a[i,1]:=1;
gotoxy(i+10+(2*i),i+5);write(a[i,i]);
gotoxy(13,i+5);write(a[i,i]);end;
for i:=2 to n do for j:=2 to i-1 do
begin a[i,j]:=a[i-1,j-1]+a[i-1,j];
gotoxy(j+10+(2*j),i+5); write(' ',a[i,j]); end;
readln;
end.