0/5 (2 avis)
Snippet vu 11 103 fois - Téléchargée 413 fois
/--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Palindrome.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::cmd_TESTERClick(TObject *Sender) { // DEBUT // SI lorsque le bouton est pressé la chaine txt_MOT est vide // ALORS on affiche un message d'erreur // SINON on effectue le test if (txt_MOT->Text == "") { Application->MessageBoxA("Veuillez Saisir un mot...","Erreur"); } else { // Declaration et Affectation de la variable NbCar servant à contenir // le nombre de caractères de la chaine txt_MOT int NbCar = 0; NbCar = txt_MOT->Text.Length(); // Boucle TANT QUE // TANT QUE le nombre de caractère est supérieur à -1 // FAIRE : On prend le caractère de txt_MOT ayant la position donnée // par NbCar // On le concatène à la chaine txt_MOTINVERSE // On retire 1 à NbCar // // cela va permettre de d'obtenir le contenu de la chaine txt_MOT // en sens inverse // Ex : CHAT. NbCar = 4. // Entrée dans le TANT QUE : NbCar = 4 donc txt_MOTINVERSE = T // puis NbCar -1 = 3 // puis : txt_MOTINVERSE = A NbCar = 2..... ect.. // Sortie du TANT QUE (Quand NbCar < 0): txt_MOTINVERSE = TAHC while (NbCar > 0) { txt_MOTINVERSE->Text = txt_MOTINVERSE->Text + txt_MOT->Text.SubString(NbCar,1); NbCar = NbCar -1; } // On compare ensuite les 2 chaines txt_MOT et txt_MOTINVERSE // SI elles sont identiques ALORS c'est un palindrome // SINON ce n'est pas un palindrome if (txt_MOTINVERSE->Text == txt_MOT->Text) { txt_CONCLUSION->Text = "Le mot saisi est un palindrome"; } else { txt_CONCLUSION->Text = "Le mot saisi n'est pas un palindrome"; } // On desactive le bouton tester // (Cela oblige l'utilisateur d'utiliser le bouton effacer) cmd_TESTER->Enabled = false; } // fin si du début // FIN } //--------------------------------------------------------------------------- void __fastcall TForm1::cmd_REFRESHClick(TObject *Sender) { //DEBUT // On efface toutes les zones de textes txt_MOT->Text =""; txt_MOTINVERSE->Text =""; txt_CONCLUSION->Text =""; // On réactive le bouton tester cmd_TESTER->Enabled = true; //FIN } //---------------------------------------------------------------------------
2 déc. 2006 à 21:25
bool Palindrome(char *pMot)
{
int j=0;
for(int i=strlen(pMot); i > (strlen(pMot)/2) ;i--)
{
char p1 = *(pMot + j);
char p2 = *(pMot + (i-1));
if(p1 != p2)
{
return (0);
}
j=j+1;
}
return (1);
}
4 avril 2003 à 13:33
EN C/C++ POINTEURS et encore POINTEURS !!!
Cherche dans sources publiees, j'en ai deja fait la correction.
ciao...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.