«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша
жүктеу/скачать 2,7 Mb.
|
с
| float xY=Iyz/2;
float yY=10; float cY=Ibik-10; Form1->Image1->Canvas->MoveTo(xY,yY); Form1->Image1->Canvas->LineTo(xY,cY); // X осьти сызу ол (xХ,yХ) басталып (сХ, yX ) нүктеде бітеді; 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(); } //--------------------------------------------------------------------------- жүктеу/скачать 2,7 Mb. Достарыңызбен бөлісу:
|