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

float sum = 0;

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

sum += data[i];

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

pr[i] = ( data[i] / sum) * 100;

#else

//boshlang’ich ma’lumotlar foiz shaklida tavsiflanadi

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

pr[i] = data[i];

#endif

}

//Paint xodisani qayta ishlash funksiyasi diagrammani

//chizadi

void __fastcall TForm1::FormPaint(TObject *Sender)

{

int x,y;

int i;

// sarlavha

Canvas->Font->Name = "Tahoma";

Canvas->Font->Size = 12 ;

x = (ClientWidth - Canvas->TextWidth(Title)) /2;

Canvas->Brush->Style = bsClear;

Canvas->TextOutW(x,15,Title);

//***aylana diagramma***

// bu yerda x,y - sektorlarga ajratilgan aylanani o'z

// ichiga oladigan to'rtburchakning chap yuqori

// burchak koordinatlari

x = (ClientWidth - D) /2 - R;

y = 15 + Canvas->TextHeight(Title) + 20;

int x0,y0; // sektor markazi (aylana)

int x1,y1; // yoyning boshlanish nuqta koordinatlari

int x2,y2; // yoyning tugash nuqta koordinatlari

int a1,a2; // OX o’qi va sektor bilan chegaralangan

// to’g’ri chiziq o’rtasidagi burchak

// int n; // kategoriyalar (sektorlar) soni

// n = sizeof(data) / sizeof(float);

x0 = x + R;

y0 = y + R;

a1 = 0; // OX o’qidan ajratilgan birinchi sektor

//Canvas->Pen->Style = psClear

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

/* из-за ошибок округления возможна ситуация, когда между первым и последним секторами будет небольшой промежуток или последний сектор перекроет первый.

Чтобы этого не было, зададим что граница последнего сектора совпадает с прямой ОХ */

if (i != HB-1)

a2 = ( a1 + 3.6 * pr[i]);

else

a2 = 359;

// yoyning boshlanish nuqta koordinatlari

x1 = x0 + R * cos (a2 * TORAD);

y1 = y0 + R * sin (a2 * TORAD);

// yoyning tugash nuqta koordinatlari

x2 = x0 + R * cos (a1 * TORAD);

y2 = y0 + R * sin (a1 * TORAD);

if ( abs(a1-a2) <= 6 )

Canvas->Pen->Style = psClear;

else

Canvas->Pen->Style = psSolid;

Canvas->Brush->Color = cl[i];

Canvas->Pie(x,y,x+D,y+D,x1,y1,x2,y2);

a1=a2;//joriy boshlanishidan keyingi sektorni chizish

}

// afsona

Canvas->Font->Size -= 2;

int dy = Canvas->TextHeight("a");

x = x + D + 40;

y = y + 20;

for (i =HB-1; i >=0; i--)

{

Canvas->Brush->Color = cl[i];

Canvas->Rectangle(x,y,x+40,y+dy);

Canvas->Brush->Style = bsClear;

Canvas->TextOutW(x+50,y,dTitle[i]+

", " + FloatToStrF(pr[i],ffGeneral,2,2)+ "%");

y = y + dy +10;

}

}

void __fastcall TForm1::FormResize(TObject *Sender)

{

Form1->Refresh();

}