hg S’enregistrer Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum

hg Revision tunisie scolaire 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 révision tunisie , 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 ...
Convertir toutes les chaines non vides en majuscules
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
hatem ghozzi


Hors ligne

Inscrit le: 01 Mar 2017
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Mer 1 Mar - 21:10 (2017)    Sujet du message: Convertir toutes les chaines non vides en majuscules Répondre en citant

Exercice 1.
Soit T un tableau de N chaines de caractères non vides et dont la taille maximale est 5.
On se propose d’écrire un programme Pascal permettant de réaliser le traitement suivant :
Remplir le tableau T par N chaines (n entre 2 et 20)
Eliminer de chaque chaine tous les caractères non alphabétiques
Convertir toutes les chaines non vides en majuscules
Afficher toutes les chaines dont la taille est strictement supérieur à 2
Exemple : Pour N=4, soit le tableau suivant
 
 





 aB*+y


23 ?uy 


879 ! 


 YHga





 2


 3


  4


  
 
Alors le programme affiche :
 
ABY YHGA  
program ex1;
uses wincrt;
type
tab=array[1..20]of string[6];
var
t:tab;
n:integer;


procedure saisie(var n:integer);
begin
repeat
writeln('Donner n entre 2 et 20');
readln(n);
until n in [2..20];
end;


procedure remplir(var t:tab; n:integer);
var
i:integer; 
begin
for i:=1 to n do
repeat
writeln('Donner t[',i,']=');
readln(t);
until length(t) in [1..5];
end;


procedure elimine(var t:tab;n:integer);
var
ch,chx:string;
i,j:integer; 
begin
for i:=1 to n do 
begin
 ch:=t;
 chx:=''; 
 for j:=1 to length(ch) do
   if upcase(ch[j]) in ['A'..'Z'] then
   chx:=chx+ch[j];
 t:=chx;
end; 
end;


procedure convertir (var t:tab; n:integer);
var
i,j:integer;
 ch:string; 
begin
for i:=1 to n do
begin
 ch:=t;
 for j:=1 to length(ch) do
    ch[j]:=upcase(ch[j]);
 t:=ch;
end; 
end;


procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:=1 to n do
if length(t)>2 then
write(t,' | ');
end;


begin
saisie(n);
remplir(t,n);
elimine(t,n);
convertir(t,n);
affiche(t,n);
end.


Exercice 2.
Ecrire un programme qui détermine la position de la 2ème voyelle d’un tableau T de N lettres Majuscules (N entre 10 et 20). S’il y a moins que 2 voyelles, le programme affichera –1
program ex2;
uses wincrt;
type
tab=array[1..20]of char;
var
t:tab;
n:integer;


procedure remplissage(var t:tab;var n:integer);
var
i:integer;
begin
repeat
writeln('Donner n entre 10 et 20');
readln(n);
until n in [7..20];


for i:=1 to n do
repeat
writeln('Donner T[',i,']=');
readln(t);
until t in ['A'..'Z'];
end;


function nbvoy(t:tab;n:integer):integer;
var
i,x:integer;
begin
x:=0;
for i:=1 to n do
if t in ['A','E','Y','U','I','O'] then
x:=x+1;
nbvoy:=x;
end;


function posvoy(t:tab;n:integer):integer;
 var
 pp,i:integer;
begin
pp:=0;
i:=1;
repeat
if t in ['A','E','Y','U','I','O'] then
pp:=i
else i:=i+1;


until (pp<>0);


i:=pp+1;
pp:=0;
repeat
if t in ['A','E','Y','U','I','O'] then
pp:=i
else i:=i+1;
until (pp<>0);


posvoy:=pp;
end;


begin
remplissage(t,n);
if nbvoy(t,n)<2 then
writeln('-1')
else
writeln('La position de la deuxiéme voyelle est ',posvoy(t,n));
end.


Bannir
_________________
bjr aide moi je trove pa le exercice de programation :p


 
Revenir en haut
Visiter le site web du posteur
Publicité






Posté le: Mer 1 Mar - 21:10 (2017)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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