university-projects/praktika-pascal-2PO07
1
0
Fork 0
Code Releases 1 Activity

9

Browse Source
This commit is contained in:
aNNiMON 2024-03-02 18:43:48 +02:00
parent 096c99cd0b
commit ba729d81c8
1 changed files with 35 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
PRAKTIKA.PAS
View File

@ -5,13 +5,14 @@ program pr;
y_wlcm : integer; {Vsplivayushii text}
i,e,nlect : integer; {Vspomogatelnie peremennye}
cur : integer; {Posicia kursora v menu}
x,y, hgt : integer; {Peremennye dlya vyvoda teksta}
x,y, hgt : integer; {Peremennye dlya vyvoda teksta}
ch, cf, ct : integer; {Peremennye dlya chtenia teksta}
nolect : integer; {Nomer lekcii}
numtest, otv : integer; {Test}
f : text; {File lekcii}
th,tm,ts,tms : word; {∴•}
t1,t2, tminim : longint; {∴•}
ntt, mntt : integer;
javame, author,
welcome, dtpa, s,
menustatus, tmp,
@ -38,7 +39,7 @@ program pr;
procedure lections(var lect:integer); forward;
procedure ui(ttitle, tbar : string; back : 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}
procedure init_variables;
@ -46,9 +47,11 @@ program pr;
cf := 9;
ct := 14;
x := 20;
hgt := 400; {Vysota svobodnoy oblasti pri vyvode teksta}
mntt := 20;
hgt := 400; {Vysota svobodnoy oblasti pri vyvode teksta}
y_wlcm := -20;
cur := 1;
tminim := 2000000000;
author := '€¢â®à: ‚¨ªâ®à aNNiMON Œ¥«ì­¨ª';
dtpa := '„’<E2809E>€ 2<>Ž-07';
welcome := '<27>ਢ¥âáâ¢ãî';
@ -56,7 +59,7 @@ program pr;
lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ ESC - Œ¥­î';
teststatus := 'F1 - <20>®¬®éì L - ‹¥ªæ¨¨ ESC - Œ¥­î';
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}
for i:= 1 to 10 do
begin
@ -144,7 +147,7 @@ program pr;
bar(0, 0, 640, 18);
setcolor(13);
settextstyle(2,0,6);
outtextxy(320-TextWidth(title) div 2, 0, ttitle);
outtextxy(320-TextWidth(ttitle) div 2, 0, ttitle);
{Status}
setfillstyle(1, 7);
settextstyle(2,0,4);
@ -256,7 +259,8 @@ program pr;
readtlines;
repeat
{Obrabotka klavish upravlenia}
ui('’¥áâ #'+tmp+' ‚®¯à®á '+i,teststatus,cf);
str(i,j);
ui('’¥áâ #'+tmp+' ‚®¯à®á '+j,teststatus,cf);
{Otrisovka teksta}
setcolor(ct);
settextstyle(2,0,5);
@ -279,6 +283,12 @@ program pr;
{End of test}
gettime (th,tm,ts,tms);
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);
end;
@ -286,17 +296,31 @@ program pr;
{Procedura vyvoda ocenok}
procedure marks(var pr_otv, num_otv: integer);
var out: string;
mrk: integer;
mrk: integer;
begin
ui('Žæ¥­ª ','',cf);
settextstyle(3,0,6);
setcolor(ct);
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>¥ã¤®¢«¥â¢®à¨â¥«ì­®'
else if(mrk<50) then out:='“¤®¢«¥â¢®à¨â¥«ì­®'
else if(mrk<75) then out:='•®à®ä® =)'
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
until (p=#27);
end;