Ngày tải lên :
27/11/2012, 11:41
... ** Chon so: '); readln(chon); window(1,1,80,25); end; procedure Nap_KH; begin FirstKH:=nil; end; procedure Nap_TK; begin FirstTK:=nil; end; procedure Nap_GDgui; begin FirstGui:=nil; end; procedure ... de ket thuc.'); readln; end; end; procedure Sua; var sohs:string[7]; ht:string[30]; dc:string[50]; cmt:string[9]; ngc:string[10]; ptrKH:khPointer; p: khPointer; tim:boolean; begin clrscr; window(18,4,80,25); ... FirstKH,LastKH,pKH,qKH:khPointer; FirstTK,LastTK,pTK,qTK:tkPointer; FirstGui,LastGui,pGui,qGui:guiPointer; FirstRut,LastRut,pRut,qRut:rutPointer; { CAC PROCEDURE } procedure Main_Menu(var chon:byte); begin clrscr; window(18,7,80,25);...