В результате работы над программой были выполнены поставленные требования: обеспечена многооконность приложения (окно заставки, главное окно, окно настроек и параметров, окно справки), при этом есть окна, которые открываются динамически и модально. Был наглядно реализован процесс падения шариков в Доске Гальтона, в режиме анимации для произвольного числа ячеек и падающих шариков. Интерфейс программы интуитивно доступный и понятный, полностью русскоязычный, имеется справка и теоретические данные по вопросу.

Достоинства:

§ Интерфейс программы интуитивно доступный и понятный, полностью русскоязычный, имеется справка и теоретические данные по вопросу.

§ Программа имеет большое количество настроек - возможность изменять начальные данные эксперимента, скорость анимации, расстояние между падающими шариками, цветовую схему изображения.

§ Окно программы можно масштабировать.

Недостатки:

§ Невозможность развернуть окно программы на полный экран.

§ Отсутствует возможность сохранения результатов распределения в файл.

Список литературы

1. А.Я. Архангельский. Программирование в C++ Builder 6. - 2003, 1152 с.

2. http://cbuilder.ru - support Borland Software

3. http://www.codenet.ru - CodeNet - все для программиста

4. http://www.CyberGuru.ru - Programmers Area

5. http://www.sources.ru - Исходники.ru

6. http://ru. wikipedia.org - Википедия, свободная энциклопедия

7. С++ Builder Help

Приложения

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

#include <vcl. h>

#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)

{

}

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

{

Timer1->Enabled=false;

delete M;

delete Mas;

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

delete Ball [i]. turn;

delete Ball;

if (TeorOpened) delete Teory;

if (HelpOpened) delete Help;

exit (0);

}

// рисование всей доски

void TForm1:: Draw ()

{

Image1->Canvas->Pen->Color= (TColor) RGB (114,134,248);

Image1->Canvas->Pen->Width=10;

// фон

Image1->Canvas->Brush->Color=ColorDialog1->Color;

Image1->Canvas->FillRect (Rect (0,0, Image1->Width, Image1->Height));

Image1->Canvas->Rectangle (0,0, Image1->Width, Image1->Height);

// рисование панелей

int x, y;

int j=1; // номер "этажа"

int i=1; // номер панели на этаже

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

{

i=1;

for (x= (Image1->Width-2* (k-j-1) *b) /2; i<=k-j; x+=2*b)

{

DrawPanel (x,y);

i++;

}

j++;

}

// рисование "ножек"

i=1;

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

{

Image1->Canvas->Rectangle (x-b/8, Image1->Height-ramka,x+b/8, Image1->Height-ramka-l-c/2);

i++;

}

// рисование стенок

Image1->Canvas->MoveTo ( (Image1->Width- (2*k-1) *b) /2, Image1->Height-ramka-l-h+c);

Image1->Canvas->LineTo ( (Image1->Width- (2*k-1) *b) /2, Image1->Height-ramka);

Image1->Canvas->LineTo ( (Image1->Width+ (2*k-1) *b) /2, Image1->Height-ramka);

Image1->Canvas->LineTo ( (Image1->Width+ (2*k-1) *b) /2, Image1->Height-ramka-l-h+c);

int q= ( (2*k-3) *b) /2;

y=Image1->Height-ramka-l-h-c;

for (i=1; i<=k-2; i++)

{

Image1->Canvas->MoveTo (Image1->Width/2-q-b,y+2*c);

Image1->Canvas->LineTo (Image1->Width/2-q,y);

Image1->Canvas->LineTo (Image1->Width/2-q,y-a);

Image1->Canvas->MoveTo (Image1->Width/2+q+b,y+2*c);

Image1->Canvas->LineTo (Image1->Width/2+q,y);

Image1->Canvas->LineTo (Image1->Width/2+q,y-a);

y-=h;

q-=b;

}

y=Image1->Height-l- (k-1) *h-ramka+c;

q=3*b/2;

x=Image1->Width/2-q;

Image1->Canvas->MoveTo (x,y);

Image1->Canvas->LineTo (x+b,y-2*c);

Image1->Canvas->LineTo (x+b,y-2*c-a);

Image1->Canvas->MoveTo (x+2*q,y);

Image1->Canvas->LineTo (x+2*q-b,y-2*c);

Image1->Canvas->LineTo (x+2*q-b,y-2*c-a);

Image1->Canvas->LineTo (x+2*q-3*b/2,y-3*c-a);

Image1->Canvas->LineTo (x+2*q-2*b,y-2*c-a);

LowBalls ();

}

// рисование отдельной панели

void TForm1:: DrawPanel (int x, int y)

{

Image1->Canvas->Pen->Color=ColorDialog4->Color;

Image1->Canvas->Pen->Width=2;

int c=int (float (b/2) *cos (alfa) /sin (alfa));

Image1->Canvas->MoveTo (x,y);

Image1->Canvas->LineTo (x+b/2,y-c);

Image1->Canvas->LineTo (x+b/2,y-c-a);

Image1->Canvas->LineTo (x,y-2*c-a);

Image1->Canvas->LineTo (x-b/2,y-c-a);

Image1->Canvas->LineTo (x-b/2,y-c);

Image1->Canvas->LineTo (x,y);

Image1->Canvas->Brush->Color=ColorDialog2->Color;

Image1->Canvas->FloodFill (x,y-a,ColorDialog1->Color,fsSurface);

}

// рисование отдельного шарика

void TForm1:: DrawBall (int x, int y)

{

Image1->Canvas->Brush->Color=clBlue; // тень от шарика

Image1->Canvas->Pen->Color=clBlue;

Image1->Canvas->Pen->Width=1;

Image1->Canvas->Ellipse (Rect (x-r+1,y-r+1,x+r+1,y+r+1));

Image1->Canvas->Brush->Color=ColorDialog3->Color;

Image1->Canvas->Pen->Color=clBlue;

Image1->Canvas->Pen->Width=1;

Image1->Canvas->Ellipse (Rect (x-r,y-r,x+r,y+r));

Image1->Canvas->Brush->Color=clWhite; // (TColor) RGB (192,218,245);

Image1->Canvas->Pen->Color=clWhite; // (TColor) RGB (192,218,245);

Image1->Canvas->Ellipse (Rect (x,y,x-r*2/3,y-r*2/3));

Image1->Canvas->Ellipse (Rect (x+r/2,y+r/2,x+r/4,y+r/4));

Image1->Canvas->Brush->Color=clWhite;

Image1->Canvas->Pen->Color=clBlack;

}

// зарисовка отдельного шарика

void TForm1:: DeleteBall (int x, int y)

{

Image1->Canvas->Pen->Color=ColorDialog1->Color;

Image1->Canvas->Brush->Color=ColorDialog1->Color;

Image1->Canvas->Ellipse (Rect (x-r,y-r,x+r,y+r));

Image1->Canvas->Ellipse (Rect (x-r+1,y-r+1,x+r+1,y+r+1));

}

// рисование шариков внизу

void TForm1:: LowBalls ()

{

int i,j;

int xc;

int p, level;

for (i=0; i<k; i++)

{

xc=Image1->Width/2- (k-1) *b+i*2*b;

p=-1;

level=0;

for (j=0; j<M [i]; j++)

{

if (p==-1) level++;

DrawBall (xc+p* ( (b-4*r) /6+r), Image1->Height-ramka-level* (b-4*r) /3- (2*level-1) *r);

p=-p;

}

}

}

// инициализация глобальных переменных

void TForm1:: Init ()

{

int i,j;

if (M_Init)

{

delete M; delete Mas;

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

delete Ball [i]. turn;

delete Ball;

}

ramka=20;

k=StrToInt (Edit1->Text);

N=StrToInt (Edit2->Text);

if (N>k*k) {N=k*k; Edit2->Text=IntToStr (N); }

UpDown2->Max=k*k;

UpDown1->Position=k;

M=new int [k]; Mas=new int [k];

for (i=0; i<k; i++) {M [i] =0; Mas [i] =0; }

alfa=45*3.1415/180;

b= (Image1->Width-2*ramka) / (2*k-1);

r=b/6;

max=N/7;

l= (max+1) * (2*r+b/6) +r+b/6;

H=Image1->Height-2*ramka;

h= (H-l-3*ramka) / (float (k) - 0.5);

a=h-2*int (float (b/2) *cos (alfa) /sin (alfa));

c=b*cos (alfa) / (2*sin (alfa));

dh=c/2;

z0=Image1->Height- (l+ (k-1) *h+c+a+ramka);

t=0;

period=len*dt;

dz=2;

Timer1->Interval=dt;

End=true;

randomize ();

Ball=new BallProperty [N]; // свойства каждого из шариков

for (i=0; i<N; i++)

{

Ball [i]. start=false;

Ball [i]. end=false;

Ball [i]. stage=1;

Ball [i]. z=0;

Ball [i]. linear=true;

Ball [i]. Lstage=false;

Ball [i]. turn=new int [k-1];

Ball [i]. OldX=Image1->Width/2;

Ball [i]. OldY=z0;

Ball [i]. number=0;

for (j=0; j<k-1; j++) // случайным образом формируем массив поворотов шарика, состоящий из - 1 (налево) и 1 (направо)

{

Ball [i]. turn [j] =random (2);

if (! Ball [i]. turn [j]) Ball [i]. turn [j] =-1;

}

}

Ball [0]. start=true;

started=0;

M_Init=true;

int *Sum;

Sum=new int [N]; // массив сумм поворотов шарика

for (i=0; i<N; i++)

{

Sum [i] =0;

for (j=0; j<k-1; j++) Sum [i] +=Ball [i]. turn [j];

}

int e;

for (i=0; i<N; i++)

{

e=int (float (int (k/2)) +1+float (Sum [i]) /2); // ЗДЕСЬ ВЫЧИСЛЯЕТСЯ НОМЕР ЯЧЕЙКИ, В КОТОРУЮ ПОПАЕДТ ШАРИК

Ball [i]. number=e;

Mas [e-1] ++;

}

delete [] Sum;

if (! N2->Checked) for (i=0; i<k; i++) M [i] =Mas [i];

}

// изменение размеров изображения

void TForm1:: ResizePicture ()

{

int i,j;

ramka=20;

b= (Image1->Width-2*ramka) / (2*k-1);

r=b/6;

l= (max+1) * (2*r+b/6) +r+b/6;

H=Image1->Height-2*ramka;

h= (H-l-3*ramka) / (float (k) - 0.5);

a=h-2*int (float (b/2) *cos (alfa) /sin (alfa));

c=b*cos (alfa) / (2*sin (alfa));

dh=c/2;

z0=Image1->Height- (l+ (k-1) *h+c+a+ramka);

}

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

void __fastcall TForm1:: SpeedButton1Click (TObject *Sender)

{

if (! Timer1->Enabled)

{

k--;

Edit1->Text=IntToStr (k);

}

}

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

void __fastcall TForm1:: SpeedButton2Click (TObject *Sender)

{

if (! Timer1->Enabled)

{

k++;

Edit1->Text=IntToStr (k);

}

}

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

void __fastcall TForm1:: Timer1Timer (TObject *Sender)

{

int i,j;

// массив сумм поворотов до текущего этажа

int *TurnSum=new int [N];

for (i=0; i<N; i++)

{

TurnSum [i] =0;

for (j=0; j<Ball [i]. stage-1; j++) TurnSum [i] +=Ball [i]. turn [j];

}

for (i=0; i<N; i++)

{

if (t>=period)

{

started++;

Ball [started]. start=true;

t=0;

}

if (Ball [i]. start&&! Ball [i]. end&&! Ball [i]. Lstage)

{

if (Ball [i]. linear)

{

if (Ball [i]. z>=a)

{

Ball [i]. z=a;

Ball [i]. linear=false;

}

else if (Ball [i]. stage<4) Ball [i]. z+=dz*Ball [i]. stage; else Ball [i]. z+=dz*4;

if (Ball [i]. z>=a) Ball [i]. z=a;

DeleteBall (Ball [i]. OldX,Ball [i]. OldY);

DrawBall (Image1->Width/2+TurnSum [i] *b,z0+ (Ball [i]. stage-1) *h+Ball [i]. z+dh);

Ball [i]. OldX=Image1->Width/2+TurnSum [i] *b;

Ball [i]. OldY=z0+ (Ball [i]. stage-1) *h+Ball [i]. z+dh;

}

else

{

if (Ball [i]. z>=h)

{

Ball [i]. z=0;

Ball [i]. stage++;

if (Ball [i]. stage==k) Ball [i]. Lstage=true;

Ball [i]. linear=true;

DeleteBall (Ball [i]. OldX,Ball [i]. OldY);

DrawBall (Image1->Width/2+ (TurnSum [i] +Ball [i]. turn [Ball [i]. stage-2]) *b,z0+ (Ball [i]. stage-1) *h+dh);

Ball [i]. OldX=Image1->Width/2+ (TurnSum [i] +Ball [i]. turn [Ball [i]. stage-2]) *b;

Ball [i]. OldY=z0+ (Ball [i]. stage-1) *h+dh;

}

else

{

if (Ball [i]. stage<4) Ball [i]. z+=dz*Ball [i]. stage*sin (alfa); else Ball [i]. z+=dz*4*sin (alfa);

DeleteBall (Ball [i]. OldX,Ball [i]. OldY);

DrawBall (Image1->Width/2+TurnSum [i] *b+Ball [i]. turn [Ball [i]. stage-1] * (Ball [i]. z-a) *cos (alfa) /sin (alfa),z0+Ball [i]. z+ (Ball [i]. stage-1) *h+dh);

Ball [i]. OldX=Image1->Width/2+TurnSum [i] *b+Ball [i]. turn [Ball [i]. stage-1] * (Ball [i]. z-a) *cos (alfa) /sin (alfa);

Ball [i]. OldY=z0+Ball [i]. z+ (Ball [i]. stage-1) *h+dh;

}

}

}

if (Ball [i]. start&&! Ball [i]. end&&Ball [i]. Lstage)

{

if (Ball [i]. z>=l+c+a- (2*r* (M [Ball [i]. number-1] /2+1) +b* (M [Ball [i]. number-1] /2+2) /6))

{

Ball [i]. end=true;

M [Ball [i]. number-1] ++;

End=true;

for (int w=0; w<N; w++)

{

if (! Ball [w]. end) End=false;

}

DeleteBall (Ball [i]. OldX, Ball [i]. OldY);

if (End)

{

Timer1->Enabled=false;

Edit1->Enabled=true;

Edit2->Enabled=true;

UpDown1->Enabled=true;

UpDown2->Enabled=true;

char *Distrib=new char [120];

Distrib [0] =0;

StrCat (Distrib, "Распределение шариков по ячейкам: ");

for (int w=0; w<k; w++)

{

StrCat (Distrib, IntToStr (M [w]). c_str ());

StrCat (Distrib, " ");

}

StatusBar1->Panels->Items [0] - >Text=Distrib;

delete Distrib;

N4->Enabled=true;

N5->Enabled=false;

N6->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

ToolButton5->Enabled=false;

}

}

else

{

if (Ball [i]. z==0) TurnSum [i] +=Ball [i]. turn [k-2];

Ball [i]. z+=dz*4;

DeleteBall (Ball [i]. OldX,Ball [i]. OldY);

DrawBall (Image1->Width/2+TurnSum [i] *b, (k-1) *h+Ball [i]. z+z0+dh);

Ball [i]. OldX=Image1->Width/2+TurnSum [i] *b;

Ball [i]. OldY= (k-1) *h+Ball [i]. z+z0+dh;

}

}

}

LowBalls ();

t+=dt;

delete [] TurnSum;

}

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

void __fastcall TForm1:: FormCreate (TObject *Sender)

{

DoubleBuffered=true;

TeorOpened=false;

HelpOpened=false;

Activated=false;

TFLog *FLog=new TFLog (this);

FLog->ShowModal ();

delete FLog;

Form1->Height=Form1->Height-StatusBar1->Height-CoolBar1->Height;

Form1->Constraints->MaxHeight=Form1->Height;

Form1->Constraints->MaxWidth=Form1->Width;

Form1->Position=poScreenCenter;

BackColor= (TColor) RGB (255,218,119);

}

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

void __fastcall TForm1:: SpeedButton3Click (TObject *Sender)

{

if (! Timer1->Enabled)

Edit2->Text=IntToStr (StrToInt (Edit2->Text) - 1);

}

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

void __fastcall TForm1:: SpeedButton4Click (TObject *Sender)

{

if (! Timer1->Enabled)

Edit2->Text=IntToStr (StrToInt (Edit2->Text) +1);

}

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

void __fastcall TForm1:: CheckBox1Click (TObject *Sender)

{

End=true;

Timer1->Enabled=false;

}

// Анимация

void __fastcall TForm1:: N2Click (TObject *Sender)

{

ToolButton1->Down=! ToolButton1->Down;

if (N2->Checked)

{

N4->Enabled=true;

N13->Enabled=true;

N14->Enabled=true;

ToolButton3->Enabled=true;

ToolButton9->Enabled=true;

ToolButton10->Enabled=true;

TrackBar1->Enabled=true;

}

else

{

N13->Enabled=false;

N14->Enabled=false;

ToolButton9->Enabled=false;

ToolButton10->Enabled=false;

TrackBar1->Enabled=false;

if (! End)

{

N2->Enabled=true;

N5->Enabled=false;

N6->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

ToolButton5->Enabled=false;

Timer1->Enabled=false;

End=true;

for (int i=0; i<k; i++) M [i] =Mas [i];

Draw ();

}

}

}

void __fastcall TForm1:: ToolButton1Click (TObject *Sender)

{

N2->Checked=! N2->Checked;

if (N2->Checked)

{

N4->Enabled=true;

N13->Enabled=true;

N14->Enabled=true;

ToolButton3->Enabled=true;

ToolButton9->Enabled=true;

ToolButton10->Enabled=true;

TrackBar1->Enabled=true;

}

else

{

N13->Enabled=false;

N14->Enabled=false;

ToolButton9->Enabled=false;

ToolButton10->Enabled=false;

TrackBar1->Enabled=false;

if (! End)

{

N4->Enabled=true;

N5->Enabled=false;

N6->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

ToolButton5->Enabled=false;

Timer1->Enabled=false;

End=true;

for (int i=0; i<k; i++) M [i] =Mas [i];

Draw ();

}

}

}

// старт

void __fastcall TForm1:: N4Click (TObject *Sender)

{

if (N2->Checked)

{

if (End)

{

Init ();

Draw ();

End=false;

}

Timer1->Enabled=true;

Edit1->Enabled=false;

Edit2->Enabled=false;

UpDown1->Enabled=false;

UpDown2->Enabled=false;

N29->Enabled=false;

N4->Enabled=false;

N5->Enabled=true;

N6->Enabled=true;

ToolButton3->Enabled=false;

ToolButton4->Enabled=true;

ToolButton5->Enabled=true;

}

else

{

Init ();

char *Distrib=new char [120];

Distrib [0] =0;

StrCat (Distrib, "Распределение шариков по ячейкам: ");

for (int w=0; w<k; w++)

{

StrCat (Distrib, IntToStr (M [w]). c_str ());

StrCat (Distrib, " ");

}

StatusBar1->Panels->Items [0] - >Text=Distrib;

delete Distrib;

Draw ();

}

}

void __fastcall TForm1:: ToolButton3Click (TObject *Sender)

{

if (N2->Checked)

{

if (End)

{

Init ();

Draw ();

StatusBar1->Panels->Items [0] - >Text="";

End=false;

}

Timer1->Enabled=true;

Edit1->Enabled=false;

Edit2->Enabled=false;

UpDown1->Enabled=false;

UpDown2->Enabled=false;

N29->Enabled=false;

N4->Enabled=false;

N5->Enabled=true;

N6->Enabled=true;

ToolButton3->Enabled=false;

ToolButton4->Enabled=true;

ToolButton5->Enabled=true;

}

else

{

Init ();

char *Distrib=new char [120];

Distrib [0] =0;

StrCat (Distrib, "Распределение шариков по ячейкам: ");

for (int w=0; w<k; w++)

{

StrCat (Distrib, IntToStr (M [w]). c_str ());

StrCat (Distrib, " ");

}

StatusBar1->Panels->Items [0] - >Text=Distrib;

delete Distrib;

Draw ();

}

}

// уменьшение скорости движен // увеличение скорости движен // изменение скорости при помощи ползунка

void __fastcall TForm1:: TrackBar1Change (TObject *Sender)

{

dt=50-TrackBar1->Position;

Timer1->Interval=dt;

period=len*dt;

}

// пауза

void __fastcall TForm1:: N5Click (TObject *Sender)

{

N4->Enabled=true;

N5->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

Timer1->Enabled=false;

}

void __fastcall TForm1:: ToolButton4Click (TObject *Sender)

{

N4->Enabled=true;

N5->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

Timer1->Enabled=false;

}

// стоп

void __fastcall TForm1:: N6Click (TObject *Sender)

{

N4->Enabled=true;

N5->Enabled=false;

N6->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

ToolButton5->Enabled=false;

Timer1->Enabled=false;

Edit1->Enabled=true;

Edit2->Enabled=true;

UpDown1->Enabled=true;

UpDown2->Enabled=true;

N29->Enabled=true;

for (int i=0; i<k; i++) M [i] =Mas [i];

char *Distrib=new char [120];

Distrib [0] =0;

StrCat (Distrib, "Распределение шариков по ячейкам: ");

for (int w=0; w<k; w++)

{

StrCat (Distrib, IntToStr (M [w]). c_str ());

StrCat (Distrib, " ");

}

StatusBar1->Panels->Items [0] - >Text=Distrib;

delete Distrib;

End=true;

Draw ();

}

void __fastcall TForm1:: ToolButton5Click (TObject *Sender)

{

N4->Enabled=true;

N5->Enabled=false;

N6->Enabled=false;

ToolButton3->Enabled=true;

ToolButton4->Enabled=false;

ToolButton5->Enabled=false;

Timer1->Enabled=false;

Edit1->Enabled=true;

Edit2->Enabled=true;

UpDown1->Enabled=true;

UpDown2->Enabled=true;

N29->Enabled=true;

for (int i=0; i<k; i++) M [i] =Mas [i];

char *Distrib=new char [120];

Distrib [0] =0;

StrCat (Distrib, "Распределение шариков по ячейкам: ");

for (int w=0; w<k; w++)

{

StrCat (Distrib, IntToStr (M [w]). c_str ());

StrCat (Distrib, " ");

}

StatusBar1->Panels->Items [0] - >Text=Distrib;

delete Distrib;

End=true;

Draw ();

}

// Увеличение расстояния между шарами

void __fastcall TForm1:: ToolButton9Click (TObject *Sender)

{

if (len<H) len+=10;

period=len*dt;

}

void __fastcall TForm1:: N13Click (TObject *Sender)

{

if (len<H) len+=10;

period=len*dt;

}

// Уменьшение расстояния между шарами

void __fastcall TForm1:: ToolButton10Click (TObject *Sender)

{

if (len>3*r) len-=10;

if (len<3*r) len=3*r;

period=len*dt;

}

void __fastcall TForm1:: N14Click (TObject *Sender)

{

if (len>3*r) len-=10;

if (len<3*r) len=3*r;

period=len*dt;

}

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

void __fastcall TForm1:: UpDown1Click (TObject *Sender, TUDBtnType Button)

{

Edit1->Text=UpDown1->Position;

UpDown2->Max=UpDown1->Position*UpDown1->Position;

}

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

void __fastcall TForm1:: UpDown2Click (TObject *Sender, TUDBtnType Button)

{

Edit2->Text=UpDown2->Position;

}

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

void __fastcall TForm1:: Edit1Exit (TObject *Sender)

{

int kol;

if (StrToInt (Edit1->Text) <UpDown1->Min)

{

Edit1->Text=IntToStr (UpDown1->Min);

ShowMessage ("Число ячеек не меньше "+IntToStr (UpDown1->Min) +"!");

}

if (StrToInt (Edit1->Text) >UpDown1->Max)

{

Edit1->Text=IntToStr (UpDown1->Max);

ShowMessage ("Число ячеек не больше "+IntToStr (UpDown1->Max) +"!");

}

kol=StrToInt (Edit1->Text);

UpDown1->Position=kol;

if (UpDown2->Position>kol*kol)

{

UpDown2->Position=kol*kol;

Edit2->Text=IntToStr (kol*kol);

}

UpDown2->Max=kol*kol;

}

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

void __fastcall TForm1:: Edit2Exit (TObject *Sender)

{

if (StrToInt (Edit2->Text) <UpDown2->Min)

{

Edit2->Text=IntToStr (UpDown2->Min);

ShowMessage ("Число шариков не меньше "+IntToStr (UpDown2->Min) +"!");

}

if (StrToInt (Edit2->Text) >UpDown2->Max)

{

Edit2->Text=IntToStr (UpDown2->Max);

ShowMessage ("При таком количесвте ячеек число шариков не больше "+IntToStr (UpDown2->Max) +"!");

}

UpDown2->Position=StrToInt (Edit2->Text);

}

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

void __fastcall TForm1:: FormResize (TObject *Sender)

{

if (Form1->Width>105) StatusBar1->Panels->Items [0] - >Width=Form1->Width-100;

else StatusBar1->Panels->Items [0] - >Width=5;

ResizePicture ();

Draw ();

Form1->Constraints->MinHeight=1.3*Form1->Width;

}

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

void __fastcall TForm1:: Timer2Timer (TObject *Sender)

{

StatusBar1->Panels->Items [1] - >Text=TimeToStr (Time ());

}

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

void __fastcall TForm1:: Edit1KeyPress (TObject *Sender, char &Key)

{

if ( (Key >='0') && (Key<='9') || (Key==VK_BACK)) return;

if (Key==VK_RETURN) Edit2->SetFocus ();

else Key=0;

}

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

void __fastcall TForm1:: Edit2KeyPress (TObject *Sender, char &Key)

{

if ( (Key >='0') && (Key<='9') || (Key==VK_BACK)) return;

if (Key==VK_RETURN) Edit1->SetFocus ();

else Key=0;

}

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

void __fastcall TForm1:: N20Click (TObject *Sender)

{

ToolBar1->Visible=! ToolBar1->Visible;

CoolBar1->Visible=! CoolBar1->Visible;

ResizePicture ();

Draw ();

}

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

void __fastcall TForm1:: N21Click (TObject *Sender)

{

StatusBar1->Visible=! StatusBar1->Visible;

ResizePicture ();

Draw ();

}

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

void __fastcall TForm1:: N19Click (TObject *Sender)

{

TAbout *About=new TAbout (this);

About->ShowModal ();

delete About;

}

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

void __fastcall TForm1:: N17Click (TObject *Sender)

{

if (! TeorOpened)

{

Teory=new TTeory (Application);

try

{

Teory->RichEdit1->Lines->LoadFromFile ("Теория/Распределение Максвелла. rtf");

}

catch (EFOpenError&)

{

ShowMessage ("Отсутствует файл теории!");

return;

}

TeorOpened=true;

Teory->Show ();

}

else

{

Teory->Visible=true;

Teory->SetFocus ();

}

}

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

void __fastcall TForm1:: FormActivate (TObject *Sender)

{

if (! Activated)

{

M_Init=false;

dt=10;

TrackBar1->Position=50-dt;

UpDown1->Position=StrToInt (Edit1->Text);

UpDown2->Position=StrToInt (Edit2->Text);

if (Form1->Width>105) StatusBar1->Panels->Items [0] - >Width=Form1->Width-100;

else StatusBar1->Panels->Items [0] - >Width=5;

len=50;

Init ();

ColorDialog1->Color= (TColor) RGB (255,218,119);

ColorDialog2->Color= (TColor) RGB (255,153,85);

ColorDialog3->Color= (TColor) RGB (52,134,224);

ColorDialog4->Color=clRed;

char *Distrib=new char [120];

Distrib [0] =0;

StrCat (Distrib, "Распределение шариков по ячейкам: ");

for (int w=0; w<k; w++)

{

StrCat (Distrib, IntToStr (M [w]). c_str ());

StrCat (Distrib, " ");

}

StatusBar1->Panels->Items [0] - >Text=Distrib;

delete Distrib;

}

Draw ();

Activated=true;

}

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

void __fastcall TForm1:: N25Click (TObject *Sender)

{

exit (0);

}

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

void __fastcall TForm1:: N23Click (TObject *Sender)

{

ColorDialog1->Execute ();

Draw ();

}

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

void __fastcall TForm1:: N26Click (TObject *Sender)

{

ColorDialog2->Execute ();

Draw ();

}

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

void __fastcall TForm1:: N27Click (TObject *Sender)

{

ColorDialog3->Execute ();

Draw ();

}

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

void __fastcall TForm1:: N28Click (TObject *Sender)

{

ColorDialog4->Execute ();

Draw ();

}

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

void __fastcall TForm1:: N29Click (TObject *Sender)

{

TParams *Params=new TParams (this);

Params->ShowModal ();

delete Params;

}

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

void __fastcall TForm1:: N16Click (TObject *Sender)

{

if (! HelpOpened)

{

Help=new THelp (Application);

try

{

Help->RichEdit1->Lines->LoadFromFile ("Справка/Справка. rtf");

}

catch (EFOpenError&)

{

ShowMessage ("Отсутствует файл справки!");

return;

}

HelpOpened=true;

Help->Show ();

}

else

{

Help->Visible=true;

Help->SetFocus ();

}

}

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

Листинг фрагмента Unit1. h