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

int n; // ustunlar soni

int wCol; // ustunlar kengligi

#define MC 5//gorizantal bo'yicha ustunlar o'rtasida

//masofa

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

wCol = (ClientWidth - (n - 1)*MC - 20) / n;

x = 10;

y = ClientHeight - 20;

//berilganlardan minimal va maksimal qiymatlarni

//topish

int min,max; // min va max elementlar indeksi

min =0; // birinchi element minimal

max =0; // birinchi element maksimal

for (int i = 1; i < n; i++){

if (data[i] < data[min]) min = i;

if (data[i] > data[max]) max = i;

}

/* Если отклонение значений ряда от среднего значения

незначительное, то диаграмма получается ненаглядной.

В этом случае можно построить не абсолютные значения,

а отклонения от минимального значения ряда. */

bool frmin=true; // true – minimaldan sanash

int h; // ustun balandligi

// ustun balandligining maksimal qiymati

// ClientHeight – 90 ga mos keladi

Canvas->Font->Size -= 2;

for (int i = 0; i < n; i++)

{

if (!frmin)

h = (ClientHeight - 90) * data[i]/data[max];

else

/* Minimal qiymatdan sanash. Minimal qiymatli ustun balandligini 10 piksel bilan tasvirlaymiz */

h=(ClientHeight-90)*(data[i]-data[min])/

(data[max] - data[min]) + 10;

Canvas->Brush->Style = bsSolid;

Canvas->Brush->Color = clLime;

Canvas->Rectangle(x,y,x+wCol,y-h); // ustun

// ma’lumotlarni yozish

AnsiString st;

st = FloatToStrF(data[i],ffGeneral,5,2);

Canvas->Brush->Style = bsClear; //chiqarish soxasi

// matn - shaffof

Canvas->TextOutW(x,y-h-20,st);

x = x + wCol + MC;

}

}

// foydalanuvchi oyna o'lchamini o'zgartirdiкна

void __fastcall TForm1::FormResize(TObject *Sender)

{

Form1->Refresh(); //qiymatlar o’zgartirilganda

}