в основне меню потрібно натиснути "вихід". p align="justify"> Кнопка "Контроль знань" (рис. 2) дозволяє перейти до виконання контрольного тесту, перед початком тесту потрібно ввести ім'я, натиснути кнопку "Почати тестування" (рис. 11).
В
Рис. 11
Контрольний тест містить 10 питань, але в кожний момент часу на екран виводиться тільки 1 питання. Після відповіді на питання до нього не можна буде повернутися. При оцінці контрольного тесту використовуються наступні критерії:
0% - 50% - не задовільно;
51% - 65% - задовільно;
66% - 89% - добре;
90% - 100% - відмінно.
Кнопка "Про програму" виводить додаткову інформацію про програму та її автора (рис. 12).
В
Рис. 12
Для того щоб вийти в основне меню, потрібно натиснути кнопку "Ok".
Висновок
У цій роботі досягнута поставлена ​​мета: про навчальних програмах в середовищі Delphi. Були розглянуті компоненти мови, опис процедур і функцій, середовище програмування Delphi. p align="justify"> Можна зробити загальний висновок: даний мову програмування унікальний. Він має безліч достоїнств перед іншими мовами програмування. Delphi один з найпоширеніших мов. p align="justify"> Зараз нікого не дивує той факт, що не тільки професійні програмісти, але навіть студенти можуть опанувати даним мовою. Подив або, принаймні, питання може викликати лише зовнішній вигляд мови. Відповідь на питання, яку мову програмування на сьогодні є більш перспективним можна сказати, що це Delphi. p align="justify"> На сьогоднішній день існує досить велика кількість мов програмування. Кожен з них має ряд переваг і недоліків, але можна з упевненістю сказати, що Delphi є лідером в середовищі програмування і ще пройде чимало часу, перш ніж з'явиться мову совершенней Delphi. br/>
Список використаних джерел
1. # "justify"> Додаток 1
Основне меню.
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls; = class (TForm): TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; New1Click (Sender: TObject); N21Click (Sender: TObject); Exit1Click (Sender: TObject); Help1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); About1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit7, Unit9, Unit8;
{$ R *. dfm} TForm1.New1Click (Sender: TObject);. show;. Hide;; TForm1.N21Click (Sender: TObject);. show;. Hide;; TForm1.Exit1Click (Sender: TObject);. Terminate;; TForm1.Help1Click (Sender: TObject);. show;...
