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

Commenter

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

S'inscrire maintenant

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.