EST-CE UN PALINDROME ? (C++ BUILDER 6) , Source N°10625

Information sur la source

Catégorie :Chaîne de caractères Niveau : Débutant Date de création : 04/04/2003 Date de mise à jour : 04/04/2003 12:48:52 Vu / téléchargé: 4 896 / 119

Auteur : Pegasus59

Ecrire un message privé

Note :

2,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

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

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

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

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

interface.bmp 667 554 octets

Télécharger le zip

Sources de la même categorie

Toutes les sources de la catégorie Chaîne de caractères

Commentaires

Commentaire de BruNews le 04/04/2003 13:33:06 administrateur CS

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...
Commentaire de Ilsundal le 02/12/2006 21:25:05

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);
}