Algorithmes Récurrents

Voir le sujet précédent Voir le sujet suivant Aller en bas

Algorithmes Récurrents

Message  Hanafi le Jeu 29 Jan - 22:17

Salut tt le monde ! Smile
Voici un exercice interessant :

On désire remplir une matrice M carre de taille n x n (n est un entier donner ≥ 2) par les éléments de deux triangles de Pascal mis à l’ envers de telle sorte qu’ils remplissent toute la matrice M. Écrire un algorithme Triangle qui va saisir n et va remplir la matrice M avec la procédure Remplir1 qui va construire le triangle qui se trouve a gauche de M par le triangle de Pascal et une procédure Remplir2 qui va remplir le deuxième triangle qui est l’inverse du premier triangle.

Finalement on va afficher tous les éléments de M.
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

matrice

Message  Ilyes KHAILI le Mar 24 Fév - 21:45

salut Surprised
voici la solution :
uses wincrt;
type
mat=array[1..10,1..10]of integer;
var
m:mat;
n:integer;
procedure saisie(var n:integer);
begin
repeat
write('Donner n = ');readln(n);
until n in [2..10];
end;
procedure remplir(var m:mat;n:integer);
var
i,j:integer;
begin

for i:=1 to n do
for j:=1 to i do
if(j=1)or(i=j)then
m[i,j]:=1
else
m[i,j]:=m[i-1,J]+m[i-1,j-1];

for i:=n downto 1 do
for j:=n downto i do
if(j=n)or(i=j)then
m[i,j]:=1
else
m[i,j]:=m[i+1,J]+m[i+1,j+1];

end;
procedure affiche(m:mat;n:integer);
var
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j],' ');
writeln;
end;
end;
begin
saisie(n);
remplir(m,n);
clrscr;
affiche(m,n);
end.
Smile

Ilyes KHAILI

Messages : 24
Date d'inscription : 13/11/2008
Age : 27

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Algorithmes Récurrents

Message  Hanafi le Sam 28 Fév - 0:43

Merci pour le partage Bon travail bounce
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Algorithmes Récurrents

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum