Реферат: Игра Кости

r1.LoadFromResourceName(hinstance,'b'+inttostr(k1))

r2.LoadFromResourceName(hinstance,'b'+inttostr(k2));

image1.Canvas.Draw(0,0,r1);

image2.Canvas.Draw(0,0,r2);

Рис.3. Ввод числа и ставки, обработка ошибок ввода

Случайные числа вывод изображений (блок 2).

Определение проигрыша или выигрыша ставки, происходит путём сравнения числа (введенным пользователем) и сумой двух «случайных чисел». Если сумма двух «случайных чисел» равна числу загаданным пользователем, то ставка, увеличивается в четыре раза. Если сумма двух «случайных чисел» меньше семи и число, заданное пользователем меньше семи или сумма двух «случайных чисел» больше семи и число, заданное пользователем больше семи, то игрок выигрывает ставку. В остальных случаях игрок проигрывает ставку.

Bank:=bank+4*st

Да

Да

Bank:=bank+st

Bank:=bank-st

Рис.4. Определение проигрыша или выигрыша ставки (блок 3).

Определение победы или поражения в игре осуществляется путём сравнения количества очков в банке игрока с нолём и тысячей. Если количество очков равно 0 игрок проиграл. Он может начать заново или уйти побежденным. Если количество очков больше или равно 1000 игрок победил, о чём сообщает диалоговое окно.

Да

Да

Рис.5. Определение победы или поражения в игре (блок 4).

1.2.3. Организация входных и выходных данных