Спецификация программы. 
Разработка программы, моделирующей игру "Кости"

Исполняемый файл программы «Project1» имеет название Project1.exe.

Таблица 1.

Состав проекта.

Листинг программы

unit Unit1;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, Menus, ExtCtrls, StdCtrls, Math, Buttons;

type.

TForm1 = class (TForm).

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Image1: TImage;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

ComboBox1: TComboBox;

Label5: TLabel;

Label6: TLabel;

ComboBox2: TComboBox;

Label7: TLabel;

BitBtn1: TBitBtn;

N4: TMenuItem;

N5: TMenuItem;

Image3: TImage;

procedure N3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure invisible_all (Sender: TObject);

procedure visible_all (Sender: TObject);

procedure Label6Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure N5Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

Ochki: longint;//переменная, отвечающая за очки игрока.

implementation.

{$R *.dfm}.

procedure TForm1. N3Click (Sender: TObject);//кнопка выход.

begin.

application.Terminate;//закрываем приложение.

end;

procedure TForm1. N2Click (Sender: TObject);//новая игра.

var i: integer;

begin.

image3.Visible:=false;

ochki:=100;//присваиваем переменной «ochki» количество начальных очков, по условию = 100.

label2.Caption:='00';//задаём сумму выпавших кубиков = 0.

label4.Caption:='100'; //задаём видимое количество очков.

image1.Picture.LoadFromFile ('p0.bmp');//задаём начальное изображение кубиков (пустое).

image2.Picture.LoadFromFile ('p0.bmp');//задаём начальное изображение кубиков (пустое).

combobox1.Items.Clear;//очищаем список ставок.

for i:=1 to 100 do.

begin.

combobox1.Items.Add (inttostr (i));//заполняем список ставок от 1 до 100.

end;

combobox1.ItemIndex:=0;//задаём начальное положение элемента списка.

combobox2.Items.Clear;//очищаем список вариантов кубиков.

for i:=2 to 12 do.

begin.

combobox2.Items.Add (inttostr (i));//заполняем список ставок от 2 до 12.

end;

combobox2.ItemIndex:=0;//задаём начальное положение элемента списка.

visible_all (sender);//делаем видимыми все объекты на форме.

bitbtn1.Enabled:=false;//ставим положение кнопки броска на выключено.

end;

procedure tform1. invisible_all (Sender: TObject);//делаем невидимыми все объекты на форме.

begin.

label1.Visible:=false;

label2.Visible:=false;

label3.Visible:=false;

label4.Visible:=false;

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;

image1.Visible:=false;

image2.Visible:=false;

combobox1.Visible:=false;

combobox2.Visible:=false;

bitbtn1.Visible:=false;

end;

procedure tform1. visible_all (Sender: TObject);//делаем видимыми все объекты на форме.

begin.

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=true;

label4.Visible:=true;

label5.Visible:=true;

label6.Visible:=true;

label7.Visible:=true;

image1.Visible:=true;

image2.Visible:=true;

combobox1.Visible:=true;

combobox2.Visible:=true;

bitbtn1.Visible:=true;

end;

procedure TForm1. FormCreate (Sender: TObject);//при создании формы.

begin.

image3.Visible:=true;

image3.picture.loadfromfile ('l4.bmp');

invisible_all (Sender);//делаем невидимыми все объекты на форме, при загрузке игры.

end;

procedure TForm1. Label6Click (Sender: TObject);//нажатие на надпись поставить.

begin.

bitbtn1.Enabled:=true;//делаем активной кнопку броска.

label2.Caption:='00';//сумма броска кубиков сбрасывается на 0.

image1.Picture.LoadFromFile ('p0.bmp');//загружаем пустые картинки для кубика.

image2.Picture.LoadFromFile ('p0.bmp');//загружаем пустые картинки для кубика.

end;

procedure TForm1. BitBtn1Click (Sender: TObject);//процедура на нажатие кнопки броска.

var i, i1, i2:integer;

begin.

randomize;//включаем генератор случайных чисел.

i1:=randomrange (1,6);//переменной i1 присваиваем значение от 1 до шести случайным образом.

i2:=randomrange (1,6);//переменной i2 присваиваем значение от 1 до шести случайным образом.

image1.Picture.LoadFromFile ('p'+inttostr (i1)+'.bmp');//в зависимости от выпавшего числа загружаемс картинку для 1-го кубика.

image2.Picture.LoadFromFile ('p'+inttostr (i2)+'.bmp');//в зависимости от выпавшего числа загружаемс картинку для 2-го кубика.

label2.Caption:=inttostr (i1+i2);//выводим на экран сумму выпавших кубиков.

if ((i1+i2<7) and (strtoint (combobox2.Items.Strings[combobox2.ItemIndex])<7))//проверка на соответствие основному условию.

or ((i1+i2>7) and (strtoint (combobox2.Items.Strings[combobox2.ItemIndex])>7)).

and (i1+i2strtoint (combobox2.Items.Strings[combobox2.ItemIndex])).

then.

begin.

ochki:=ochki+strtoint (combobox1.Items.Strings[combobox1.ItemIndex]);//прибавляем к очкам выигранную ставку.

showmessage ('Вы выиграли ставку!')//выводим сообщение о выйгрыше.

end else.

begin.

if i1+i2=strtoint (combobox2.Items.Strings[combobox2.ItemIndex]) then//если выбранное число совпадает с выпавшим.

begin.

ochki:=ochki+strtoint (combobox1.Items.Strings[combobox1.ItemIndex])*4;//прибавляем к очкам выигранную ставку в 4-х кратном размере.

showmessage ('Вы выиграли 4-х кратную ставку!')//выводим сообщение о выйгрыше.

end else.

begin.

ochki:=ochki-strtoint (combobox1.Items.Strings[combobox1.ItemIndex]);//условие пройгрыша.

showmessage ('Вы проиграли ставку!')//выводим сообщение о пройгрыше.

end;

end;

if ochki<=0 then //условие окончания игры.

begin.

invisible_all (sender);//скрываем все объекты на форме.

showmessage ('Вы проиграли!');//выводим сообщение о конце игры.

end else.

begin.

label4.Caption:=inttostr (ochki);//выводим на экран количество очков.

combobox1.Items.Clear;//очищаем список возможных ставок.

for i:=1 to ochki do.

begin.

combobox1.Items.Add (inttostr (i)); //заполняем список возможных ставок от 1 до количества очков.

end;

combobox1.ItemIndex:=0;//задаём начальное положение элемента списка.

end;

{ label2. Caption:='00'; //сброс значения кубиков и суммы кубиков.

image1.Picture.LoadFromFile ('p0.bmp');

image2.Picture.LoadFromFile ('p0.bmp');}.

bitbtn1.Enabled:=false;//ставим положение кнопки броска на выключено.

end;

procedure TForm1. N5Click (Sender: TObject);

begin.

showmessage ('Автор курсовой работы Важенин Антон Александрович);// Справка.

end;

end.