R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

#endif

#define R 80 // diagrammalar radiusi

#define D 160 // diagrammalar diametri

#define TORAD 0.0174532//burchakni gradusdan radianga

// o’tkazish koeffisenti

/*burchak kattalikni gradusdan radianga o’tkazish uchun, gradusdagi kattalikni Pi/180 ga ko’paytirish kerak */

//forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

int i,j;

// boshlang’ich ma’lumotlarni "pufakli" usulda

// saralash"

float bd;

AnsiString bt;

TColor be;

for (i = 0; i < HB; i ++)

for (j =0; j < HB-1; j++)

if (data[j+1] < data[j])

{

//i-chi va i+1-chi elementlar o’rnini almashtirish

bd = data[j];

data[j] = data[j+1];

data[j+1] = bd;

bt = dTitle[j];

dTitle[j] = dTitle[j+1];

dTitle[j+1] = bt;

be = cl[j];

cl[j]=cl[j+1];

cl[j+1] = be;

}

#ifdef OBR

// ma’lumotlarni qayta ishlash – umumiy summadan xar

// bir kategoriyaning ulushini hisoblash каждой