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

7

Browse Source
This commit is contained in:
aNNiMON 2024-03-02 18:43:24 +02:00
parent 35682f8858
commit ae277f202b
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
PRAKTIKA.PAS
View File

@ -3,7 +3,7 @@ program pr;
var tmp_d, tmp_m : integer; {screen variables} var tmp_d, tmp_m : integer; {screen variables}
p,p1 : char; {readkey} p,p1 : char; {readkey}
y_wlcm : integer; {Vsplivayushii text} y_wlcm : integer; {Vsplivayushii text}
i : integer; {Vspomogatelnie peremennye} i,e : integer; {Vspomogatelnie peremennye}
cur : integer; {Posicia kursora v menu} cur : integer; {Posicia kursora v menu}
x,y, th : integer; {Peremennye dlya vyvoda teksta} x,y, th : integer; {Peremennye dlya vyvoda teksta}
ch, cf, ct : integer; {Peremennye dlya chtenia teksta} ch, cf, ct : integer; {Peremennye dlya chtenia teksta}
@ -16,7 +16,7 @@ program pr;
lectstatus,path,j: string; lectstatus,path,j: string;
mainmenu : array [1..22] of string; {menu} mainmenu : array [1..22] of string; {menu}
lines : array [1..30] of string; {readtext} lines : array [1..30] of string; {readtext}
test : array [1..4] of string; {readtest} test : array [1..5] of string; {readtest}
{Procedura inicializacii grafiki} {Procedura inicializacii grafiki}
procedure init_screen; procedure init_screen;
@ -34,6 +34,7 @@ program pr;
procedure menu ; forward; procedure menu ; forward;
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;
{Procedura inicializacii peremennyh} {Procedura inicializacii peremennyh}
procedure init_variables; procedure init_variables;
@ -50,7 +51,7 @@ program pr;
javame := 'JavaME'; javame := 'JavaME';
lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ ESC - Œ¥­î'; lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ 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\'} 'D:\TP\BIN\annimon\'; path := {'Y:\SCHOOL.PAK\2PO-07\'}'C:\BP\BIN\annimon\' {'D:\TP\BIN\annimon\'};
{Menu Lekcii} {Menu Lekcii}
for i:= 1 to 10 do for i:= 1 to 10 do
begin begin
@ -225,7 +226,7 @@ program pr;
outtextxy(x,20+i*ch,lines[i]); outtextxy(x,20+i*ch,lines[i]);
p1:=readkey; p1:=readkey;
until (p1=#27) or (p1=#116) or (p1=#59); until (p1=#27) or (p1=#116) or (p1=#59);
if(p1=#116) then question(lect); {T - Test} if(p1=#116) then question(lect) {T - Test}
else if(p1=#59) then help_screen; {F1 - Help} else if(p1=#59) then help_screen; {F1 - Help}
end; end;
@ -246,17 +247,17 @@ program pr;
repeat repeat
{Obrabotka klavish upravlenia} {Obrabotka klavish upravlenia}
if p1='b' then changebk {color background} if p1='b' then changebk {color background}
else if p1='n' then changetxt; {n - text color} else if p1='n' then changetxt {n - text color}
if(ord(p1)>48 and ord(p1)<52) then {1,2,3} else if (p1='1') or (p1='2') or (p1='3') then {1,2,3}
begin begin
if(p1=test[5]) inc(otv); if(p1=test[5]) then inc(otv);
end; end;
ui(tmp,lectstatus,cf); ui(tmp,lectstatus,cf);
{Otrisovka teksta} {Otrisovka teksta}
setcolor(ct); setcolor(ct);
settextstyle(2,0,5); settextstyle(2,0,5);
for j:=1 to 4 do for e:=1 to 4 do
outtextxy(x,20+j*ch,test[j]); outtextxy(x,20+e*ch,test[e]);
p1:=readkey; p1:=readkey;
until (p1=#27) or (p1='l') or (p1=#59); until (p1=#27) or (p1='l') or (p1=#59);
if(p1='l') then begin break; lections(tst); end; {L - Lecton} if(p1='l') then begin break; lections(tst); end; {L - Lecton}