Ngày tải lên :
25/07/2013, 21:19
... Chu_Bong(C1+190,h1+50,8,0,4,Lightred,cyan,4,'KHOA CNTT');} Chu_Bong(C1+90,h1+30,7,0,4,14,cyan,3, 'BAI TAP LON MON'); Chu_Bong(C1+260,h1+80,7,0,4,14,cyan,3,'KY THUAT DO HOA'); Chu_Bong(C1+50,H1+170,4,0,4,10,lightred,3,'GIAO VIEN: ... {*******************************} Procedure Menu_doc(K:Integer); Var Ten_Muc:array[1 6] of string; I,Rong,Cao,a,b:integer; Begin Ten_Muc[1]:= 'Do thi bac3/bac1'; Ten_Muc[2]:= 'Do thi tham so'; Ten_Muc[3]:= 'Do thi cuc'; Ten_Muc[4]:='Round ... Beep; Ve _Do_ Thi_Tham_so(c1,h1,c2,h2); End; 3:Begin Beep; Ve_Doc_cuc(c1,h1,c2,h2,Mau); End; 4:Begin Beep; Star; ttn:=1; Beep; End; 5:Begin Beep; Da_Dien_Deu; Beep; ClearDevice; Menu_Doc(tt); end;...