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 ...
Tri d'un tableau de caractères
 
 
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: Ven 19 Fév - 22:19 (2010)    Sujet du message: Tri d'un tableau de caractères Répondre en citant

PublicitéSupprimer les publicités ?
Enoncé de l'exercie
Soit un tableau T1 contenant N lettres majuscule(de A à Z), n étant un entier compris entre 5 et 20.
On désire triés en ordre croissant les éléments de T1 et les ranger dans un tableau T2 en utilisant le principe suivant :
1. chercher la lttre qui a le plus petit code ASCII dans T1.
2. a) ranger cette lettre dans T2.
b) remplacer cette lettre par '*' dans T1.
3. répéter n fois les étapes 1 et 2.
Ecrire un programme Pascal qui permet de :
* saisir les éléments de T1.
* trier les éléments de T1 et les ranger dans T2.
* afficher les éléments de T2

Solution en Pascal
{
La résolution de ce problème demande :
_ Deux tableaux de 20 caractères au max.
_ Une procedure Saisie permettant de saisir le tableau t1 et sa dimension n.
_ Une procedure Trier qui permet de remplir le tableau T2 avec les éléments
de t1 triés dans l'ordre croissant.
_ Une procedure Afficher qui affiche les éléments de T2 apres le tri.
}
program triage;

uses wincrt;

type tab= array[1..20] of char;

var t1,t2:tab;
n:integer;

{ La fonction recherche cherche l'indice de l'élément de T1 qui a le plus petit code Accii .}

function recherche (t1:tab;n:integer):integer;

var i,ordmin,indmin:integer;

begin
ordmin:=255;
for i:=1 to n do
if (t1 <> '*') and (ord(t1)< ordmin) then
begin
ordmin:=ord(t1);
indmin:=i;
end;
recherche:=indmin;
end;

{ Procedure Trier }

procedure trier (var t1,t2:tab; n:integer);
var i,indmin: integer;
begin
for i:=1 to n do
begin
indmin:=recherche(t1,n);
t2:=t1[indmin];
t1[indmin]:='*';
end;
end;

{ Procedure saisie
les éléments de T1 doivent être des lettres majuscules }

procedure saisie(var t1: tab ; var n: integer);
var i:integer;

begin
write('Donner la dimension de votre tableau :');
repeat
read(n);
until (n in [5..20]);

writeLN('Saisir maintenant des lettres majuscules :');
for i:= 1 to n do
repeat
read(t1);
until(t1 in ['A'..'Z']);

end;

{ Procedure Afficher }

procedure afficher (t2: tab; n: integer);

var i:integer;

begin
writeLN('Les lettres Triées dans l''ordre croissant :');
for i:=1 to n do
writeln(t2);
end;

{ Le programme principal }

begin

saisie(t1,n);
trier(T1,T2,n);
afficher(t2,n);
end. 

Télécharger l'exercice


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 3 Mar - 08:20 (2010)    Sujet du message: Tri d'un tableau de caractères Répondre en citant

Razz Razz Razz Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 13:07 (2016)    Sujet du message: Tri d'un tableau de caractères

 
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