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

bool frmin = true;//true – minimal qiymatdan sanash

dx= (ClientWidth - 20) / (n-1);

Canvas->Font->Size -= 2;

Canvas->Pen->Color = clGreen;

Canvas->Pen->Width = 1;

x0 = 10;

y0 = ClientHeight - 10;

x = x0;

dx= (ClientWidth - 20) / (n-1);

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

{

/* maksimal qiymati ClientHeight – 90 nuqta koordinatasiga mos keladi */

if (!frmin)

y =y0+(ClientHeight-90)*data[i]/data[max];

else

/* Minimal qiymatdan sanash.

Minimal qiymat balandligi 10 pikselli ustunda aks ettiriladi */

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

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

// nuqtani qo’yish

Canvas->Rectangle(x-2,y-2,x+2,y+2);

if (i != 0)

Canvas->LineTo(x,y);

// ** ma’lumotlarni yozish **

/* т.к. метод TextOutW изменит положение точки привязки (точки, из которой рисует метод LineTo, то после вывода текста надо будет переместить указатель в точку (х,у) */

if ((i == 0) || (data[i] != data[i-1]))

{

AnsiString st;

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

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

//soxasi - shaffof

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

}

Canvas->MoveTo(x,y);

x += dx;

}

}

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

void __fastcall TForm1::FormResize(TObject *Sender)

{

Form1->Refresh(); // обновить содержимое окна

}