Курсовая работа: Разработка программы, моделирующую игру Кости

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+i2<>strtoint(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('Вы проиграли ставку!')//выводим сообщение о пройгрыше