Ngày tải lên :
19/08/2013, 09:35
... setcolor(123);settextstyle(2,0,6);outtextxy(400,175,'HUYNH DUONG
TRUNG TRUC');
setcolor (11) ;
settextstyle(4,0,2);outtextxy(getmaxx-130,getmaxy-90,'DO AN');
setcolor (11) ;
settextstyle(4,0,2);outtextxy(getmaxx-150,getmaxy-60,'TIN ... sodiem do
lineto(x[i],y[i]);
End;
Begin
randomize;
gd:=detect;
initgraph (gd,gm,'D:/turbo pascal/ BGI');
if graphresult<>grOK then Exit;
maxx:=getmaxx;
maxy:=getmaxy;
setbkcolor(blue);
... setfillstyle(1,12);
fillellipse(120,360,65,65);
setfillstyle(1,16);
fillellipse(105,335,57,57);
setfillstyle(1 ,11) ;
fillellipse(105,389,54,54);
setfillstyle(1,14);
fillellipse(105,360,51,51);
settextstyle(4,0,1);
...