Програмування Pascal, Детальна інформація

str:='Студент групи КС-91';

outtextxy (120,120,str);

setcolor (10);

settextstyle (defaultfont,horizdir,2);

str:='Семенуха Сергiй Павлович';

outtextxy (120,140,str);

settextstyle (defaultfont,horizdir,1);

setcolor (11);

str:='semmy@chiti.uch.net';

outtextxy (120,220,str);

setcolor (12);

str:='20.V.2000';

outtextxy (500,220,str);

setcolor (red);

settextstyle (defaultfont,horizdir,1);

flash (180,30,502,45,0,12);

rep\x6165\x0D74\x6163\x6573\x7220\x6165\x6B64\x7965\x6F20\x0D66††\x2320\x3732›\x7865\x7469\x3D3A\x7274\x6575\x0D3B\x6E65\x3B64\x750D\x746E\x6C69\x6520\x6978\x3B74\x640D\x6172\x3B77\x720D\x6D61\x616B\x0D3B\x6E65\x3B64

{******************** Рисует курсор в матрице к задаче №1 **************}

procedure curpos (x1,y1,x,y:integer);

var xc,yc:integer;

begin

xc:=40+x1*10;

yc:=40+y1*10;

setcolor (0);

rectangle (xc,yc,xc+10,yc+10);

xc:=40+x*10;

yc:=40+y*10;

setcolor (10);

rectangle (xc,yc,xc+10,yc+10);

end;