увач може почати тестування. Він вибирає необхідну йому тему і починає тест. Час, що відводиться на кожне питання дорівнює 1 хвилині. Якщо користувач не встигає відповісти за даний час, програма автоматично переходить на наступне питання. p align="justify"> Після закінчення тесту, програма показує результат користувачеві. У вікні виводяться: кількість правильних і не правильних відповідей, а так само оцінка і середній бал. br/>
Додаток Г. Основний вид розробленої програми В«ТестуванняВ»
В
В
В
В
В
В
В
Додаток Д. Вихідний код програми В«ТестуванняВ»
unit MainForm; about,, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Menus, NameEntr, jpeg, of string;: array [1 .. max_otvetov] of string;; = class (TForm): TButton;: TButton;: TEdit;: TLabel;: TButton;: TMainMenu;: TLabel;: TMenuItem;: TMenuItem;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TImage; chtenie_voprosov; CancelClick (Sender: TObject); nachaloClick (Sender: TObject); vivod_voprosa; vivod_poley_voprosa; OtvetgotovClick (Sender: TObject); FormCreate (Sender: key: char);
{Private declarations} _voprosy: array [1 .. max_voprosov] of tvse_voprosy; _voprosy: array [1 .. voprosov_v_teste] of of boolean;: tstudents;: array [1 .. 200] of tstudents;;: TForm1;: tstrings;
{$ R *. dfm} tform1.proverka: boolean; file_db: textfile;, vsego_proshli: integer;: string; not then {n 103}: = 0; not (eof (file_db)) do {n {K 101} _proshli: = n; n: = 1 to vsego_proshli do {n 102} (students [n]. Name = student.name) and
(students [n]. familiya = student.familiya) then
begin ('Вибачте, ви вже проходили цей тест відійдіть від будь ласка від комп'ютера', mtinformation, [mbok], 0);
proverka: = true;;;; {k 102} {k 103} proverka: = false; (file_db);; tform1.otvetkeypress (sender: tobject; var key: char); key = # 13 '+ Student.name); (file_db,' Прізвище '+ student.familiya); (file_db,' Група '+ student.group); (file_db,' Дата '+ datetostr (date)); (file_db,' Час ' + timetostr (time)); (file_db, 'Результат' + student.resultat); (file_db, '');
{flush (file_db);} (file_db);; tform1.resultat: integer; i, kol_vo_pravilnyh: integer; _vo_pravilnyh: = 0; i: = 1 to voprosov_v_teste doform1.otvety_na_voprosy [i] and (b2) then: = put_k_voprosam1;; (b1) and (not (b2)) then: = put_k_voprosam1;; (b2) and (not (b1)) then: = put_k_voprosam2;; (not (b1)) and ( not (b2)) then
begin ('Не знайдений файл із питаннями');
<...
