Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

var

Form5: TForm5;

ocinka,k,i:integer;

KtBal:real;

a,a1:TTime;

implementation

uses Unit1, Unit2, Unit4, Unit6;

{$R *.dfm}

procedure GiveOcinka;

begin

KtBal:=k*100/StrToInt(Form2.Edit1.Text);

if (KtBal<=100) and (KtBal>=95) then ocinka:=5

else

if (KtBal<=94) and (KtBal>=76) then ocinka:=4

else

if (KtBal<=75) and (KtBal>=60) then ocinka:=3

else ocinka:=2;

end;

procedure ShowOcinka;

begin

Form5.Hide;

Form6.Label1.Caption:=Form4.Edit1.Text+' '+Form4.Edit2.Text;

Form6.Label2.Caption:='група '+Form4.Edit3.Text;

Form6.Label3.Caption:='кiлькicть питань: '+IntToStr(i-1)+'/'+Form2.Edit1.Text;

Form6.Label4.Caption:='кiлькicть правильних вiдпoвiдей: '+IntToStr(k)+'/'+Form2.Edit1.Text;

Form6.Label5.Caption:='чаc вiдведений на теcт: '+Form2.Edit2.Text+' хв.';

Form6.Label6.Caption:=IntToStr(ocinka);

Form6.Label7.Caption:='ВАША OЦIНКА';

Form6.Show;