begin process at 2012 02 13 00:10:10
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Chaîne de caractères

 > EST-CE UN PALINDROME ? (C++ BUILDER 6)

EST-CE UN PALINDROME ? (C++ BUILDER 6)


 Information sur la source

Note :
2 / 10 - par 2 personnes
2,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :8 878 / 317

Auteur : Pegasus59

Ecrire un message privé
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip [C] WD_STRING V2.2 par cyberripper
Source avec Zip LES STRING EN C, AFFECTATION, CONCATÉNATION, SPLIT, ... par appranting
Source avec Zip [C] WD_STRING V1.9 par cyberripper
Source avec Zip LIBRAIRIE LANGUAGES par astro53
FONCTION : CHAR * AJUSTERTAILLECHAINE() par Rockanos

Commentaires et avis

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

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,359 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales