Список используемых источников

Нормативная документация.

• 1. ГОСТ 19.104−78. Единая система программной документации. Основные надписи. — Введ. 81−07−01. — М.: Издательство стандартов, 2001.
• 2. ГОСТ 19.106−78. Единая система программной документации. Требования к программным документам, выполненным печатным способом. — Введ 81−07−01. — М.: Изд-во стандартов, 2001.
• 3. ГОСТ 19.201−78 Техническое задание. Требования к содержанию и оформлению. — Введ. 81−07−01. — М.: Издательство стандартов, 2001.
• 4. ГОСТ 19.301−2000 ЕСПД. Руководство оператора. — М.: Издательство стандартов, 2001.
• 5. ГОСТ 19.402−2000 ЕСПД. Описание программы. — М.: Издательство стандартов, 2001.
• 6. ГОСТ 19.701−90 ЕСПД. Схемы алгоритмов, программ, данных и систем. — Введ 01−01−92. — М.: Изд-во стандартов, 2001.

Основная литература:

• 7. Архангельский. А. Я. Программирование в С++ Builder 6 / Л. Я. Архангельский. — М.: Бином, 2002.
• 8. Демидович, Е. М. Основы алгоритмизации и программирования. Язык СИ: пособие для студентов БГУИР / Е. М. Демидович. — Мн.: Бестпринт, 2004. — 3S0 с.
• 9. Савитч, У. Язык С++. Курс обьектно-ориентированного программирования / У. Савитч. — М.: Вильяме, 2001. — 696 с.

Дополнительная литература:

• 10. Леоненков. Л. В. Самоучитель UML / Л. В. Леоненков. СПб.: БХВ-Петербург, 2002. — 304 с.
• 11. Тимофеев. В. В. Программирование в С++ Builder 5 / В. В. Тимофеев. — М.: Бином. 2000. — 360 с.
• 12. http://cppstudio.com/post/389/
• 13. http://sibac.info/studconf/social/xiv/35 000
• 14. https://habrahabr.ru/post/279 535/

Приложение А

Блок-схема программы.

Приложение Б

Текст программы.

Form № 1:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit1.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm1 *Form1;

//—————————————————————————————————————;

__fastcall TForm1: TForm1(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

void __fastcall TForm1: SpeedButton1Click (TObject *Sender).

{.

Form1->Close (); // Обработка выхода из программы.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm1: SpeedButton2Click (TObject *Sender).

{.

Form1->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие следующей формы.

}.

//—————————————————————————————————————;

Form № 2:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit2.h» // Подключение к проекту файла с кодом.

#include «Unit3.h» // Подключение к проекту файла с кодом.

#include «Unit4.h» // Подключение к проекту файла с кодом.

#include «Unit7.h» // Подключение к проекту файла с кодом.

#include «Unit5.h» // Подключение к проекту файла с кодом.

#include «Unit6.h» // Подключение к проекту файла с кодом.

#include «Unit8.h» // Подключение к проекту файла с кодом.

#include «Unit9.h» // Подключение к проекту файла с кодом.

#include «Unit10.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm2 *Form2;

//—————————————————————————————————————;

__fastcall TForm2: TForm2(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm2: SpeedButton3Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form3->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: SpeedButton1Click (TObject *Sender).

{.

Form2->Close (); // Обработка выхода из программы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: SpeedButton5Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form4->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: SpeedButton4Click (TObject *Sender).

{.

Form8->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: SpeedButton6Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form5->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: SpeedButton2Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form9->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: N5Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form3->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: N6Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form4->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: N7Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form5->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: N8Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form6->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: N9Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form7->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm2: N3Click (TObject *Sender).

{.

Form10->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

Form № 3:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit3.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

#include «Unit1.h» // Подключение к проекту файла с кодом.

#include «Unit10.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm3 *Form3;

Variant ap;

Variant d;

//—————————————————————————————————————;

__fastcall TForm3: TForm3(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm3: SpeedButton1Click (TObject *Sender).

{.

Form3->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по нажатию кнопки.

void __fastcall TForm3: SpeedButton3Click (TObject *Sender).

{ Image2->Picture->LoadFromFile («Images/Теория/понятие массива. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm3: ComboBox1Click (TObject *Sender).

{.

if (ComboBox1->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/понятие сорт. jpg»);

if (ComboBox1->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/пузырь.jpg»);

if (ComboBox1->ItemIndex == 2).

Image2->Picture->LoadFromFile («Images/Теория/метод прост. jpg»);

if (ComboBox1->ItemIndex == 3).

Image2->Picture->LoadFromFile («Images/Теория/сорт встав. jpg»);

if (ComboBox1->ItemIndex == 4).

Image2->Picture->LoadFromFile («Images/Теория/шелл.jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по нажатию кнопки.

void __fastcall TForm3: FormClose (TObject *Sender, TCloseAction &Action).

{.

Form1->Close (); // Обработка выхода из программы.

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по нажатию кнопки.

void __fastcall TForm3: SpeedButton5Click (TObject *Sender).

{.

Image2->Picture->LoadFromFile («Images/Теория/одн масс. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по нажатию кнопки.

void __fastcall TForm3: SpeedButton6Click (TObject *Sender).

{.

Image2->Picture->LoadFromFile («Images/Теория/дву масс. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по нажатию кнопки.

void __fastcall TForm3: SpeedButton7Click (TObject *Sender).

{.

Image2->Picture->LoadFromFile («Images/Теория/иниц.jpg»);

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm3: N1Click (TObject *Sender).

{.

Form3->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm3: N3Click (TObject *Sender).

{.

Form3->Close (); // Обработка выхода из программы.

}.

//—————————————————————————————————————;

// Открытие нужной формы.

void __fastcall TForm3: SpeedButton2Click (TObject *Sender).

{.

Form10->Show ();

}.

//—————————————————————————————————————;

Form № 4:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit4.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

#include «Unit10.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm4 *Form4;

//—————————————————————————————————————;

__fastcall TForm4: TForm4(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm4: SpeedButton1Click (TObject *Sender).

{.

Form4->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm4: ComboBox1Click (TObject *Sender).

{.

if (ComboBox1->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/ввод одн масс. jpg»);

if (ComboBox1->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/ввод двум масс. jpg»);

if (ComboBox1->ItemIndex == 2).

Image2->Picture->LoadFromFile («Images/Теория/ввод ранд. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm4: ComboBox2Click (TObject *Sender).

{.

if (ComboBox2->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/вывод одн масс. jpg»);

if (ComboBox2->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/вывод двум масс. jpg»);

if (ComboBox2->ItemIndex == 2).

Image2->Picture->LoadFromFile («Images/Теория/вывод ранд. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm4: ComboBox3Click (TObject *Sender).

{.

if (ComboBox3->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/сумм всех эл массива. jpg»);

if (ComboBox3->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/сумм полож эл. jpg»);

if (ComboBox3->ItemIndex == 2).

Image2->Picture->LoadFromFile («Images/Теория/сумм эл кратных числу. jpg»);

if (ComboBox3->ItemIndex == 3).

Image2->Picture->LoadFromFile («Images/Теория/сумм эл гл диаг. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm4: ComboBox4Click (TObject *Sender).

{.

if (ComboBox4->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/колво эл больше числа. jpg»);

if (ComboBox4->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/колво отриц эл поб диаг. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm4: ComboBox6Click (TObject *Sender).

{.

if (ComboBox6->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/поиск макс эл. jpg»);

if (ComboBox6->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/поиск полож эл. jpg»);

}.

//—————————————————————————————————————;

// Процедура загрузки требуемого изображения по строкам выпадающего списка.

void __fastcall TForm4: ComboBox5Click (TObject *Sender).

{.

if (ComboBox5->ItemIndex == 0).

Image2->Picture->LoadFromFile («Images/Теория/пузырёк.jpg»);

if (ComboBox5->ItemIndex == 1).

Image2->Picture->LoadFromFile («Images/Теория/выбор.jpg»);

if (ComboBox5->ItemIndex == 2).

Image2->Picture->LoadFromFile («Images/Теория/встав.jpg»);

if (ComboBox5->ItemIndex == 3).

Image2->Picture->LoadFromFile («Images/Теория/шел.jpg»);

}.

//—————————————————————————————————————;

void __fastcall TForm4: SpeedButton2Click (TObject *Sender).

{.

Form10->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

Form № 5:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit5.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

#include «Unit10.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm5 *Form5;

//—————————————————————————————————————;

__fastcall TForm5: TForm5(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm5: SpeedButton1Click (TObject *Sender).

{.

Form5->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вверх.

void __fastcall TForm5: ScrollBox2MouseWheelDown (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox2->VertScrollBar->Position = ScrollBox2->VertScrollBar->Position+13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вниз.

void __fastcall TForm5: ScrollBox2MouseWheelUp (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox2->VertScrollBar->Position = ScrollBox2->VertScrollBar->Position-13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вверх.

void __fastcall TForm5: ScrollBox1MouseWheelDown (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox2->VertScrollBar->Position = ScrollBox2->VertScrollBar->Position+13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вниз.

void __fastcall TForm5: ScrollBox1MouseWheelUp (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox2->VertScrollBar->Position = ScrollBox2->VertScrollBar->Position-13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вверх.

void __fastcall TForm5: ScrollBox3MouseWheelDown (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox3->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position+13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вниз.

void __fastcall TForm5: ScrollBox3MouseWheelUp (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox3->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position-13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вверх.

void __fastcall TForm5: ScrollBox5MouseWheelDown (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm6 *Form6;

int n=0;

//—————————————————————————————————————;

__fastcall TForm6: TForm6(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

void __fastcall TForm6: Button1Click (TObject *Sender).

{.

// Подведение результатов теста.

if (RadioGroup1->ItemIndex==3) {n++; // Если пользователь дал правильный ответ.

RadioGroup1->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup1->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else // Иначе.

RadioGroup1->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup1->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup2->ItemIndex==1) {n++; // Если пользователь дал правильный ответ.

RadioGroup2->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup2->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup2->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup2->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup3->ItemIndex==0) {n++; // Если пользователь дал правильный ответ.

RadioGroup3->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup3->Controls[0])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup3->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup3->Controls[0])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup4->ItemIndex==2) {n++; // Если пользователь дал правильный ответ.

RadioGroup4->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup4->Controls[2])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup4->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup4->Controls[2])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup5->ItemIndex==3) {n++; // Если пользователь дал правильный ответ.

RadioGroup5->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup5->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup5->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup5->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (n==5).

{ Label1->Caption="Вы ответили на все вопросы правильно!!!" ;} // Вывод результата теста.

if (n==4).

{ Label1->Caption="Вы ответили правильно на 4 вопроса!!!" ;} // Вывод результата теста.

if (n==3).

{ Label1->Caption="Вы ответили правильно на 3 вопроса!!!" ;} // Вывод результата теста.

if (n==2).

{ Label1->Caption="Вы ответили правильно на 2 вопроса!!!" ;} // Вывод результата теста.

if (n==1).

{ Label1->Caption="Вы ответили правильно на 1 вопрос!!!" ;} // Вывод результата теста.

if (n<1).

{ Label1->Caption="Вы ответили на все вопросы неправильно!!" ;} // Вывод результата теста.

Button1->Enabled=False;

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm6: SpeedButton1Click (TObject *Sender).

{.

Form6->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вверх.

void __fastcall TForm6: ScrollBox1MouseWheelDown (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position+13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вниз.

void __fastcall TForm6: ScrollBox1MouseWheelUp (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position-13;

}.

//—————————————————————————————————————;

Form № 7:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit7.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm7 *Form7;

//—————————————————————————————————————;

__fastcall TForm7: TForm7(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Подведение результатов теста.

void __fastcall TForm7: Button1Click (TObject *Sender).

{.

int n=0;

if (RadioGroup1->ItemIndex==3) {n++; // Если пользователь дал правильный ответ.

RadioGroup1->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup1->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup1->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup1->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup2->ItemIndex==4) {n++; // Если пользователь дал правильный ответ.

RadioGroup2->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup2->Controls[4])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup2->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup2->Controls[4])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup3->ItemIndex==1) {n++; // Если пользователь дал правильный ответ.

RadioGroup3->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup3->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup3->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup3->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup4->ItemIndex==2) {n++; // Если пользователь дал правильный ответ.

RadioGroup4->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup4->Controls[2])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup4->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup4->Controls[2])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup5->ItemIndex==3) {n++; // Если пользователь дал правильный ответ.

RadioGroup5->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup5->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup5->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup5->Controls[3])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup6->ItemIndex==1) {n++; // Если пользователь дал правильный ответ.

RadioGroup6->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup6->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup6->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup6->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup7->ItemIndex==0) {n++; // Если пользователь дал правильный ответ.

RadioGroup7->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup7->Controls[0])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup7->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup7->Controls[0])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup8->ItemIndex==4) {n++; // Если пользователь дал правильный ответ.

RadioGroup8->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup8->Controls[4])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup8->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup8->Controls[4])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup9->ItemIndex==1) {n++; // Если пользователь дал правильный ответ.

RadioGroup9->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup9->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup9->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup9->Controls[1])->Font->Color = clGreen; // Демонстрация правильного ответа.

if (RadioGroup10->ItemIndex==2) {n++; // Если пользователь дал правильный ответ.

RadioGroup10->Color = clMoneyGreen; // Выделение всего поля зелёным цветом.

dynamic_cast (RadioGroup10->Controls[2])->Font->Color = clGreen; // Демонстрация правильного ответа.

}.

else.

RadioGroup10->Color = clActiveBorder; // Выделение всего поля становится тёмно-серым.

dynamic_cast (RadioGroup10->Controls[2])->Font->Color = clGreen; // Демонстрация правильного ответа.

if ((n==10)||(n==9)).

{ Label12->Caption="Вы отлично владеете знаниями!!!" ;} // Вывод результата теста.

if ((n==8)||(n==7)).

{ Label12->Caption="Вы хорошо владеете знаниями!!!" ;} // Вывод результата теста.

if ((n==6)||(n==5)).

{ Label12->Caption="Вы неплохо владеете знаниями!!!" ;} // Вывод результата теста.

if (n<5).

{ Label12->Caption="Вы плохо владеете знаниями!!!" ;} // Вывод результата теста.

Button1->Enabled=False;

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm7: SpeedButton1Click (TObject *Sender).

{.

Form7->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вверх.

void __fastcall TForm7: ScrollBox1MouseWheelDown (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position+13;

}.

//—————————————————————————————————————;

// Обработка прокрутки SkrollBar вниз.

void __fastcall TForm7: ScrollBox1MouseWheelUp (TObject *Sender,.

TShiftState Shift, TPoint &MousePos, bool &Handled).

{.

ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position-13;

}.

//—————————————————————————————————————;

void __fastcall TForm7: Button2Click (TObject *Sender).

{.

Form7->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

Form № 8:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit8.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

#include «Unit6.h» // Подключение к проекту файла с кодом.

#include «Unit7.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm8 *Form8;

//—————————————————————————————————————;

__fastcall TForm8: TForm8(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm8: SpeedButton1Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form8->Hide (); // Скрытие текущей формы.

Form6->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm8: SpeedButton2Click (TObject *Sender).

{.

Form2->Hide (); // Скрытие текущей формы.

Form8->Hide (); // Скрытие текущей формы.

Form7->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

void __fastcall TForm8: SpeedButton3Click (TObject *Sender).

{.

Close (); // Закрытие формы.

}.

//—————————————————————————————————————;

Form № 9:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit9.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm9 *Form9;

//—————————————————————————————————————;

__fastcall TForm9: TForm9(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

// Пререход на следующую форму.

void __fastcall TForm9: SpeedButton1Click (TObject *Sender).

{.

Form9->Hide (); // Скрытие текущей формы.

Form2->Show (); // Открытие нужной формы.

}.

//—————————————————————————————————————;

Form № 10:

#include // Загрузка стартовой библиотеки С++ Builder.

#pragma hdrstop // Автоматически создаваемая строка.

#include «Unit10.h» // Подключение к проекту файла с кодом.

#include «Unit2.h» // Подключение к проекту файла с кодом.

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» // Подключение ресурсов форм.

TForm10 *Form10;

//—————————————————————————————————————;

__fastcall TForm10: TForm10(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

void __fastcall TForm10: SpeedButton1Click (TObject *Sender).

{.

Form10->Close (); // Закрытие формы.

}.

//—————————————————————————————————————;