1
This commit is contained in:
commit
be3b753c4b
62
PRAKTIKA.PAS
Normal file
62
PRAKTIKA.PAS
Normal file
@ -0,0 +1,62 @@
|
|||||||
|
program pr;
|
||||||
|
uses crt, graph;
|
||||||
|
var tmp_d, tmp_m : integer; {screen variables}
|
||||||
|
p : char; {readkey}
|
||||||
|
y_wlcm : integer; {Vsplivayushii text}
|
||||||
|
javame : string;
|
||||||
|
|
||||||
|
{Procedura inicializacii grafiki}
|
||||||
|
procedure init_screen;
|
||||||
|
begin
|
||||||
|
tmp_d := detect;
|
||||||
|
initgraph(tmp_d, tmp_m, '');
|
||||||
|
end;
|
||||||
|
|
||||||
|
{Procedura inicializacii peremennyh}
|
||||||
|
procedure init_variables;
|
||||||
|
begin
|
||||||
|
y_wlcm := -20;
|
||||||
|
javame := 'JavaME';
|
||||||
|
end;
|
||||||
|
|
||||||
|
{Procedura vyvoda zastavki}
|
||||||
|
procedure helloscreen;
|
||||||
|
begin
|
||||||
|
init_screen;
|
||||||
|
repeat
|
||||||
|
setcolor(7);
|
||||||
|
bar(0,0,640,480);
|
||||||
|
settextstyle(1, 0, 7);
|
||||||
|
{vyvod texta Welcome s tenyu}
|
||||||
|
setcolor(green);
|
||||||
|
outtextxy(172, y_wlcm+2, 'Welcome');
|
||||||
|
setcolor(lightgreen);
|
||||||
|
outtextxy(170, y_wlcm, 'Welcome');
|
||||||
|
inc(y_wlcm);
|
||||||
|
{Vyvod imeni}
|
||||||
|
settextstyle(3, 0, 4);
|
||||||
|
setcolor(red);
|
||||||
|
outtextxy(y_wlcm*2-100, 171, 'Author: Victor aNNiMON Melnik');
|
||||||
|
setcolor(lightred);
|
||||||
|
outtextxy(y_wlcm*2-99, 170,'Author: Victor aNNiMON Melnik');
|
||||||
|
delay(1000);
|
||||||
|
until y_wlcm>100;
|
||||||
|
repeat until keypressed;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
{Glavnaya programma}
|
||||||
|
begin
|
||||||
|
helloscreen;
|
||||||
|
{
|
||||||
|
repeat p:= readkey;
|
||||||
|
setbkcolor(blue);
|
||||||
|
if(p=#72) then inc(colbk1);
|
||||||
|
if(p=#80) then colbk1:=colbk1-1;
|
||||||
|
if(colbk1<0) then colbk1 := 15;
|
||||||
|
if(colbk1>15) then colbk1 := 0;
|
||||||
|
|
||||||
|
until p=#27;
|
||||||
|
readkey; }
|
||||||
|
closegraph;
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user