CorrectionTP6 .pdf


Nom original: CorrectionTP6.pdf
Auteur: user

Ce document au format PDF 1.5 a été généré par Microsoft® Office Word 2007, et a été envoyé sur fichier-pdf.fr le 26/04/2017 à 21:16, depuis l'adresse IP 105.103.x.x. La présente page de téléchargement du fichier a été vue 713 fois.
Taille du document: 183 Ko (3 pages).
Confidentialité: fichier public


Aperçu du document


République Algérienne Berbérine Démocratique Et Populaire De
La Wilaya De Bejaia
Université A. Mira
Correction De La Série Du Tp Sur Les Chaines De Caractères
Module Algorithmique 2
Enseignante Et Auteure : Choubane Faiza

Exercice 3:
program exo2;
uses wincrt;
var S,S1:String;
i,n,j:integer;
x:char;
begin
writeln('Lisez moi la chaine de caractères ');
readln(s);
s1:=s;
n:=length(s);
i:=1;
j:=n;
while(i<>j) do
begin
x:=s[i];
s[i]:=s[j];
s[j]:=x;
i:=i+1;
j:=j-1;
end;
if(s1=s) then
1

writeln(s, ' est un mot palindrome')
else
writeln(s, ' n'' est pas un mot palindrome');
end.
Exercice1 :
program exo1;
uses wincrt;
var S:string;
l,C1,C2,C3,i:integer;
begin
writeln('Lisez moi une chaine de caractères');
readln(S);
l:=length(s);
c1:=0;
c2:=0;
C3:=0;
for i:=1 to l do
case S[i] of
'A'..'Z':C1:=C1+1;
'a'..'z':C2:=C2+1;
'0'..'9':C3:=C3+1;
end;
if( C1>=1)then
writeln(' Le nombre de lettre Majuscule est ',C1);
if( C2>=1)then
writeln(' Le nombre de lettre Minuscule est ',C2);
if( C3>=1)then
writeln(' Le nombre de chiffre est ',C3);
if (l-(C1+C2+C3)>=1) then
2

writeln(' Autre Symboles');
end.

Exercice2:
program exo2;
uses wincrt;
var PH,Mot:string;
C1:integer;
begin
writeln('Lisez moi une chaine de caractères');
readln(PH);
writeln('Lisez moi le mot');
readln(Mot);
C1:=0;
while(pos(Mot,ph)>0) do
begin
C1:=C1+1;
readln(Mot);
end;
writeln(C1,’ le nombre de mot dans cette phrase’);
end.

3


Aperçu du document CorrectionTP6.pdf - page 1/3

Aperçu du document CorrectionTP6.pdf - page 2/3

Aperçu du document CorrectionTP6.pdf - page 3/3




Télécharger le fichier (PDF)




Sur le même sujet..





Ce fichier a été mis en ligne par un utilisateur du site. Identifiant unique du document: 00507117.
⚠️  Signaler un contenu illicite
Pour plus d'informations sur notre politique de lutte contre la diffusion illicite de contenus protégés par droit d'auteur, consultez notre page dédiée.