Ngày tải lên :
19/08/2013, 09:35
... fillellipse(320,240,640,480);
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);
... Writexyso(i*4-3,dong-4,159,f1[i]);Writexyso(j*4-3,dong+4,159,f2[j]);delay(tg);
End;
Procedure clrr;
end;
Until l = 7;
end;
procedure gt;
var
gd,gm,x,y,m,dem:integer;
procedure duongtron;
Var
x,y : Integer;
Begin
setlinestyle(0,0,1);
setfillstyle(1,4);
fillellipse(320,240,640,480);
... writexyso (l* 4-3,dong,47 ,l) ;
writexyso(r*4-3,dong,47,r);
end;
until i>j;
writexyso (l* 4-3,dong,old ,l) ;
writexyso(r*4-3,dong,old,r);
if l& lt;j then Sort (l, j);
l: =0;
case dc of
#80:if i<7...