4. Внести в массив подходящих костей возможные варианты.

5. Выбрать случайно один из вариантов.

6. Очистить массив подходящих костей.

7. Создать массив использованных костей.

8. Отображаем полученную последовательность.

9. Отображаем неиспользованные кости.

Текст программы

В данной главе будут приведены самые значимые функции, основные классы программы, их методы и свойства.

КлассTDomino .

TDomino = object

SideA,SideB:byte;

State:boolean;

end;

Класс TImage.

TImg = class (TImage)

private

State : boolean;

end;

А также класс формы, обрабатывающий интерфейс программы.

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label2: TLabel;

DirectoryListBox1: TDirectoryListBox;

Label3: TLabel;

Image1: TImage;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);