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