Реферат Моделювання дошки Гальтона на C + + Borland Builder

align="justify"> # include

# pragma hdrstop

# include "Unit1. h "

# include "Unit2. h "

# include "Unit3. h "

# include "Unit4. h "

# include "Unit5. h "

# include "Unit6. h "

# include "Math. h "

# include "Time. h "

// ---------------------------------------- -----------------------------------

# pragma package (smart_init)

# pragma resource "*. dfm "

TForm1 * Form1;

// ---------------------------------------- -----------------------------------

__fastcall TForm1 :: TForm1 (TComponent * Owner)

: TForm (Owner)

{

} __fastcall TForm1 :: FormClose (TObject * Sender, TCloseAction & Action)

{-> Enabled = false; M; Mas; (int i = 0; i

}

// малювання всій доскіTForm1 :: Draw ()

{-> Canvas-> Pen-> Color = (TColor) RGB (114,134,248); -> Canvas-> Pen-> Width = 10;

// фон-> Canvas-> Brush-> Color = ColorDialog1-> Color; -> Canvas-> FillRect (Rect (0,0, Image1-> Width , Image1-> Height)); -> Canvas-> Rectangle (0,0, Image1-> Width, Image1-> Height);

// малювання панелейx, y; j = 1;// номер "поверху" i = 1;// номер панелі на поверсі

for (y = Image1-> Height-ramka-l; j <= k-1; y-= h)

{= 1; (x = (Image1-> Width-2 * (kj-1) * b)/2; i <= kj; x + = 2 * b)

{(x, y); + +;

} + +;

}

// малювання "ніжок" = 1; (x = (Image1-> Width-2 * (k-2) * b)/2; i <= k-1; x + = 2 * b)

{-> Canvas-> Rectangle (xb/8, Image1-> Height-ramka, x + b/8, Image1-> Height-ramka-lc/2); + +;

}

// малювання стінок-> Canvas-> MoveTo ((Image1-> Width-(2 * k-1) * b)/2, Image1-> Height-ramka-l -h + c); -> Canvas-> LineTo ((Image1-> Width-(2 * k-1) * b)/2, Image1-> Height-ramka); -> Canvas-> ; LineTo ((Image1-> Width + (2 * k-1) * b)/2, Image1-> Height-ramka); -> Canvas-> LineTo ((Image1-> Width + (2 * k -1) * b)/2, Image1-> Height-ramka-l-h + c); q = ((2 * k-3) * b)/2; = Image1-> Height-ramka-lhc ; (i = 1; i <= k-2; i + +)

{-> Canvas-> MoveTo (Image1-> Width/2-qb, y +2 * c); -> Canvas-> LineTo (Image1-> Width/ 2-q, y); -> Canvas-> LineTo (Image1-> Width/2-q, ya); -> Canvas-> MoveTo (Image1-> Width/2 + q + b, y +2 * c); -> Canvas-> LineTo (Image1-> Width/2 + q, y); -> Canva...