Листинг программного продукта

Список использованных источников

Руководство разработчика

Контролирующая программа находится на CD-RW носителе. Для того чтобы запустить программу необходимо:

1.Вставить в дисковод диск

2.Зайти в «Мой компьютер» и открыть двойным щелчком диск «Вергун ВТ-31-12».

Минимальные системные требования:

Windows Vista/XP

40 Mb свободного дискового пространства

Intel(R) Core(TM)i3-3220 CPU @ 3.30Hz

Заключение

В ходе работы над курсовой работой была создана тестирующая программа для оценки знаний обучающегося, программа была протестирована на работоспособность.

Целью курсовой работы являлось создание контролирующей программы по МДК.03.01 «Технология разработки программного обеспечения» на тему «Методы и средства разработки программных продуктов». В результате выполнения данной работы, поставленные задачи были выполнены, цель достигнута.

Программа будет использоваться преподавателями Брасткого политехнического колледжа.

1 Осипов Д.Н – Delphi.Теория и Практика – БХВ Питербург, 2011-406с.

2 Осипов Д.Н– Delphi. Программирование для windows– БХВ Питербург, 2014-320с.

3 Рубанцев В.П.– Delphi в примерах и играх – БХВ Питербург,2011-500с.

4 Шкрыль А. А. – Разработка приложений в Delphi– БХВ Питербург,2012-225с.

5 Бобровский С. Л– Технология Delphi– БХВ Питербург,2013-500с.

6 Фленов М.Ф – Библия Delphi-БХВ Питербург, 2011-345с.

7 Григорьев А.Б. – О чем пишут в книгах о Delph– БХВ Питербург, 2012-501с.

8 Голованов М.Л – Создание компонентов среде Delphi – БХВ Питербург,2014-447с.

9 Грибачев К. П. – Delphi. Разработка приложений – БХВ Питербург,2013-458с.

10 Марков Е. С. – Delphi для вин32– БХВ Питербург, 2005-700с.

11 Хладни Г.Н – Внутренний мир Borland Delphi– БХВ Питербург, 2015-400с.

12 Чиртик А.Г – Трюки и эффекты в Delphi– БХВ Питербург,2014-306с.

Приложение А

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan;

type

TForm1 = class(TForm)

edtf: TEdit;

edtN: TEdit;

edtgr: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label5: TLabel;

Button1: TButton;

img1: TImage;

Button2: TButton;

lbl1: TLabel;

xpmnfst1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure edtfChange(Sender: TObject);

procedure edtNChange(Sender: TObject);

procedure edtgrChange(Sender: TObject);

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var f:TextFile;

begin

if (edtf.text='') and (edtn.text='') and (edtgr.text='') then

ShowMessage('Заполните поля!')

else

begin

form1.Hide;

Form2:=TForm2.Create(nil);

Form2.Show;

end;

AssignFile(f,'da.txt');

Append(f);

Writeln(f,edtf.text);

Writeln(f,edtn.text);

Writeln(f,edtgr.text);

closefile(f);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.hide;

Form5.show;

end;

procedure TForm1.edtfChange(Sender: TObject);

begin

if (edtf.Text<>'') and (edtgr.text<>'') and (edtN.Text<>'') then Button1.Enabled:=True;

end;

procedure TForm1.edtNChange(Sender: TObject);

begin

if (edtf.Text<>'') and (edtgr.text<>'') and (edtN.Text<>'') then Button1.Enabled:=True;

end;

procedure TForm1.edtgrChange(Sender: TObject);

begin

if (edtf.Text<>'') and (edtgr.text<>'') and (edtN.Text<>'') then Button1.Enabled:=True;

end;

procedure TForm1.edtfKeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['А'..'Я','а'..'я'])then key:=#8;

end;

procedure TForm1.edtNKeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['А'..'Я','а'..'я'])then key:=#8;

end;

procedure TForm1.edtgrKeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['А'..'Я','а'..'я','0'..'9','-'])then key:=#8;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, ComCtrls, jpeg, XPMan;

type

TForm2 = class(TForm)

bNext: TButton;

Label1: TLabel;

bOk: TButton;

pb: TProgressBar;

img1: TImage;

xpmnfst1: TXPManifest;

tmr1: TTimer;

lbl1: TLabel;

rb1: TRadioButton;

rb2: TRadioButton;

rb3: TRadioButton;

rb4: TRadioButton;

edt1: TEdit;

chk1: TCheckBox;

chk2: TCheckBox;

chk3: TCheckBox;

chk4: TCheckBox;

img2: TImage;

edt2: TEdit;

edt3: TEdit;

edt4: TEdit;

edt5: TEdit;

edt6: TEdit;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

Image1: TImage;

img3: TImage;

lbl7: TLabel;

lbl8: TLabel;

procedure bNextClick(Sender: TObject);

procedure bOkClick(Sender: TObject);

procedure tmr1Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2; k,b,minutes,seconds:Byte;

a:Integer;

c:LongInt;

implementation

uses Unit3,Unit1;

{$R *.dfm}

procedure TForm2.bNextClick(Sender: TObject);

begin

a:=a+1;

case a of

0:begin

IF rb2.checked then b:=b+2;

label1.Caption:='Относится ли управление требованиями к работам, техническая поддержка'+#13#10+ 'которых требует больших финансовых затрат?';

rb3.Visible:=False;

rb4.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb1.Caption:='да';

rb2.caption:='нет';

end;

1:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='В каком стандарте рекомендуется использовать эволюционный путь,'+#13#10+' который позволяет совершенствовать и постепенно повышать качество процессов и продуктов,'+#13#10+' вскрывать преимущества и недостатки предприятия?';

rb3.Visible:=True;

rb4.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb1.Caption:='ISO 15504';

rb2.Caption:='ISO 15';

rb3.Caption:='ISO 15506';

end;

2:begin

if rb1.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На каком уровне модели СММ происходит приближенная оценка процессов, '+#13#10+' размера работ, ресурсов и результатов?';

rb4.Visible:=true;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='оптимизационный';

rb2.Caption:='управляемый';

rb3.Caption:='реляционный';

rb4.Caption:='начальный';

end;

3:begin

if rb4.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На каком уровне модели СММ происходит приближенная оценка процессов, '+#13#10+' размера работ, ресурсов и результатов?';

rb4.Visible:=true;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='оптимизационный';

rb2.Caption:='управляемый';

rb3.Caption:='реляционный';

rb4.Caption:='начальный';

end;

4:begin

if rb4.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На каком уровне модели СММ происходит управление требованиями;'+#13#10+' планирование и мониторинг проекта; управление разработкой компонентов и конфигурацией,'+#13#10+' обеспечение качества, контроль процессов и продуктов?';

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='оптимизационный';

rb2.Caption:='управляемый';

rb3.Caption:='реляционный';

rb4.Caption:='начальный';

end;

5:begin

if rb3.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На каком уровне модели СММ происходит определение стандартного процесса; '+#13#10+'интегрированное управление проектом; компонентами и продуктами; '+#13#10+' верификация, валидация, контроль качества процессов и продуктов; '+#13#10+' управление ресурсами, рисками и контроль их; '+#13#10+' документирование процессов и продуктов?';

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='определенный';

rb2.Caption:='оптимизационный';

rb3.Caption:='реляционный';

rb4.Caption:='начальный';

//Счетчик правильных ответов '+#13#10+'

end;

6:begin

if rb1.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На каком уровне модели СММ происходит измерение характеристик компонентов, продукта и процессов; '+#13#10+' количественное управление процессами, затратами и характеристиками качества; '+#13#10+' распределение, контроль и обеспечение процессов ресурсами; '+#13#10+' количественный контроль и управление рисками процессов, ресурсов и качества;'+#13#10+' контроль и управление поставкой продуктов?';

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='оптимизационный';

rb2.Caption:='предсказуемый';

rb3.Caption:='непредсказуемый';

rb4.Caption:='определенный';

//Счетчик правильных ответов '+#13#10+'

end;

7:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На каком уровне модели СММ происходит управление изменением и качеством процессов; '+#13#10+' совершенствование качества и управления процессами и продуктами; '+#13#10+' непрерывное измерение и улучшение качества продуктов и процессов?';

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='определенный';

rb2.Caption:='предсказуемый';

rb3.Caption:='оптимизационный';

rb4.Caption:='непредсказуемый';

//Счетчик правильных ответов '+#13#10+'

end;

8:begin

if rb3.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Сколько уровней зрелости в методологии СММ?';

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='7';

rb2.Caption:='5';

rb3.Caption:='о';

rb4.Caption:='9';

//Счетчик правильных ответов '+#13#10+'

end;

9:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='В каком стандарте описываются стандарты менеджмента программного продукта?';

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='ISO 15288 ';

rb2.Caption:='ISO 9000';

rb3.Caption:='ISO 12207';

rb4.Caption:='ISO 9001';

//Счетчик правильных ответов '+#13#10+'

end;

10:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='В каких документах описаны Стандарты жизненного цикла сложных систем и программных средств?';

rb4.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='ISO 15288 и ISO 12207';

rb2.Caption:='ISO 15288 и ISO 9000';

rb3.Caption:='ISO 14598 и ISO 15939';

//Счетчик правильных ответов '+#13#10+'

end;

11:begin

if rb1.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='В каких документах описаны Стандарты интерфейсов Открытых систем?';

rb4.Visible:=True;

rb3.Visible:=True;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='ISO 15288';

rb2.Caption:='ISO 9000';

rb3.Caption:='ISO 9945';

rb4.Caption:='ISO 9126';

//Счетчик правильных ответов '+#13#10+'

end;

12:begin

if rb3.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='В каких документах описаны Стандарты качества программных средств?';

rb4.Visible:=False;

rb3.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='ISO 15288, ISO 14598,ISO 9000';

rb2.Caption:='ISO 9126, ISO 14598, ISO 15939';

//Счетчик правильных ответов '+#13#10+'

end;

13:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Какой документ должна разработать Организация, которое должно включать: описание элементов системы менеджмента качества и их взаимосвязей;'+#13#10+' общесистемные процедуры или соответствующие ссылки на них?';

rb4.Visible:=False;

rb3.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='Руководство по качеству';

rb2.Caption:='Отчеты о качестве';

//Счетчик правильных ответов '+#13#10+'

end;

14:begin

if rb1.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Для демонстрации соответствия требованиям и эффективности функционирования системы менеджмента качества '+#13#10+' должны вестись подходящие для организации?';

rb4.Visible:=False;

rb3.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='Руководство по качеству';

rb2.Caption:='Отчеты о качестве';

//Счетчик правильных ответов '+#13#10+'

end;

15:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Какие данные для проектирования и разработки включают эксплуатационные требования заказчика или рынка; '+#13#10+' применяемые нормативные и законодательные требования; '+#13#10+' применяемые требования по охране окружающей среды?';

rb4.Visible:=False;

rb3.Visible:=False;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='входные';

rb2.Caption:='выходные';

//Счетчик правильных ответов '+#13#10+'

end;

16:begin

if rb1.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Какой процесс необходим для оценки возможности выполнения требований к качеству; '+#13#10+' идентификации проблем - дефектов и выработки предложений по разработке решений для их устранения?';

rb4.Visible:=True;

rb3.Visible:=True;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

rb1.Caption:='Систематический анализ проекта';

rb2.Caption:=' Утверждение проекта';

rb3.Caption:=' изменение проекта';

rb4.caption:='удаление проекта';

//Счетчик правильных ответов '+#13#10+'

end;

17:begin

if rb2.Checked=True

then b:=b+2;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Учет собираемых требований, контроль их обработки,'+#13#10+' оценка и реализация - работа по управлению ______ ';

rb4.Visible:=False;

rb2.Visible:=False;

rb1.Visible:=False;

rb3.Visible:=False;

edt1.Visible:=true;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

edt1.Text:='';

//Счетчик правильных ответов '+#13#10+'

end;

18:begin

if edt1.text='требованиями' then b:=b+4;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Условие или характеристика, '+#13#10+'которой должен удовлетворять программный продукт - ___________';

rb4.Visible:=False;

rb2.Visible:=False;

rb1.Visible:=False;

rb3.Visible:=False;

edt1.Visible:=true;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

edt1.Text:='';

//Счетчик правильных ответов '+#13#10+'

end;

19:begin

if edt1.text='требование' then b:=b+4;

lbl8.Caption:=IntToStr(b);

label1.Caption:='__________- упорядоченная совокупность служб,'+#13#10+' управляющих его деятельностью и взаимосвязями';

rb4.Visible:=False;

rb2.Visible:=False;

rb1.Visible:=False;

rb3.Visible:=False;

edt1.Visible:=true;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

edt1.Text:='';

//Счетчик правильных ответов '+#13#10+'

end;

20:begin

if edt1.text='Управление предприятием' then b:=b+4;

lbl8.Caption:=IntToStr(b);

label1.Caption:='__________программ - программные продукты создаются для решения сложных задач '+#13#10+'управления и обработки информации ';

rb4.Visible:=False;

rb2.Visible:=False;

rb1.Visible:=False;

rb3.Visible:=False;

edt1.Visible:=true;

rb1.Checked:=False;

rb2.Checked:=False;

rb3.Checked:=False;

rb4.Checked:=False;

edt1.Text:='';

//Счетчик правильных ответов '+#13#10+'

end;

21:begin

if edt1.text='комплексы' then b:=b+4;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Управление требованиями представляет собой:';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=True;

chk2.Visible:=True;

chk3.Visible:=True;

chk4.Visible:=False;

chk1.Caption:='систематический подход к выявлению,'+#13#10+' организации одокументированию требований к программному продукту;';

chk2.Caption:='процесс, устанавливающий соглашение между заказчиками и разработчиками '+#13#10+' относительно изменения требований к программному продукту;';

chk3.Caption:='протоколы совещаний и интервью с заказчиками';

//Счетчик правильных ответов '+#13#10+'

end;

22:begin

if (chk1.Checked=True) and (chk2.Checked=True)

then b:=b+6;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Какие цели преследует управление требованиями?';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=True;

chk2.Visible:=True;

chk3.Visible:=True;

chk4.Visible:=True;

chk1.Caption:='достижение соглашения с заказчиком и пользователями о том, что программный продукт должен делать;';

chk2.Caption:='улучшение понимания требований к программному продукту со стороны разработчиков;';

chk3.Caption:='выявление семантических и синтаксических ошибок;';

chk4.Caption:='определение базиса для планирования;';

//Счетчик правильных ответов '+#13#10+'

end;

23:begin

if (chk1.Checked=True) and (chk2.Checked=True) and (chk4.checked=True)

then b:=b+6;

lbl8.Caption:=IntToStr(b);

label1.Caption:='На какие категории делятся все требования?';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=True;

chk2.Visible:=True;

chk3.Visible:=True;

chk4.Visible:=True;

chk1.Caption:='необходимо выполнить;';

chk2.Caption:='следует выполнить;';

chk3.Caption:='можно выполнить;';

chk4.Caption:='желательно выполнить;';

//Счетчик правильных ответов '+#13#10+'

end;

24:begin

if (chk1.Checked=True) and (chk2.Checked=True) and (chk3.checked=True)

then b:=b+6;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Какие существуют виды требований?';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=True;

chk2.Visible:=True;

chk3.Visible:=True;

chk4.Visible:=True;

chk1.Caption:='функциональные;';

chk2.Caption:='надёжные';

chk3.Caption:='программные';

chk4.Caption:='нефункциональные;';

//Счетчик правильных ответов '+#13#10+'

end;

25:begin

if (chk1.Checked=True) and (chk4.checked=True)

then b:=b+6;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Отметьте все типы нефункциональных требований:';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=True;

chk2.Visible:=True;

chk3.Visible:=True;

chk4.Visible:=True;

chk1.Caption:='требования к применению;';

chk2.Caption:='требования к производительности;';

chk3.Caption:='требования к реализации;';

chk4.Caption:='требования к надёжности;';

//Счетчик правильных ответов '+#13#10+'

end;

26:begin

if (chk1.Checked=True) and (chk4.checked=True) and (chk3.Checked=True) and (chk2.checked=True)

then b:=b+6;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Поставьте виды требований в соответствие их назначению:';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=False;

chk2.Visible:=False;

chk3.Visible:=False;

chk4.Visible:=False;

img2.Visible:=True;

edt2.Visible:=True;

edt3.Visible:=True;

lbl2.Visible:=True;

lbl3.Visible:=True;

//Счетчик правильных ответов '+#13#10+'

end;

27:begin

if (edt2.text='2') and (edt3.text='1') then b:=b+8;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Поставьте виды требований в соответствие их назначению:';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=False;

chk2.Visible:=False;

chk3.Visible:=False;

chk4.Visible:=False;

img2.Visible:=False;

edt2.Visible:=True;

edt3.Visible:=True;

lbl2.Visible:=True;

lbl3.Visible:=True;

edt4.Visible:=True;

edt5.Visible:=True;

edt6.Visible:=True;

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='';

edt6.Text:='';

lbl4.Visible:=True;

lbl5.Visible:=True;

lbl6.Visible:=True;

Image1.Visible:=True;

//Счетчик правильных ответов '+#13#10+'

end;

28:begin

if (edt2.text='5') and (edt3.text='3') and (edt4.text='1') and (edt5.text='2') and (edt6.text='4') then b:=b+8;

lbl8.Caption:=IntToStr(b);

label1.Caption:='Поставьте виды требований в соответствие их назначению:';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=False;

chk2.Visible:=False;

chk3.Visible:=False;

chk4.Visible:=False;

img2.Visible:=False;

edt2.Visible:=True;

edt3.Visible:=True;

lbl2.Visible:=True;

lbl3.Visible:=True;

edt4.Visible:=True;

edt5.Visible:=False;

edt6.Visible:=True;

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='';

edt6.Text:='';

lbl4.Visible:=True;

lbl5.Visible:=True;

lbl6.Visible:=True;

Image1.Visible:=False;

img3.Visible:=True;

//Счетчик правильных ответов '+#13#10+'

end;

29:begin

if (edt2.text='2') and (edt3.text='1') and (edt4.text='4') and (edt5.text='3') then b:=b+8;

lbl8.Caption:=IntToStr(b);

label1.Caption:='перейти к результатам';

rb3.Visible:=false;

rb1.Visible:=False;

rb2.Visible:=False;

rb4.Visible:=false;

edt1.Visible:=False;

chk1.Visible:=False;

chk2.Visible:=False;

chk3.Visible:=False;

chk4.Visible:=False;

img2.Visible:=False;

edt2.Visible:=false;

edt3.Visible:=false;

lbl2.Visible:=false;

lbl3.Visible:=false;

edt4.Visible:=false;

edt5.Visible:=False;

edt6.Visible:=false;

edt2.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='';

edt6.Text:='';

lbl4.Visible:=false;

lbl5.Visible:=false;

lbl6.Visible:=false;

Image1.Visible:=False;

img3.Visible:=false;

lbl7.Visible:=True;

end;

else

if (label1.Caption='перейти к результатам') then

begin

bnext.hide;

bOk.Show;

end;

end;

end;

procedure TForm2.bokClick(Sender: TObject);

begin

form2.Hide;

Form3.Show;

Form3.lbl5.Caption:=form1.edtf.Text;

form3.lbl8.Caption:=IntToStr(b);

form3.lbl6.Caption:=Form1.edtgr.Text;

Form3.lbl10.Caption:=Form1.edtN.Text;

begin

if (b<60) then Form3.lbl7.Caption:='2' else

if (b<70) and (b>60) then Form3.lbl7.Caption:='3' else

if (b<80) and (b>70) then Form3.lbl7.Caption:='4' else Form3.lbl7.Caption:='5';

end;

end;

procedure TForm2.tmr1Timer(Sender: TObject);

begin

c:=c-1;

minutes:=c div 60;

seconds:=c mod 60;

lbl1.Caption:=' Осталось времени: ' + inttostr(minutes)+ ':'+inttostr(seconds);

If (minutes=0) and (seconds=0)then ShowMessage('время вышло');

begin

if tmr1.Enabled=true then

PB.Position:=PB.Position+1;

end;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

c:=2700;

a:=-1;

lbl8.Caption:=IntToStr(a);

end;

end.

unit Unit3;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan;

type

TForm3 = class(TForm)

img1: TImage;

Button1: TButton;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

xpmnfst1: TXPManifest;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

lbl7: TLabel;

lbl8: TLabel;

lbl9: TLabel;

lbl10: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

f: TextFile;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

AssignFile(f,'da.txt');

Append(f);

Writeln(f,lbl7.caption);

Writeln(f,lbl8.caption);

CloseFile(f);

Application.Terminate;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan, Menus;

type

TForm4 = class(TForm)

img1: TImage;

Bback: TButton;

Label1: TLabel;

btn1: TButton;

xpmnfst1: TXPManifest;

mm1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure BbackClick(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

p:string;

implementation

uses Unit1, Unit2, Unit6, Unit7;

{$R *.dfm}

procedure TForm4.BbackClick(Sender: TObject);

begin

form4.Hide;

Form1:=TForm1.Create(nil);

Form1.Show;

end;

procedure TForm4.btn1Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm4.N1Click(Sender: TObject);

begin

Form4.Hide;

form7.show;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

form6.Show;

p:=extractfilepath(Application.ExeName);

form6.WB1.Navigate(p+ 'hlp\Справка1.htm');

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Grids, jpeg, ExtCtrls, XPMan;

type

TForm5 = class(TForm)

Button1: TButton;

strngrd1: TStringGrid;

edt1: TEdit;

lbl1: TLabel;

Button3: TButton;

xpmnfst1: TXPManifest;

img1: TImage;

btn1: TButton;

edt2: TEdit;

edt3: TEdit;

lbl2: TLabel;

lbl3: TLabel;

strngrd2: TStringGrid;

btn2: TButton;

btn3: TButton;

btn4: TButton;

lbl4: TLabel;

btn5: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

f:TextFile;

fm,s,a,d,c:string;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.hide;

Form1.show;

end;

procedure TForm5.FormCreate(Sender: TObject);

var f:TextFile;

fm,s,a,c,d:string;

begin

strngrd1.Cells[0,0]:='фамилия';

strngrd1.Cells[1,0]:='имя';

strngrd1.Cells[2,0]:='группа';

strngrd1.Cells[3,0]:='оценка';

strngrd1.Cells[4,0]:='баллы';

strngrd2.Cells[0,0]:='фамилия';

strngrd2.Cells[1,0]:='имя';

strngrd2.Cells[2,0]:='группа';

strngrd2.Cells[3,0]:='оценка';

strngrd2.Cells[4,0]:='баллы';

AssignFile(f,'da.txt');

Reset(f);

while not(Eof(f)) do

begin

Readln(f,fm);

Readln(f,s);

Readln(f,a);

Readln(f,c);

Readln(f,d);

with strngrd1 do

begin

Cells[0,RowCount-1]:=Fm;

Cells[1,RowCount-1]:=S;

Cells[2,RowCount-1]:=A;

Cells[3,RowCount-1]:=C;

Cells[4,RowCount-1]:=D;

RowCount:=RowCount+1;

end;

end;

CloseFile(f);

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

if edt1.text='mostwanted3992-96' then

begin

Button3.Visible:=False;

lbl1.Hide;

edt1.Hide;

strngrd1.Show;

strngrd2.Show;

edt2.Show;

edt3.show;

btn2.Show;

btn3.Show;

lbl2.Show;

lbl3.Show;

Button1.hide;

btn1.Hide;

lbl4.Show;

btn4.Show;

btn5.Hide;

end

else showmessage('неверный пароль');

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm5.btn1Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm5.btn2Click(Sender: TObject);

begin

//по групе

AssignFile(f,'da.txt');

Reset(F);

Strngrd2.RowCount:=2;

while not(Eof(f)) do

begin

Readln(f,Fm);

Readln(f,s);

Readln(f,a);

Readln(f,c);

Readln(f,d);

if a = Edt3.Text then

with Strngrd2 do

begin

Cells[0,RowCount-1]:=Fm;

Cells[1,RowCount-1]:=s;

Cells[2,RowCount-1]:=a;

Cells[3,RowCount-1]:=c;

Cells[4,RowCount-1]:=d;

RowCount:=RowCount+1;

RowCount:=RowCount-1;

end;

end;

CloseFile(f);

end;

procedure TForm5.btn3Click(Sender: TObject);

begin

//поиск по фамилии

AssignFile(f,'da.txt');

Reset(F);

Strngrd2.RowCount:=2;

while not(Eof(f)) do

begin

Readln(f,Fm);

Readln(f,s);

Readln(f,a);

Readln(f,c);

Readln(f,d);

if fm = Edt2.Text then

with Strngrd2 do

begin

Cells[0,RowCount-1]:=Fm;

Cells[1,RowCount-1]:=s;

Cells[2,RowCount-1]:=a;

Cells[3,RowCount-1]:=c;

Cells[4,RowCount-1]:=d;

RowCount:=RowCount+1;

end;

end;

CloseFile(f);

Strngrd2.RowCount:=Strngrd2.RowCount-1;

end;

procedure TForm5.btn4Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm5.btn5Click(Sender: TObject);

begin

edt1.Text:='';

end;

end.

unit Unit6;

interface

uses

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

Dialogs, jpeg, ExtCtrls, OleCtrls, SHDocVw;

type

TForm6 = class(TForm)

img1: TImage;

wb1: TWebBrowser;

procedure img1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm6.img1Click(Sender: TObject);

begin

Form6.Hide;

form4.show;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm7 = class(TForm)

img1: TImage;

lbl1: TLabel;

img2: TImage;

procedure img1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm7.img1Click(Sender: TObject);

begin

form7.Hide;

form4.show;

end;

end.

Приложение В. Криншоты программы

Рисунок 1-форма «Титульник»

Рисунок 2 - Форма «Регистрации»

Рисунок 3-Форма «Ввод пароля»

Рисунок 4-форма «Списка протестированных студентов

Рисунок 5 – форма «прохождения теста(1 вариант ответа)»

Рисунок 6 – форма «прохождения теста(несколько вариантов ответа)»

Рисунок 7 – форма «прохождения теста (соответствие)»

Рисунок 8 – форма «окончание тестирования»

Рисунок 9 - форма «результат тестирования»

Рисунок 10 –форма «справка»

Рисунок 11 – форма «о разработчике»

Приложение В эталоны ответов

1. Учет собираемых требований, контроль их обработки, оценка и реализация - работа по управлению ___ (требованиями).

2. Управление требованиями представляет собой:

а) систематический подход к выявлению, организации одокументированию требований к программному продукту;

б) процесс, устанавливающий соглашение между заказчиками и разработчиками относительно изменения требований к программному продукту;

в) протоколы совещаний и интервью с заказчиками.

3. Какие цели преследует управление требованиями?

а) достижение соглашения с заказчиком и пользователями о том, что программный продукт должен делать;

б) улучшение понимания требований к программному продукту со стороны разработчиков;

в) выявление семантических и синтаксических ошибок;

г) определение базиса для планирования;

4. На какие категории делятся все требования?

а) необходимо выполнить;

б) желательно выполнить;

в) следует выполнить;

г) не нужно выполнять;

д) можно выполнить;

5. Относится ли управление требованиями к работам, техническая поддержка которых требует больших финансовых затрат?

а) да;

б) нет.

6. Условие или характеристика, которой должен удовлетворять программный продукт – ___________. (требование)

7. Какие существуют виды требований?

а) функциональные;

б) надёжные;

в) программные;

г) нефункциональные.

8. Поставьте виды требований в соответствие их назначению:

1. функциональные	а) описывает атрибуты программного продукта или его системное окружение
2. нефункциональные	б) определяет действия, которые должен выполнять программный продукт без учета ограничений, связанных с его реализацией

1б 2а

9. Отметьте все типы нефункциональных требований:

а) требования к применению;

б) требования к производительности;

в) требования к реализации;

г) требования к надёжности;

10. Поставьте в соответствие тип нефункциональных требований и его значение:

1) требования к применению	а) обусловливают допустимые частоту и воздействие сбоев на работу программного продукта, а также возможности восстановления после сбоев
2) требования к реализации	б) определяют внешние сущности, с которыми может взаимодействовать система, и регламент этого взаимодействия
3) требования к интерфейсу	в) определяют качество пользовательского интерфейса, документации и учебных курсов
4) требования к производительности	г) предписывают использование определённых стандартов, языков программирования, операционной среды и т.д.
5) требования к надёжности	д) накладывают ограничения на функциональные требования

1в 2г 3б 4д 5а

12. В каком стандарте рекомендуется использовать эволюционный путь, который позволяет совершенствовать и постепенно повышать качество процессов и продуктов, вскрывать преимущества и недостатки предприятия?

а) ISO 15504

б) ISO 15505

в) ISO 15506

13. На каком уровне модели СММ происходит приближенная оценка процессов, размера работ, ресурсов и результатов?

а) оптимизационный

б) управляемый

в) реляционный

г) начальный

14. На каком уровне модели СММ происходит управление требованиями; планирование и мониторинг проекта; управление разработ­кой компонентов и конфигурацией, обеспечение качества, контроль процессов и продуктов?

а) оптимизационный

б) реляционный

в) управляемый

г) начальный

15. На каком уровне модели СММ происходит определение стандартного процесса; интегрированное управление проектом; компонентами и продуктами; верификация, валидация, контроль качества процессов и продуктов; управление ресурсами, рисками и контроль их; документирование процессов и продуктов?

а) определённый

б) оптимизационный

в) реляционный

г) начальный

16. На каком уровне модели СММ происходит измерение характеристик компонентов, продукта и процессов; количественное управление процессами, затратами и характе­ристиками качества; распределение, контроль и обеспечение процессов ресурсами; количественный контроль и управление рисками процессов, ресурсов и качества; контроль и управление поставкой продуктов?

а) оптимизационный

б) предсказуемый

в) непредсказуемый

г) определенный

17. На каком уровне модели СММ происходит управление изменением и качеством процессов; совершенствование качества и управления процессами и продуктами; непрерывное измерение и улучшение качества продуктов и процессов?

а) определенный

б) непредсказуемый

в) оптимизационный

г) предсказуемый

18. Сколько уровней зрелости в методологии СММ?

а) 4

б) 5

в) 6

г) 7

1. __________- упорядоченная совокупность служб, управляющих его деятельностью и взаимосвязями)

а) Управление предприятием;

б) Обеспечивать рациональное разделение труда;

в) Руководство производственного предприятия;

19. Установите соответствие:

1. Повторная применимость	а) это принцип, который болеевсего отличает программное средство от большинства других типовпромышленных продуктов.
2. Учет возможности изменений	б) является еще одним качеством структуры программного продукта, на которое заметно воздействуетпринцип возможность изменений
3. Программные модули	в) программные продукты создаются длярешения сложных задач управления и обработки информации
4. Комплексы программ	решают относительно небольшие функциональные задачи, и каждый реализуется 10-100 операторами языка г) программирования.

1-b;2-a;3-d;4-c

20. __________программ – программные продукты создаются для решения сложных задач управления и обработки информации

а) Зрелость

б) Комплексы

в) Качество

21. В каком стандарте описываются стандарты менеджмента программного продукта?

а) ISO 15288

б) ISO 9000

в) ISO 12207

22. В каких документах описаны Стандарты качества программных средств?

а) ISO 15288, ISO 14598,ISO 9000

б) ISO 9126, ISO 14598, ISO 15939

23. В каких документах описаны Стандарты интерфейсов Открытых систем?

а) ISO 15288

б) ISO 9000

в) ISO 9945

г) ISO 12207

24. Какой документ должна разработать Организация, которое должно включать: описание элементов системы менеджмента качества и их взаимосвязей; общесистемные процедуры или соответствующие ссыл­ки на них?

а) Руководство по качеству

б) Отчеты о качестве

25. Для демонстрации соответствия требованиям и эффективности функ­ционирования системы менеджмента качества должны вестись подходящие для организации __________:

а) Руководства по качеству

б) Отчеты о качестве

26. Какие данные для проектирования и разработки включают эксплуатационные требования заказчика или рынка; применяемые нормативные и законодательные требования; применяемые требования по охране окружающей среды?

а) Входные

б) Выходные

27. Что должно проводиться с целью подтверждения того, что конечная продукция способна отвечать требованиям для конк­ретных условий использования заказчиком?

а) Систематический анализ проекта

б) Модификация проекта

в) Утверждение проекта

г) Изменения проекта

.

28. Какой процесс необходим для оценки возможности выполнения требований к каче­ству; идентификации проблем — дефектов и выработки предложений по разработке решений для их устранения?

а) Систематический анализ проекта

б) Утверждение проекта

в) Изменения проекта

29. В каких документах описаны Стандарты жизненного цикла сложных систем и программных средств?

а) ISO 15288 и ISO 12207

б) ISO 15288 и ISO 9000

в) ISO 14598 и ISO 15939

Ответы:

1- б

2- А

3- Г

4- В

5- А

6- Б

7- В

8- Б

9- Б

10- Б

11- А

12- Б

13- В

14- Б

15- А

16- В

17- А

18- требованию

19- Требование

20- а,б

21- а,б,г

22- а,в,д

23- а,г

24- а,б,в,г

25- 1-б, 2-а

26- 1-в, 2-г,3-б, 3-д, 4-а

27- 1-б, 2-а,3-д,4-г

Дата добавления: 2015-06-28