AÇIKLAMA

Bu Program C++ Builder 6 ile uyumludur. Sitemizde birkaç tane palindrom kelime test eden program olması rağmen hepsi tek sayı uzunluğundaki kelimeleri test edebiliyorlardı. Bu program ise uzunluk farketmeden baştan sona doğru okunduğunda ve sondan başa doğru okunduğunda aynı olan kelimeleri ayrım yapmadan (uzunluğu tek veya çift ) olsada palindrom testine tabi tutar. 

Palindrom kelime örneği; abba,takat,anna,aya,ama,nalan,makam gibi.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

Program Kodu:

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char *dizi1,*dizi2;
dizi1= (char*) malloc(Edit1->Text.Length());
dizi2= (char*) malloc(Edit1->Text.Length());
strcpy(dizi1,Edit1->Text.c_str());
strcpy(dizi2,strrev(Edit1->Text.c_str()));
int saydir=0;
int kontrol=Edit1->Text.Length();
for(int i=0;i<kontrol;i++)
{
 if(dizi1[i]==dizi2[i])
 saydir++;
}
if(kontrol==saydir)
ShowMessage("Bu kelime palindromdur");
else
ShowMessage("Bu kelime palindrom değildir");
}
//---------------------------------------------------------------------------