ЗРАЗОК ОФОРМЛЕННЯ ЗВІТУ ПРО ВИКОНАНЯ ЛАБОРАТОРНОЇ РОБОТИ

 

Звіт до лабораторної роботи № 5__

"Розробка контролюючого модуля"

студента групи Ф-43

Прізвище ім'я

Завдання.Створити модуль контролю, на основі файлу тесту, створеного в лабораторній роботі 4.

Вікно модуля контролю має такий вигляд:

Після проведення контролю відкриється таке вікно:

Код програми, яка створена мовою програмування Object Pascal має такий вигляд:

unit Unit4;

interface

uses

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

Dialogs, Buttons, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

Panel1: TPanel;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton1: TSpeedButton;

RadioButton4: TRadioButton;

procedure FormActivate(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

var TestData: array[1..100,1..6] of string;

Qcount,Agood,CurTrue,i:integer;

implementation

{$R *.dfm}

procedure TForm4.FormActivate(Sender: TObject);

var f:textfile;

s:string;

begin

s:='informatyka.txt';

AssignFile(F,s);

Reset(F);

i:=1;

while not(eof(F)) do

begin

Readln(F, TestData[i,1]);

Readln(F, TestData[i,2]);

Readln(F, TestData[i,3]);

Readln(F, TestData[i,4]);

Readln(F, TestData[i,5]);

Readln(F, TestData[i,6]);

i:=i+1;

end;

CloseFile(F);

QCount:=i-1;

AGood:=0;

Label4.Caption:=IntToStr(AGood);

Label3.Caption:='1/'+IntToStr(QCount);

Panel1.Caption:=TestData[1,1];

RadioButton1.Caption:=TestData[1,2];

RadioButton2.Caption:=TestData[1,3];

RadioButton3.Caption:=TestData[1,4];

RadioButton4.Caption:=TestData[1,5];

CurTrue:=StrToInt(TestData[1,6]);

i:=1;

end;

procedure TForm4.SpeedButton1Click(Sender: TObject);

var nVidpovid:integer;

begin

if RadioButton1.Checked then nVidpovid:=1

else if RadioButton2.Checked then nVidpovid:=2

else if RadioButton3.Checked then nVidpovid:=3

else nVidpovid:=4;

if nVidpovid=CurTrue then AGood:=AGood+1;

i:=i+1;

if i<=QCount then

begin

Label4.Caption:=IntToStr(AGood);

Label3.Caption:=IntToStr(i)+'/'+IntToStr(QCount);

Panel1.Caption:=TestData[i,1];

RadioButton1.Caption:=TestData[i,2];

RadioButton2.Caption:=TestData[i,3];

RadioButton3.Caption:=TestData[i,4];

RadioButton4.Caption:=testData[i,5];

CurTrue:=StrToInt(TestData[i,6]);

RadioButton1.Checked:=FALSE;

RadioButton2.Checked:=FALSE;

RadioButton3.Checked:=FALSE;

radiobutton4.checked:=False;

SpeedButton1.Enabled:=FALSE;

Panel1.SetFocus

end

else

begin

Label4.Caption:=IntToStr(AGood);

ShowMessage('Тестування завершено. Дано правильних відповідей: '+IntToStr(AGood));

Form4.Close;

end;

end;

procedure TForm4.RadioButton1Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

procedure TForm4.RadioButton2Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

procedure TForm4.RadioButton3Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

procedure TForm4.RadioButton4Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

end;

 

end.

Висновок.Засобами мови програмування Object Pascal у системі візуального програмування Delphi створена універсальна програма для проведення тестування, яка не залежить від змісту, кількості тестових запитань і має зручний інтерфейс користувача.

Відповіді на контрольні запитання

1. …

2. ...

...