Вероятно-Невероятно.ppt
- Количество слайдов: 17
ВЕРОЯТНО - НЕВЕРОЯТНО БРОСИМ КОСТИ !
Игра Казино - бросаем кости n n n Суть игры: 2 игрока по очереди бросают кости. Выигрывает тот, кто раньше наберет 50 очков (но не более). Тот игрок, у которого оказывается более 50 очков - проигрывает.
На листе проекта создайте: n текстовые окна n n n бр1, бр2 - в эти окна будут выводиться сумма очков набранная за 1 бросок. сумма 1, сумма 2 - в эти окна будут выводиться общие суммы очков. четыре кнопки n новая_игра, финиш, бросок 1, бросок 2
Вид поля игры:
Черепашки - Кубики n Создайте две черепашки с именами n n куб 1, куб 2 Для этих черепашек создайте: n 6 новых форм с точками (от 1 ой до 6 -ти).
Создайте процедуру новая_игра (на листе процедур), в которой: n Определяются переменный сум 1, сум 2 со значением 0: n n n пусть "сум 1 0 ? ? ? Чистятся все текстовые окна: n скажи [бр1 ? ? ? ] [ ст]
Дописываем условие в новая_игра n Запускается процесс анализа значений пременных сум 1, сум 2: если значение переменной сум 1 или сум 2 становится > 50, то игрок 1 или 2 (соответственно) проигрывает. запусти [ всегда [ ? ? ? смотри дальше? ? ? ] ] n
Вставь условие внутрь команды ВСЕГДА: если : сум 1 > 50 [сообщи [Увы! Перебор! Выиграл 2 -ой игрок] автостоп] если : сум 2 > ? ? ? [сообщи [? ? ? ]
Напишите процедуру бросок 1, в которой: n Определяется переменная с со значением 0. В эту переменную будет помещаться сумма очков, которые будут выпадать на двух кубиках. n пусть "с 0
Продолжаем писать процедуру бросок 1: n Определяется переменная с со значением 0. В эту переменную будет помещаться сумма очков, которые будут выпадать на двух кубиках. n пусть "с 0
Добавляем в процедуру бросок 1, в которой: n n Для каждого кубика будет выполняться следующее: n Определяться переменная ч со случайным значением от 1 до 6 -ти. n Кубик меняет номер формы на 0 плюс значение переменной ч. n К переменной с прибавляется значение переменной ч. n К переменной сум 1 прибавляется значение переменной с. n Значение переменной сум 1 выводится в текстовое окно бр1. В текстовое окно сумма 1 выводится значение переменной сум 1.
Тогда в процедуре бросок 1: это бросок 1 пусть "с 0 куб 1, пусть "ч 1 + сл 5 нф 0 + : ч пусть "с : с + : ч куб 2, ? ? ? бр1, ст вставь : с пусть "сум 1 : сум 1 + : с сумма 1, ст вставь : сум 1 конец
Написать процедуру бросок 2 n В которой выполняется тоже, что в процедуре бросок 1, но только для других переменных: n n n вместо с - сс, вместо сум 1 - сум 2, и для других текстовых окон: n n вместо бр1 - бр2, вместо сумма 1 - сумма 2.
Напишите процедуру финиш n В которой будут сравниваться переменные сум 1 и сум 2 и выдаваться сообщение о победителе.
Условный оператор ЕСЛИ:
Условный оператор ЕСЛИ_ИНАЧЕ
Процедура ФИНИШ это финиш если : сум 1 > 50 [сообщи [Увы! Перебор! Выиграл ? ? ? -ой игрок] стоп] если : сум 2 > 50 [сообщи [Увы! Перебор! Выиграл ? ? ? -ый игрок] стоп] если_иначе : сум 1 > : сум 2 [сообщи [Выиграл ? ? ? -ой игрок] ] [если_иначе : сум 1 = : сум 2 [сообщи [ У вас ничья!!]] [сообщи [ Выиграл ? ? ? -ой игрок] ]
Вероятно-Невероятно.ppt