Association Tunisienne pour l'Informatique Scolaire Index du Forum

Association Tunisienne pour l'Informatique Scolaire
BACCALAUREAT INFORMATIQUE et CAPES INFORMATIQUE

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

correction ex2

 
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC THEORIQUE 2012
Sujet précédent :: Sujet suivant  
Auteur Message
ezzeddine
6- Professeur

Hors ligne

Inscrit le: 18 Oct 2008
Messages: 16
Emploi: Professeur
Localisation: Tunis
Lycée/collège: Mnihla
Sexe: Masculin
Point(s): 27

MessagePosté le: Jeu 7 Juin 2012 - 13:47    Sujet du message: correction ex2 Répondre en citant

program bac_2012_ex2;
uses wincrt;
type  mat = array[1..10,1..10] of integer;
var M:mat;
    i,j,N:integer;
procedure Inconnue(N:integer; var M:mat);
var  L,C,P:integer;   {objets locaux de la procédure Inconnue}
begin
for L:=1 to N do
    for C:=1 to L do
    begin
         M[L,C]:=1;
         for P:=C-1 downto 1 do
             M[L,p]:=M[L,P]+M[L,P-1];
    end;
end;

begin
N:=4;
Inconnue(N,M);
{Affichage du résultat}
writeln('Pour N = 4, le résultat sera:');
for i:=1 to n do
begin
 writeln;
 for j:=1 to i do
   write(M[i,j],' ');
end;
end.

{C'est le Triangle du pascal}


Revenir en haut
Publicité






MessagePosté le: Jeu 7 Juin 2012 - 13:47    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
feriel_f
7- Membre

Hors ligne

Inscrit le: 02 Juin 2012
Messages: 6
Emploi: Elève
Localisation: Tunis
Lycée/collège: carthage
Point(s): 0

MessagePosté le: Jeu 7 Juin 2012 - 18:45    Sujet du message: correction ex2 Répondre en citant

Pour ne pas avoir débordement de la matrice, il faut mieux écrire :
for L:=1 to N do
for C:=1 to L do
begin
M[L,C]:=1;
for P:=C-1 downto 2 do
M[L,p]:=M[L,P]+M[L,P-1];
end;
end;


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 08:58    Sujet du message: correction ex2

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC THEORIQUE 2012 Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com