Fonksiyonlar Yardımıyla Toplama Yapmak ve 1 den Herhangi Bir Sayıya Kadar Toplamı Bul

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int toplam(int n)
{
    int T=0;
    for(int i=1;i<=n;i++)
    {
        T=T+i;
    }
    return T;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a=StrToInt(InputBox("GİRİş","SINIR DEÐERİ GİRİN",""));
int tp=toplam(a);
ShowMessage(tp);
}
//---------------------------------------------------------------------------
int ikisayitoplami(int a, int b)
{
    return a+b;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int aaa=StrToInt(InputBox("GİRİş","1.SAYIYI GİRİN",""));
int bbb=StrToInt(InputBox("GİRİş","2.SAYIYI GİRİN",""));
 
int t=ikisayitoplami(aaa,bbb);
 
ShowMessage(t);
}
//---------------------------------------------------------------------------