7
This commit is contained in:
parent
35682f8858
commit
ae277f202b
23
PRAKTIKA.PAS
23
PRAKTIKA.PAS
@ -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
|
||||||
@ -162,7 +163,7 @@ program pr;
|
|||||||
for i:= numl to 30 do lines[i] := '';
|
for i:= numl to 30 do lines[i] := '';
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{Chtenie voprosov iz faila}
|
{Chtenie voprosov iz faila}
|
||||||
procedure readtlines;
|
procedure readtlines;
|
||||||
var numl : integer;
|
var numl : integer;
|
||||||
@ -225,10 +226,10 @@ 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;
|
||||||
|
|
||||||
{Procedura testirovania}
|
{Procedura testirovania}
|
||||||
procedure question(var tst:integer);
|
procedure question(var tst:integer);
|
||||||
begin
|
begin
|
||||||
@ -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}
|
||||||
|
Loading…
Reference in New Issue
Block a user