9
This commit is contained in:
parent
096c99cd0b
commit
ba729d81c8
34
PRAKTIKA.PAS
34
PRAKTIKA.PAS
@ -12,6 +12,7 @@ program pr;
|
|||||||
f : text; {File lekcii}
|
f : text; {File lekcii}
|
||||||
th,tm,ts,tms : word; {∴•}
|
th,tm,ts,tms : word; {∴•}
|
||||||
t1,t2, tminim : longint; {∴•}
|
t1,t2, tminim : longint; {∴•}
|
||||||
|
ntt, mntt : integer;
|
||||||
javame, author,
|
javame, author,
|
||||||
welcome, dtpa, s,
|
welcome, dtpa, s,
|
||||||
menustatus, tmp,
|
menustatus, tmp,
|
||||||
@ -38,7 +39,7 @@ program pr;
|
|||||||
procedure lections(var lect:integer); forward;
|
procedure lections(var lect:integer); forward;
|
||||||
procedure ui(ttitle, tbar : string; back : integer); forward;
|
procedure ui(ttitle, tbar : string; back : integer); forward;
|
||||||
procedure question(var tst:integer); forward;
|
procedure question(var tst:integer); forward;
|
||||||
procedure marks(var pr_otv: integer); forward;
|
procedure marks(var pr_otv, num_otv: integer); forward;
|
||||||
|
|
||||||
{Procedura inicializacii peremennyh}
|
{Procedura inicializacii peremennyh}
|
||||||
procedure init_variables;
|
procedure init_variables;
|
||||||
@ -46,9 +47,11 @@ program pr;
|
|||||||
cf := 9;
|
cf := 9;
|
||||||
ct := 14;
|
ct := 14;
|
||||||
x := 20;
|
x := 20;
|
||||||
|
mntt := 20;
|
||||||
hgt := 400; {Vysota svobodnoy oblasti pri vyvode teksta}
|
hgt := 400; {Vysota svobodnoy oblasti pri vyvode teksta}
|
||||||
y_wlcm := -20;
|
y_wlcm := -20;
|
||||||
cur := 1;
|
cur := 1;
|
||||||
|
tminim := 2000000000;
|
||||||
author := '€¢â®à: ‚¨ªâ®à aNNiMON Œ¥«ì¨ª';
|
author := '€¢â®à: ‚¨ªâ®à aNNiMON Œ¥«ì¨ª';
|
||||||
dtpa := '„’<E2809E>€ 2<>Ž-07';
|
dtpa := '„’<E2809E>€ 2<>Ž-07';
|
||||||
welcome := '<27>ਢ¥âáâ¢ãî';
|
welcome := '<27>ਢ¥âáâ¢ãî';
|
||||||
@ -56,7 +59,7 @@ program pr;
|
|||||||
lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ ESC - Œ¥î';
|
lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ ESC - Œ¥î';
|
||||||
teststatus := 'F1 - <20>®¬®éì L - ‹¥ªæ¨¨ ESC - Œ¥î';
|
teststatus := 'F1 - <20>®¬®éì L - ‹¥ªæ¨¨ ESC - Œ¥î';
|
||||||
menustatus := 'ESC - ‚ë室 UP,DOWN,LEFT,RIGHT - <20>¥à¥¤¢¨¦¥¨¥ ªãàá®à ENTER - <20>¥à¥å®¤';
|
menustatus := 'ESC - ‚ë室 UP,DOWN,LEFT,RIGHT - <20>¥à¥¤¢¨¦¥¨¥ ªãàá®à ENTER - <20>¥à¥å®¤';
|
||||||
path := {'Y:\SCHOOL.PAK\2PO-07\'}'C:\BP\BIN\annimon\' {'D:\TP\BIN\annimon\'};
|
path := 'D:\TP\BIN\annimon\';
|
||||||
{Menu Lekcii}
|
{Menu Lekcii}
|
||||||
for i:= 1 to 10 do
|
for i:= 1 to 10 do
|
||||||
begin
|
begin
|
||||||
@ -144,7 +147,7 @@ program pr;
|
|||||||
bar(0, 0, 640, 18);
|
bar(0, 0, 640, 18);
|
||||||
setcolor(13);
|
setcolor(13);
|
||||||
settextstyle(2,0,6);
|
settextstyle(2,0,6);
|
||||||
outtextxy(320-TextWidth(title) div 2, 0, ttitle);
|
outtextxy(320-TextWidth(ttitle) div 2, 0, ttitle);
|
||||||
{Status}
|
{Status}
|
||||||
setfillstyle(1, 7);
|
setfillstyle(1, 7);
|
||||||
settextstyle(2,0,4);
|
settextstyle(2,0,4);
|
||||||
@ -256,7 +259,8 @@ program pr;
|
|||||||
readtlines;
|
readtlines;
|
||||||
repeat
|
repeat
|
||||||
{Obrabotka klavish upravlenia}
|
{Obrabotka klavish upravlenia}
|
||||||
ui('𤨎摵 #'+tmp+' <20>能桑 '+i,teststatus,cf);
|
str(i,j);
|
||||||
|
ui('’¥áâ #'+tmp+' ‚®¯à®á '+j,teststatus,cf);
|
||||||
{Otrisovka teksta}
|
{Otrisovka teksta}
|
||||||
setcolor(ct);
|
setcolor(ct);
|
||||||
settextstyle(2,0,5);
|
settextstyle(2,0,5);
|
||||||
@ -279,6 +283,12 @@ program pr;
|
|||||||
{End of test}
|
{End of test}
|
||||||
gettime (th,tm,ts,tms);
|
gettime (th,tm,ts,tms);
|
||||||
t2:=tms+ts*60+tm*3600+th*3600*60;
|
t2:=tms+ts*60+tm*3600+th*3600*60;
|
||||||
|
if((t2-t1)<tminim) then
|
||||||
|
begin
|
||||||
|
tminim:=t2-t1;
|
||||||
|
numtest:=nolect;
|
||||||
|
end;
|
||||||
|
|
||||||
if(i=nt) then marks(otv, nt);
|
if(i=nt) then marks(otv, nt);
|
||||||
|
|
||||||
end;
|
end;
|
||||||
@ -292,11 +302,25 @@ program pr;
|
|||||||
settextstyle(3,0,6);
|
settextstyle(3,0,6);
|
||||||
setcolor(ct);
|
setcolor(ct);
|
||||||
mrk := pr_otv * 100 div num_otv;
|
mrk := pr_otv * 100 div num_otv;
|
||||||
|
if(pr_otv<mntt) then
|
||||||
|
begin
|
||||||
|
mntt:=pr_otv;
|
||||||
|
ntt:=numtest;
|
||||||
|
end;
|
||||||
if(mrk<25) then out:='<27>¥ã¤®¢«¥â¢®à¨â¥«ì®'
|
if(mrk<25) then out:='<27>¥ã¤®¢«¥â¢®à¨â¥«ì®'
|
||||||
else if(mrk<50) then out:='“¤®¢«¥â¢®à¨â¥«ì®'
|
else if(mrk<50) then out:='“¤®¢«¥â¢®à¨â¥«ì®'
|
||||||
else if(mrk<75) then out:='•®à®ä® =)'
|
else if(mrk<75) then out:='•®à®ä® =)'
|
||||||
else out:='<27>à ¢®. <20>ïïïïª ^_^';
|
else out:='<27>à ¢®. <20>ïïïïª ^_^';
|
||||||
outtextxy(67,320-TextWidth(out) div 2,out);
|
outtextxy(320-TextWidth(out) div 2, 67 ,out);
|
||||||
|
settextstyle(2,0,5);
|
||||||
|
str((t2-t1)div 60, tmp);
|
||||||
|
outtextxy(60, 140, '<27> íâ®â â¥áâ ¢ë ®â¢¥ç «¨ '+tmp+' ᥪ');
|
||||||
|
str(numtest, tmp);
|
||||||
|
str(tminim div 60, j);
|
||||||
|
outtextxy(60, 160, '<27>®¬¥à á ¬®£® ¡ëáâண® â¥áâ - '+tmp+': '+j+' ᥪ');
|
||||||
|
str(ntt, tmp);
|
||||||
|
str(mntt, j);
|
||||||
|
outtextxy(60, 180, '<27>®¬¥à â¥áâ á ¬¨¨¬ «ìë¬ ª®«-¢®¬ ®â¢¥â®¢ - '+tmp+': '+j+' ®â¢¥â®¢');
|
||||||
repeat p:=readkey
|
repeat p:=readkey
|
||||||
until (p=#27);
|
until (p=#27);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user