Курсовая работа: Программа игры Кости

Курсовая работа: Программа игры Кости




👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻




























































Министерство науки и образования РФ
Федеральное агентство по образованию
Государственное образовательное учреждение
Профессионального высшего образования
Иркутский государственный технический университет
По дисциплине " Программирование на языке высокого уровня"

Разработать программу, моделирующую игру "Кости". Играющий называет любое число от 2 до 12 и ставку, которую он делает в этот ход. В начальный момент у играющего 100 очков. В программе должно присутствовать графическое изображение поверхности кубика при каждом ходе игрока. Программа работает с использованием генератора псевдослучайных чисел.
Первый кубик = 3; Второй кубик = 1;
Сумма кубиков = 4; Вы проиграли!! =)
Количество поражений: 1 Количество побед: 0
Соотношение побед и поражений: 0 к 1
Первый кубик = 4; Второй кубик = 1;
Сумма кубиков = 5; Вы проиграли!! =)
Вы выйграли! Ваш выигрышь увеличин в 4 раза =)
Количество поражений: 1 Количество побед: 1
Соотношение побед и поражений: 1 к 1
Первый кубик = 4; Второй кубик = 2;
Сумма кубиков = 6; Вы выиграли! = (
Количество поражений: 1 Количество побед: 2
Соотношение побед и поражений: 2 к 1
При запуске программы появляется окно регистрации игрока (рис.1).
По нажатию кнопки "Начать игру" появляется основное окно программы (рис.2).
Для начала игры необходимо сделать ставку, не превышающую текущий счет и задумать число от 2 до 12. После заполнения полей "Ставка" и "Число" нажимаем кнопку "Принять". После чего активируется кнопка "Бросить кубики" (Рис.4)
После броска кубиков программа считает их сумму и выводит результат в поле расположенное справа от кнопки, в случае если сумма кубиков меньше задуманного числа вы выигрываете, и ваша ставка прибавляется к текущему счету (рис.5).
Если сумма кубиков равна задуманному числу, то ваша ставка умножается на 4 и так же прибавляется к текущему счету (Рис.6).
В случае если сумма кубиков больше задуманного числа Вы проигрываете и ваша ставка отнимается от текущего счета (рис.7). Если у вас закончились очки появится диалоговое окно, в котором вам будут предложены следующие действия (рис.8).:
"Повторить" - начинает игру заново.
Рис.5 Сумма кубиков меньше задуманного числа
Рис.7 Сумма кубиков больше задуманного числа.
Для очистки результатов нажмите кнопку "Очистить результаты".
Чтобы ознакомится с правилами игры, нажмите: "Справка" - > "Правила игры".
Для начала новой игры зайдите в меню "файл"->"Новая Игра", для выхода "файл"-> "Выход".
Определение языка программирования.

Язык программирования - формальная знаковая система, предназначенная для записи программ, задающих алгоритм в форме, понятной для исполнителя (например, компьютера). Язык программирования определяет набор лексических, синтаксических и семантических правил, используемых при составлении компьютерной программы. Он позволяет программисту точно определить то, на какие события будет реагировать компьютер, как будут храниться и передаваться данные, а также какие именно действия следует выполнять над этими данными при различных обстоятельствах.
// ---------------------------------------------------------------------------

// ---------------------------------------------------------------------------

// ---------------------------------------------------------------------------

__fastcall TForm1:: TForm1 (TComponent* Owner)

// ---------------------------------------------------------------------------

void __fastcall TForm1:: Animate1Close (TObject *Sender)

// ---------------------------------------------------------------------------

void __fastcall TForm1:: Image2MouseMove (TObject *Sender, TShiftState Shift,

// ---------------------------------------------------------------------------

void __fastcall TForm1:: Image2MouseDown (TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

// ---------------------------------------------------------------------------

void __fastcall TForm1:: Image2MouseUp (TObject *Sender, TMouseButton Button,

if ( (name! ="") && (name! =" ")) {

// ---------------------------------------------------------------------------

// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
__fastcall TForm2:: TForm2 (TComponent* Owner)
Form2->Caption = ("Êîñòè " + DateToStr (Now ()));
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N4Click (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Button2Click (TObject *Sender)
Memo1->Lines->Add ("Èãðîê " + Label4->Caption);
Memo1->Lines->Add ("Áðîñîê ¹ " + IntToStr (i));
Memo1->Lines->Add ("Ïåðâûé êóáèê = " + IntToStr (a));
Memo1->Lines->Add ("Âòîðîé êóáèê = " + IntToStr (b));
case 1: Image2->Picture->LoadFromFile ("1. jpg"); break;
case 2: Image2->Picture->LoadFromFile ("2. jpg"); break;
case 3: Image2->Picture->LoadFromFile ("3. jpg"); break;
case 4: Image2->Picture->LoadFromFile ("4. jpg"); break;
case 5: Image2->Picture->LoadFromFile ("5. jpg"); break;
case 6: Image2->Picture->LoadFromFile ("6. jpg"); break;
case 1: Image3->Picture->LoadFromFile ("1. jpg"); break;
case 2: Image3->Picture->LoadFromFile ("2. jpg"); break;
case 3: Image3->Picture->LoadFromFile ("3. jpg"); break;
case 4: Image3->Picture->LoadFromFile ("4. jpg"); break;
case 5: Image3->Picture->LoadFromFile ("5. jpg"); break;
case 6: Image3->Picture->LoadFromFile ("6. jpg"); break;
Memo1->Lines->Add ("Ñóììà êóáèêîâ = " + IntToStr (sum));
Memo1->Lines->Add ("Âû âûèãðàëè! Âàø âûéãðûøü óâåëè÷èí = (");
Memo1->Lines->Add ("Êîëè÷åñòâî ïîáåä: "+IntToStr (v));
Memo1->Lines->Add ("Êîëè÷åñòâî ïîðàæåíèé: "+IntToStr (l));
Memo1->Lines->Add ("Âû âûèãðàëè!! = (");
Memo1->Lines->Add ("Êîëè÷åñòâî ïîáåä: "+IntToStr (v));
Memo1->Lines->Add ("Êîëè÷åñòâî ïîðàæåíèé: "+IntToStr (l));
Memo1->Lines->Add ("Âû ïðîèãðàëè!! =)");
Animate1->FileName= ("loose. avi");
Memo1->Lines->Add ("Êîëè÷åñòâî ïîðàæåíèé: "+IntToStr (l));
Memo1->Lines->Add ("Êîëè÷åñòâî ïîáåä: "+IntToStr (v));
Memo1->Lines->Add ("Ñîîòíîøåíèå ïîáåä è ïîðàæåíèé: "+IntToStr (v) +" ê "+IntToStr (l));
// ---------------------------------------------------------------------------
void __fastcall TForm2:: FormClose (TObject *Sender, TCloseAction &Action)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Button1Click (TObject *Sender)
if ( (Edit2->Text! ="") && (Edit3->Text! ="")) {
if ( (x<2) || (x>12) || (st>ns)) {ShowMessage ("Ïðîâåðüòå ïðàâèëüíîñòü ââîäà"); }
{ShowMessage ("Îäíî èç ïîëåé íå çàïîëíåíî!"); }
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Edit2Change (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Edit3Change (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Edit2KeyPress (TObject *Sender, char &Key)
if ( (Key >= '0') && (Key <= '9') || (Key == 8)) {} // öèôðû
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Edit3KeyPress (TObject *Sender, char &Key)
if ( (Key >= '0') && (Key <= '9') || (Key == 8)) {} // öèôðû
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Image1MouseMove (TObject *Sender, TShiftState Shift,
Label5->Caption = TimeToStr (Now ());
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N3Click (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: Button3Click (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N5Click (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N6Click (TObject *Sender)
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
__fastcall TForm3:: TForm3 (TComponent* Owner)
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Button1Click (TObject *Sender)
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Button2Click (TObject *Sender)
// ---------------------------------------------------------------------------
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, jpeg, ExtCtrls, ComCtrls;

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure N3Click (Sender: TObject);

procedure Edit2Change (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Edit1KeyPress (Sender: TObject; var Key: Char);

procedure Edit2KeyPress (Sender: TObject; var Key: Char);

procedure Button2Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

procedure TForm2. Button1Click (Sender: TObject);

if ( (prov1<>'') or (prov2<>'')) then begin

if ( (x<2) or (x>12) or (st>ns)) then

ShowMessage ('Проверьте правильность вводимых данных');

ShowMessage ('Проверьте
правильность
вводимых
данных
'); end;

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

procedure TForm2. N3Click (Sender: TObject);

procedure TForm2. Edit2Change (Sender: TObject);

procedure TForm2. Edit1Change (Sender: TObject);

procedure TForm2. Edit1KeyPress (Sender: TObject; var Key: Char);

if ( (Key >= '0') and (Key <= '9') or (Key = #8)) then begin end // цифры

procedure TForm2. Edit2KeyPress (Sender: TObject; var Key: Char);

if ( (Key >= '0') and (Key <= '9') or (Key = #8)) then begin end // цифры

procedure TForm2. Button2Click (Sender: TObject);

Memo1. Lines. Add ('Игрок
: '+ Label1. Caption);

Memo1. Lines. Add ('Первый
кубик
= ' +inttostr (a));

Memo1. Lines. Add ('Второй
кубик
= ' +inttostr (b));

1: Image2. Picture. LoadFromFile ('1. jpg');

2: Image2. Picture. LoadFromFile ('2. jpg');

3: Image2. Picture. LoadFromFile ('3. jpg');

4: Image2. Picture. LoadFromFile ('4. jpg');

5: Image2. Picture. LoadFromFile ('5. jpg');

6: Image2. Picture. LoadFromFile ('6. jpg');

1: Image3. Picture. LoadFromFile ('1. jpg');

2: Image3. Picture. LoadFromFile ('2. jpg');

3: Image3. Picture. LoadFromFile ('3. jpg');

4: Image3. Picture. LoadFromFile ('4. jpg');

5: Image3. Picture. LoadFromFile ('5. jpg');

6: Image3. Picture. LoadFromFile ('6. jpg');

Memo1. Lines. Add ('Сумма
кубиков
= ' +inttostr (sum));

Memo1. Lines. Add ('Вы
выиграли
! Ваш выигрыш увеличин в 4 раза!
=) ');

Animate1. FileName: = ('win. avi');

Memo1. Lines. Add ('Вы проиграли! = (');

Animate1. FileName: = ('loose. avi');

Memo1. Lines. Add ('Вы
выиграли
! =) ');

Animate1. FileName: = ('win. avi');

Memo1. Lines. add ('Всего
бросков
: ' + Inttostr (k));

Memo1. Lines. add ('Из
них
выигрышей
/проигрышей
: ' + Inttostr (v) + ' / '+Inttostr (p));

procedure TForm2. N2Click (Sender: TObject);

procedure TForm2. Button3Click (Sender: TObject);

procedure TForm2. N5Click (Sender: TObject);

procedure TForm2. N6Click (Sender: TObject);

procedure TForm2. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Label5. Caption: = TimeToStr (Now ());

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

procedure Image2MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure TForm1. Image2MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure TForm1. Image2MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

if ( (name = '') or (name = ' ')) then

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

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure TForm3. Button1Click (Sender: TObject);

procedure TForm3. Button2Click (Sender: TObject);

Оба языка обладают своими преимуществами и недостатками. И нельзя строго о превосходстве одного над другим - все зависит от того, какую задачу ставит перед собой программист. Так например Pascal более удобен для изучения, является более наглядным для новичков. (И первоначально он был создан как раз для обучения) Но С++ в свою очередь является более компактным, быстрее компилируется. За счет этого на С++ удобнее писать большие и более сложные программы, тогда как Pascal лучше предназначен для обучения и выполнения не самых сложных алгоритмов.









1. А. Гусева. Учимся программировать: Pascal 7.0.
2. Фаронов В.В. Turbo Pascal. Учебный курс
3. Бьерн Страустрап. Введение в С++
6. http://ru. wikipedia.org/wiki/C++
7. http://ru. wikipedia.org/wiki/Pascal

Название: Программа игры Кости
Раздел: Рефераты по информатике
Тип: курсовая работа
Добавлен 23:29:22 10 декабря 2010 Похожие работы
Просмотров: 94
Комментариев: 15
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Модуль программы для регистрации игрока
St-ставка, x-задуманное число, ns-ограничение ставки
Бросает игральные кости и выводит результат
A,b-значение броска, sum-сумма броска, k-количество бросков, v-количество выигрышей, p-количество проигрышей, ns-текущий счет.
Возвращает исходное значение переменных p,v,k,ns
При текущем счете меньшем чем ставка
Типы, имеющие одинаковый диапазон значений
Типы, имеющие разный диапазон значений
For <переменная>: =<значение1> to <значение2> do …
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Курсовая работа: Программа игры Кости
Реферат На Тему Силовая Подготовка
Курсовая работа по теме Теоретичні основи проблемно-модульного навчання та методика його застосування у коледжі при вивченні спецдисципліни
Сочинение На Тему Мы Попали В Грозу
Жизнь Дубровского Сочинение Кратко
Реферат: Mediterranean Vegetation Essay Research Paper Mediterranean Vegetation
Рухани Құндылықтар Эссе
Контрольная работа: Основы организации труда
Реферат: Екатерина II Великая (1729-96)
Реферат: Move The Exams Essay Research Paper There
Курсовая работа: Технологии изготовления "слухового" окна
Курсовая работа: Разработка БД "Магазин автозапчастей"
Рефераты По Физкультуре На Тему Здоровый Человек
Сочинение Про 2022 Год Про Коронавирус
Реферат по теме Назначение и характер аппаратных средств защиты информации
Курсовая Работа На Тему Проблема Преступности В Современной России
Дипломная работа: Художня своєрідність роману Ю. Мушкетика "Гайдамаки"
Планирование Персонала Реферат
Курсовая работа по теме Автоматизированное рабочее место преподавателя. Учёт посещаемости и успеваемости студентов
Декабрьское Сочинение По Обломову
Мини Сочинение Пример Сильной Личности
Реферат: Стандартизация и сертификация лекарственных средств
Реферат: Теория определения уровня дохода. Теория мультипликатора
Курсовая работа: Стратегічне управління в умовах стратегічних змін

Report Page