Ngày tải lên: 23/12/2013, 20:15
KÊ HOÁ ĐƠN HÀNG HOÁ, DỊCH VỤ BÁN RA CHỊU THUẾ TIÊU THỤ ĐẶC BIỆT
Ngày tải lên: 24/09/2012, 17:58
BẢNG KÊ HOÁ ĐƠN HÀNG HOÁ, DỊCH VỤ MUA VÀO CHỊU THUẾ TIÊU THỤ ĐẶC BIỆT
Ngày tải lên: 24/09/2012, 17:58
Đồ hoạ phẳng & Đồ hoạ không gian
... Menu_doc(K:Integer); Var Ten_Muc:array[1 6] of string; I,Rong,Cao,a,b:integer; Begin Ten_Muc[1]:=&apos ;Do thi bac3/bac1'; Ten_Muc[2]:=&apos ;Do thi tham so'; Ten_Muc[3]:=&apos ;Do thi ... Xem_ve; End; {************Cac thu tuc ve Menu******************} Procedure Chon_Doc; Var TT:integer; Begin Menu_doc(tt); While true do Begin Ch:=readkey; Case Ch of #72 :Begin tt:=tt-1; if tt<1 ... 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); ...
Ngày tải lên: 26/01/2013, 10:48
Bạn có muốn tìm thêm với từ khóa: