Игра прошла тест и успешно работает.
ОПИСАНИЕ применение
Назначение программы
Данная программа используется в качестве развлечения.
Условия применения
Возрастное ограничение: отсутствует.
Минимальные требования:
* Процессор: Intel Pentium 500 МГц и выше
* Оперативная память: 256 Мб и более
* Пространство на жестком диске: 10-20 Мб
* Монитор: VGA или выше
ЗАКЛЮЧЕНИЕ
В данном курсовом проекте разработана игра «Вопрос на миллион». Ваша цель ответить на все вопросы правильно. Прекратить игру можно в любой момент.
Игра прошла тестирование, при тестировании возникали ошибки, которые были успешно устранены в ходе написания и корректировки кода.
Игра будет интересна для людей различных возрастов.
Программа может быть доработана.
Список использованных источников
1) Вирт Н. Алгоритмы и структуры данных. СПб.: Невский Диалект, 2001.
2) Климова, М. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель - М.: КУДРИЦ-ОБРАЗ, 2002.-480с.
3) Макконнелл. Дж. Анализ алгоритмов. Активный обучающий подход.М.:Техносфера., 2009.
4) Галисеев Г.В. Компоненты в Delphi 7. Профессиональная работа. М.: Издательский дом «Вильямс», 2004.
5) Кнут Д. Искусство программирования М..: Вильямс 2007.
ПриложениЕ 1:
( Обязательное )
Листинг программы
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.StdCtrls,
Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.Buttons;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
ScrollBox1: TScrollBox;
Image1: TImage;
RadioGroup1: TRadioGroup;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
Image2: TImage;
Image3: TImage;
Label3: TLabel;
RadioGroup2: TRadioGroup;
Image4: TImage;
RadioGroup3: TRadioGroup;
Image5: TImage;
Image6: TImage;
RadioGroup4: TRadioGroup;
Image7: TImage;
RadioGroup5: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ball:integer;
type answers=array[1..5,0..3] of byte;
const otv:answers=((1,0,0,0),(0,0,1,0),(0,1,0,0),(0,0,1,0),(0,1,0,0));
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=otv[1,radiogroup1.ItemIndex]+
otv[2,radiogroup2.ItemIndex]+
otv[3,radiogroup3.ItemIndex]+
otv[4,radiogroup4.ItemIndex]+
otv[5,radiogroup5.ItemIndex];
label1.Caption:='Правильно ответил на '+IntToStr(ball)+' из 5-ти вопросов';
if ball=5
then label2.Caption:='Ты был очень внимательным'
else
if (ball=3) or (ball=4)
then label2.caption:='Не всегда был внимательным'
else label2.caption:='Попробуй ещё'
end;
end.
|
| ||||||||||||
|
| КПП202011.106.081ПЗ | |||||||||||
|
| ||||||||||||
| Диаграмма алгоритма курсового проекта | Лит. | Масса | Масштаб | |||||||||
| Изм | Лист | № докум. | Подпись | Дата | 1:1 | |||||||
| Разраб. | Вайтович | |||||||||||
| Провер. | Салтыкова | |||||||||||
| Т.Контр. | Лист 35 | Листов 35 | ||||||||||
| Реценз. | Плакат | ЧУО МКП | ||||||||||
| Н.Контр. | ||||||||||||
| Утверд. | ||||||||||||
ПРИЛОЖЕНИЕ 2:
