tcall TForm1 :: N27Click (TObject * Sender)
{-> Execute (); ();
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N28Click (TObject * Sender)
{-> Execute (); ();
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N29Click (TObject * Sender)
{* Params = new TParams (this);> ShowModal (); Params;
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N16Click (TObject * Sender)
{(! HelpOpened)
{= new THelp (Application);
{> RichEdit1-> Lines-> LoadFromFile ("Довідка/Довідка. rtf");
} (EFOpenError &)
{("Відсутній файл довідки!");;
} = true;> Show ();
}
{> Visible = true;> SetFocus ();
}
}
// ---------------------------------------- -----------------------------------
Лістинг фрагмента Unit1. h
... TForm1 :: Draw (); TForm1 :: DrawPanel (int x, int y); TForm1 :: Init (); TForm1 :: ResizePicture (); TForm1 :: DrawBall (int x, int y); TForm1 :: DeleteBall (int x, int y); TForm1 :: LowBalls ();
__fastcall TForm1 (TComponent * Owner);
float alfa;// кут нахилу трикутників в радіанахa;// висота столбікаb;// ширина столбікаk;// число ячеекN;// число кульок * M;// масив, в якому зберігаються кількості кульок , що потрапили в кожну з комірок, і виходить в процесі падіння * Mas;// аналогічний масив, що заповнюється за допомогою формулиmax;// Максимальна кількість кульок у ячейкеr;// радіус падаючих шаріковl;// висота нижньої частини доскіh;// висота однієї панеліramka;// ширина рамкіH;// висота всієї доскіM_Init;// перевірка попереднього заповнення массіваt;// поточне времяdt;// прирощення временіperiod;// час між запусками шаровdz;// крок переміщення шаровEnd;// все досягли концаz0;//початкова ордината шаріковc;// висота "шапки" панеліdh;// додаткове прращеніе по висотеstarted;// номер кульки стартував останнім на даний моментlen;// коефіцієнт відстані між шарікаміTeorOpened;// перевірка: відкривалася чи теоріяHelpOpened;// перевірка: відкривалася чи справкаActivated;// чи активована формаBackColor;// колір фонаBallProperty// властивості кожного з кульок
{start;// почав двіженіеend;// закінчив двіженіеstage;// номер етажаz;// координата від початку поточного етажаlinear;// перевірка: чи досягнуто похилий участокLstage;// чи досяг останнього поверху * turn;// масив поворотовOldX;//...