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

Kullanıcıdan alınan sayının faktöriyelini hesaplayan 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 a=StrToInt(InputBox("SAYI GİRİŞİ","Sayı Giriniz",""));

double sonuc=1;

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

{

sonuc=sonuc*i;

}

String yazdir=IntToStr(a)+"!'in Sonucu: ";

yazdir+=sonuc;

Application->MessageBox(yazdir.c_str(),"SONUC",MB_ICONINFORMATION);

}

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