Triangle pascal
Résolu
Stoicien
Messages postés
78
Date d'inscription
Statut
Membre
Dernière intervention
-
DT - 20 juil. 2011 à 17:54
DT - 20 juil. 2011 à 17:54
A voir également:
- Exercice algorithme triangle corrigé
- Transmath 3eme corrigé pdf ✓ - Forum Études / Formation High-Tech
- Corrigé d'un exercice du livre transmaths 3e - Forum Loisirs / Divertissements
- Transmath 4eme pdf gratuit 2021 corrigé - Forum Programmation
- Corrigés 350 exercices niveau moyen ✓ - Forum Loisirs / Divertissements
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
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.
