hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Exercice 11 page 142 Ch 4 - les structures itératives
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Sam 29 Nov - 13:25 (2008)    Sujet du message: Exercice 11 page 142 Ch 4 - les structures itératives Répondre en citant

PublicitéSupprimer les publicités ?
{Exercice 11 page 142 Ch 4 - les structures itératives
déterminer la plus longue séquence croissante d'éléments d'un tableau d'entiers}
{Principe :
La solution proposée consiste a parcourir le tableau T jusqu'à l'avant dernière case. Un tableau S est prévu pour contenir la taille de la séquence par rapport aux éléments de T. une fois toutes les séquences calculées, il suffit de chercher la séquence maximale et de l'afficher sur écran.}

Program seq_tableau;
uses wincrt;

Type
Tab=array[1..50] of integer;

var
T,S:Tab;
n,i:integer;

Procedure saisie(var n:integer);
begin
repeat
write('Donner la taille du tableau : ');
readln(n);
until n in [5..50];
end;

Procedure remplir(var T:Tab; n:integer);
var
i:integer;
begin
for i:=1 to n do
begin
repeat
Writeln('Donner la case n° ',i,' : ');
readln(T);
until T in [0..9];
end;
end;

procedure calcul(T:Tab; n:integer;var S:Tab);
var
i:integer;
begin
S[1]:=1;
for i:=1 to n-1 do
if T<T then S:=S+1
else S:=1;
end;

function max(S:Tab;n:integer):integer;
var
m:integer;
begin
m:=S[1];
for i:=2 to n do
if S>m then m:=S;
max:=m;
end;

{****************PP***************}

begin
saisie(n);
remplir(T,n);
calcul(T,n,S);
write('La plus longue séquence croissante de T est :',max(S,n));
end.


Dernière édition par KARIMOS le Dim 21 Nov - 07:58 (2010); édité 1 fois
 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 31 Aoû - 08:44 (2010)    Sujet du message: Exercice 11 page 142 Ch 4 - les structures itératives Répondre en citant

Okay

 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Sam 20 Nov - 20:29 (2010)    Sujet du message: Exercice 11 page 142 Ch 4 - les structures itératives Répondre en citant

est-il possible de faire mieux sans utiliser un deuxième tableau ?

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 18:57 (2016)    Sujet du message: Exercice 11 page 142 Ch 4 - les structures itératives

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation