Est-ce un palindrome ? (c++ builder 6)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 761 fois - Téléchargée 411 fois

Contenu du snippet

Qu'est ce qu'un palindrome ?

Est bien c'est un mot qui peut se lire dans les deux sens tout en gardant sa signification.
EX : ANNA, ETE, RADAR.........

Certes ce programme ne sert pas à grand chose mais m'a permis d'apprendre à utiliser les boucles et à manipuler les chaines de caractères.

Vous trouverez ci dessous le code des boutons TESTER et EFFACER de l'interface
Cette dernière comporte également 3 zones de textes :
txt_MOT (Saisie de l'utilisateur); txt_MOTINVERSE (Affiche le mot inversé); txt_CONCLUSION (Donne la conclusion concernant la possibilité ou non que le mot saisi soit un palindrome)

(NB: Le code est expliqué sous forme algorithmique)

Source / Exemple :


/---------------------------------------------------------------------------

#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
}
//---------------------------------------------------------------------------

A voir également

Ajouter un commentaire

Commentaires

Messages postés
79
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
1 mars 2011

J'avais deja fait ce genre de travail lors d'un TP en 1ere Année de BTS IRIS. voici la source, le but ete d'avoir une fonction dans laquel on donne le mot et renvoi en booleen si c'est un palindrome ou non :

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);
}
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
21
2 pauvres pointeurs suffisent, pas besoin de savoir sa longueur ni de la retourner. Prends pas mal, mais c'est aussi efficace que du VB.
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.