Dev-Pascal
Fermé
Gilldas
-
9 juin 2012 à 21:14
aladin07 Messages postés 277 Date d'inscription vendredi 13 avril 2012 Statut Membre Dernière intervention 30 septembre 2012 - 9 juin 2012 à 21:32
aladin07 Messages postés 277 Date d'inscription vendredi 13 avril 2012 Statut Membre Dernière intervention 30 septembre 2012 - 9 juin 2012 à 21:32
A voir également:
- Dev-Pascal
- Telecharger dev c++ - Télécharger - Langages
- Massgrave dev - Accueil - Windows
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
1 réponse
aladin07
Messages postés
277
Date d'inscription
vendredi 13 avril 2012
Statut
Membre
Dernière intervention
30 septembre 2012
30
9 juin 2012 à 21:32
9 juin 2012 à 21:32
Sans inverser les lettres,
var erreu:boolean;
...
//Ne garde que les lettres si situant entre A et Z, plus d'espace
phraseD :='';
for i:=1 to length (phraseB) do
if (phraseC[i]>='A') and (phraseC[i]<='Z') then
phraseD := phraseD + phraseC[i];
writeln(phraseD);
erreur := false;
for i:=1 to length(phraseD)/2 do
if (phraseD[i] <> phraseD[length(phraseD) - i + 1)) then erreur := true;
if(erreur = true) writeln('C''est un palindrome');
else writeln('Ce n''est pas un palindrome');
readln;
end.
var erreu:boolean;
...
//Ne garde que les lettres si situant entre A et Z, plus d'espace
phraseD :='';
for i:=1 to length (phraseB) do
if (phraseC[i]>='A') and (phraseC[i]<='Z') then
phraseD := phraseD + phraseC[i];
writeln(phraseD);
erreur := false;
for i:=1 to length(phraseD)/2 do
if (phraseD[i] <> phraseD[length(phraseD) - i + 1)) then erreur := true;
if(erreur = true) writeln('C''est un palindrome');
else writeln('Ce n''est pas un palindrome');
readln;
end.