IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kullanıcıdan alınan bir sayının mükemmel sayı olup olmadığını test eden programdır.

Kod:

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

 

#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)

{

int toplam=0;

int c=StrToInt(InputBox("Sayı Gir","SONUC",""));

for(int i=1;i<c;i++)

{

if(c%i==0)

toplam+=i;

}

if(c==toplam)

Application->MessageBox("Sayı Mükemmel Sayıdır","SONUÇ",MB_ICONINFORMATION) ;

else

Application->MessageBox("Sayı Mükemmel Sayı Değildir","SONUÇ",MB_ICONINFORMATION);

}

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