Программалау технологиясы
жүктеу/скачать 2,48 Mb. Pdf көрінісі
|
Мукашев С Builder
| float
xX=10; float yX=Ibik/2; float cX=Iyz-10; Form1->Image1->Canvas->MoveTo(xX,yX); Form1->Image1->Canvas->LineTo(cX,yX); //бастапкы мандерди аныктау x1=-5; x2=5; y1=f(x1); y2=f(x2); //масштабты тагайындау mx=Iyz/(x2-x1); my=Ibik/(y2-y1); //координата бас нуктеге (xY,yX) бару x0=xY; y0=yX; Form1->Image1->Canvas->MoveTo(x0,y0); //график сызу басталды x=x1; while (x Form1->Image1->Canvas->Pixels[x0+mx*x][y0-my*f(x)]=clBlack; x=x+0.01; } // Form1->Image1->Canvas->TextOutA(x0,y0,'0'); Form1->Image1->Canvas->TextOutA(xY,yY,"Y"); Form1->Image1->Canvas->TextOutA(cX,yX,"X"); } //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { GrafSizy(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Memo1->Text="Программа у=ехр(х) функциясынын [-5,5] аралыгындагы графигин 0.01 кадаммен салып шыгады"; } 5. Канвада қолданылатын сурет салу құралдарын пайдалану, Pen(қалам,қарындаш, , қылқалам. Канваның Pen(ТPen) жүктеу/скачать 2,48 Mb. Достарыңызбен бөлісу:
|