nghiên cứu sử dụng ngôn ngữ lập trình micosoft visual c và hệ quản trị csdl micosoft access để xây dựng hệ quản trị csdl dga phục vụ cđ mba phân cấp csdl dga theo tác giả tổ chức năm
... {trỏ g c cây} Hãy lập hàm: Function copy(T:tro):tro; Cho phép, với c g c trỏ T, lập (ở nhớ trong) cho lại địa g c Bài Với nhị phân khai báo 3, ta tiến hành duyệt theo giải thuật không đệ quy theo ... Nạp trái N vào danh sách Nạp phải N vào danh sách End; N; nó); (nếu c ); (nếu c ); Tuy nhiên, tùy theoc ch chọn nút N từ danh sách nào, mà ta thành lập giải thuật duyệt kh c nhau: - Giải thuật ... đồ sau, c danh sách tuyến tính để làm (c c trỏ tới) nút c n ghi nhớ Nạp (con trỏ) g c vào danh sách; While danh sách không rỗng Begin Lấy nút từ danh sách, gọi Thăm N (chẳng hạn in giátrị Nạp...
... biểu th c số h c infix nhị phân sau: - Cc nút chứa toán tử (+,-,*,/,#,↑) Trong # phép toán ↑ phép lũy thừa - Cc chứa toán hạng (số th c) - Mỗi nút c trường: Ctrai trỏ tới nút trái, Cphai trỏ ... Hãy viết khai báo (trong Pascal) cho b Giảsửc (xây dựng yêu c u trên), trỏ trỏ T Hãy viết hàm (Function) cho phép tính giátrị biểu th c tương ứng với Trình bày: Trần Hoài Nhân ... LoaiNut cho biết nút ứng với +,-,*,/,#,↑ hay toán hạng Nếu loại nút # c phải, loại nút toán hạng trái, phải nút c thêm trường chứa trị (Th c) toán hạng a Hãy viết khai báo (trong Pascal) cho b Giả...
... Đề 10 2/2 b Hãy khai báo Pascal trên, viết hàm (Function) cho phép tính giátrị trỏ bới trỏ T cho trư c (giả thiết TNIL) Trình bày: Trần Hoài Nhân ...
... Tiếptheo:danhsách; end; Một danh sách m c nối từđiển phải thứ tự (tăng dần) tất từ phải kh c b Viết thủ t c hiển thị tất từ hình theo thứ tự tăng dần c Viết thủ t c bổ sung từ mới, c ch đ c từ ... (dùng phép tìm kiếm danh sách m c nối chứa liệu tăng dần) - Nếu tìm thấy, hiểu thị thông báo “Đã c từ điển” - Nếu không tìm thấy, chèn vào Từđiển vị trí thích hợp Trình bày: Trần Hoài Nhân ...
... trỏ cb Hãy viết thủ t c dạng: Procedure chuyenBl(var d ,c: tro; db,cb,noiden:tro); Cho phép chuyển dời Bloc(db,cb) tới trư c dòng trỏ noiden danhsach(d ,c) , giảsử noiden không Bloc c Viết thủ t c: ... Viết thủ t c: Procedure chepBl(var d:tro; db,cb,noiden:tro); Cho phép chép (mà không hủy) Bloc(bd,cb) tới trư c dòng trỏ noiden danh sách c đầu d Giải sử noiden không Bloc Trình bày: Trần Hoài ... văn rỗng} a Viết thủ t c dạng: Procedure XenTruoc(var d:tro;p:tro;s:str80); Cho phép xen dòng với nội dung cho s vào trư cphần tử trỏ p danh sách c đầu d b Gọi Bloc(db,cb) khối liền dòng kể...
... Procedure Trich(author:str25; l:troloai; var tuyen:trosach); Nhằm trích từ thư viện cho t c phẩm thể loại t cgiả author (giả thiết t cgiảc tên kh c nhau) Cc t c phẩm tạo thành danh sách m c ... c , thêm vào danh sách m c nối tương ứng ghi sách vào cuối danh sách (chú ý kiểm tra so cuổn sách c danh sách chưa) Function CuNhat(var l:troloai):integer; Cho kết năm xuất sách đời sớm c thư ... viết chương trình con: Procedure Them(var l:troloai; lvuc,tensach,nguoi:str25; so,nam:integer); Cho phép th c thêm vào thư viện sách thu c thể loại lvuc c tên tensach, t cgiả nguoi viết vào năm...
... không Nếu n không thu c không giàc , n thu c thêm từ n với số trang tr vào cuối danh sách tương ứng, x c định chữ từ n Chú ý: không phân biệt chữ thường, chữ hoa Procedure trichyeu; Nhằm tìm 10 ... xuất cao In từ với từ dòng theo thứ tự giảm dần số lần xuất với tần xuất xuất tương ứng Procedure tach(tr:integer; var chidan1,chidan2:Index); Nhằm tách dẫn chidan cho thành dẫn con: - chidan1 ... khóa c số ≤tr cho - chidan2 bao gồm xuất từ khóa trang c số >tr cho Procedure Inchidan; Cho phép in theo qui c ch từ khóa với số trang tương ứng: ACM: 10 AIDS: 118 Antivirus: 13, 30 Block: 142...
... Procedure Them(n:str25;tr:integer); Th c công vi c kiểm tra xem từ n c thu c mảng từ khóa keyword cho trư c hay không Nếu n không thu c, không làm Nếu n thu c, thêm từ n với số trang tr vào cuối ... 2/2 Đề 19 Var chidan:index; Keyword:array[1 50]of str25; Hãy lập thủ t c thao t c danh sách hình: a b c Anglais 10 Brain Computer Anglais Block 10 × Connect 109 AIDS 30 AIDS Antivirus ... dánh sách tương ứng, x c định chữ n Chú ý: không phần biệt chữ thường, chữ hoa Procedure Sapxep; Nhằm xếp lại từ khóa danh sách dẫn theo thứ tự từ vựng c p (tên, trang): - Đầu tiên xếp theo thứ...
... cuối danh sách lớp nhớ trỏ Dau Procedure ketqua(dchuan:real; dau:tro; var do, truot:tro); Cho phép thông báo dánh sách h c sinh đỗ (c tổng điểm toán, lý, hóa lớn điểm chuẩn dchuan), danh sách ... danh sách trỏ biến dau Var dau:tro; Hãy viết chường trình con: Procedure Nhap(var dau:tro; sh:integer; name:alpha; t,l,h:real); Cho phép nhập số hiệu sh, tên h c sinh name, điểm toán, lý, hóa cho ... dchuan), danh sách trỏ bới trỏ danh sách h c sinh bị trượt, trỏ truot Yếu c u: Không chép lại phần tử danh sánh lớp h c sinh sang vùng nhớ danh sách cho Trình bày: Trần Hoài Nhân ...
... bư c i tiếp theo, dãy Wi tạo lậpc ch thay đồng thời dãy Wi-1 xuất a dãy kí hiệu a,b,a xuất b dãy kí hiệu b,b,b Ví dụ: Wo = a W1 = a,b,a W2 = a,b,a,b,b,b,a,b,a Viết chương trình th c công vi c ... c ng vi c sau đây: Function xdinh(n:interger):char; Nhằm x c định giátrịphần tử kn dãy Kanto K Ví dụ: với: n=0 k=a n=4 k=b n=9 k=b n=18 k=a Viết hai phương án: Đệ quy lặpTrình bày: Trần Hoài...
... Nut = record Gtri:integer; Trai,phai:tro; end; Var goc:tro; Hãy lập chương trình th c công vi c sau: Hàm Function CayTK(Goc:tro):boolean; cho phép kiểm tra xem c g c trỏ goc c phải nhị phân tìm ... 01 • Dòng chứa số n • N dòng tiếp theo, dòng chứa c p số ai, bi Và lưu vào c u tr c A X c định dãy Domino từ tập A cho X c định dãy Domino c số c p giátrị lớn Bài Cho khai báo nhị phân sau: ... hay không Chú ý: C y rỗng coi tìm kiếm Viết theo hai phương pháp đệ quy không đệ quy Trường hợp ban đầu tìm kiếm, viết thủ t c Procedure saplai(goc:tro); Cho phép tráo đổi nội dung nút c y, không...
... lý c số điện thoại DT thu c thành phố c tên Thpho khỏi danh sách đại lý Nếu thành phố c đại lý th c xóa đại lý đó, thành phố Thpho đồng thời bị loại khỏi danh sách thành phố Viết hàm: Function ... Viết hàm: Function DemDaiLy(First:TroTp):word; Trả số lượng đại lý toàn qu c Ghi chú: C n coi thi không giải thích thêm Trình bày: Trần Hoài Nhân ... ThanhPho = record TenThanhPho:st25; down: TroDL; Next: TroTP; end; var First:TroTP; {First trỏ đến đầu danh sách thành phố} Viết thủ t c: Procedure Xoa(Var First:TroTP; Thpho:St25; DT:St8); Cho phép...
... 2/2 Procedure LastSong(Name:St25); in lên hát đời năm cuối (trong danh sách) nh c sĩ c tên Name C u Cho chương trình viết theo Pascal sau: var x:integer; Procedure Them2Bot1(var ... inc(x,2); if y>0 then begin dec(y); Them2Bot1(x,y); end; writeln(x,y:4); end; BEGIN x:=5;Them2Bot1(x,x); END Hãy viết kết in th c chương trìnhC u Viết chương trình đ c vào số tự nhiên n, sau cho ... vào số tự nhiên n, sau cho in tất số nguyên tố không nhỏ không lớn hớn n Ghi chú: C n coi thi không giải thích thêm Trình bày: Trần Hoài Nhân ...
... t c: Procedure Bosung(ten:TroCLB; Club, Name:str25; t,m:byte); để bổ sung c u thủ c tên Name, t tuổi mang số áo m vào c u l c có tên Club Vi c bổ sung đu c th c trường hợp c u l c Club c chưa ... TroCT; end; TroCLB=^nut; Nut = record TenCLB:st25; First:TroCT; Left, Right:TroCLB; end; var top:TroCLB; a Viết thủ t c: Procedure List(Club:st25):byte; để in danh sách c u thủ c u l c có tên Club ... chưa cc u thủ c u l c mang số áo m c Viết thủ t c: Procedure Xoa(Club:st25; m:byte); để xoá c u thủ mang số áo m khỏi c u l c Club d Viết hàm: Function TuoiMin(Club:st25):byte; cho biết tuổi c u...
... Nếu c n tìm biết ngoại ngữ FL, thay đổi c p độ cc p độ Level trường hợp c p độ Level lớn c p độ c d Viết thủ t c: Procedure InDS(T:TroCB); Để in danh sách tất c n (theo thứ tự tăng dần tên c n ... rằng: • Vi ccập th c trường hợp cc n c tên Name Nếu không tìm c n c tên Name thông báo “Khong co can bo nay!” • Nếu c n tìm chưa biết ngữ FL, c n bổ sung thông tin vào đầu danh sách m c nối đơn ... Name:Str20); Để bổ sung c n vào T c trường Ten=Name DSNN=NIL c Viết thủ t c: Procedure CapNhat(T:TroCB; Name, FL:Str20; Level:Char); Đểc p nhật thông tin c n c tên Name biết ngoại ngữ FL với c p độ...
... ListOfSubjects(FirstT^.Down, BMaGV); End; * Định vị đến nút giáo viên c n tìm (c sửdụng danh sách tăng dần): 0,5 đ * Duyệt danh sách mã môn h c: 0,5 đ * In theo mẫu: 0,5 đ Procedure ListOfTeachers(FirstT: ... viên: 0,5 đ * In theo mẫu: 1,0 đ C u 3: 4,5 đ a) 1,5 đ Function Muc(Top, p: TroNutTrenCay):Word ; Function Cha(Top, p: TroNutTrenCay):TroNutTrenCay; Begin If (Top=nil)or(Top=p) then Cha:=nil else ... Cha:=Top else if Cha(Top^.Left, p)nil then Cha:=Cha(Top^.Left, p) else Cha:= Cha(Top^.Right, p); End; Nguyễn Lý Hữu Huấn Begin If Top=nil then Muc:=0 else If p=Top then Muc:=1 else Muc:=Muc(Top,...
... thu c danh sách FirstS c mã môn h c BMaMH, trả giátrị NIL nút c mã môn h c BMaMH b Đểquản lý môn h cphânc ng giảng dạy giáo viên, người ta lại sửdụng danh sách liên kết đơn (gọi danh sách ... Left,Right:TroNutTrenCay; end; var Top:TroNutTrenCay; a Viết hàm Function Muc(Top,p:TroNutTrenCay):word; trả giátrị m c (level) nút thu c nhị phân Top trỏ trỏ P b Để biểu diễn hàng đợi, người ta sửdụng danh sách ... môn h c có mã môn h c BMaM theo mẫu sau: STT … Họ tên giáo viên … C u Cho trư c nhị phân Top (nút g c trỏ Top) c khai báo sau: type TroNutTrenCay = ^NutTrenCay; NutTrenCay = record Value:integer;...
... trị NIL danh sách P môn h c có tên Subject c Viết thủ t c: Procedure Bosung(F: TroHV; Name,Subject:st20); Để bổ sung h c viên c tên Name vào danh sách F chưa c h c viên h c viên c danh sách ... danh sách môn h c đăng ký ban đầu gồm môn h c Subject Nếu c h c viên này, bổ sung môn h c có tên Subject vào cuối danh sách môn h c h c viên đó, môn h c chưa c danh sách; ngưc lại, không làm ... Viết thủ t c: Procedure Capnhat(F: TroHV; Name,Subject:st20; Mark:byte); Đểc p nhật điểm thi Mark môn h c Subject cho h c viên Name Nếu không tìm thấy h c viên Name th c vi c bổ sung h c viên Name...
... Integer cho kết số nút T cgiátrị trường Muc Level C u 4: a) Viết thủ t c xếp mảng số nguyên theo kiểu lựa chọn ngônngữlậptrình Pascal b) Tại thời gian th c thuật toán xếp lựa chọn đ clập với ... TroNut; {lưu m c nút T} {lưu địa nút trái phải} a) Viết thủ t c TinhMuc(T: TroNut) nhằm thay giátrị trường Muc nút T m c tương ứng nút b) Giảsửgiátrị trường Muc tất nút T x c định Viết hàm ... vào cuối danh sách hàm liên quan với hàm TH2, với điều kiện tên hàm TH1 TH2 c danh sách F C u 3: Cho nhị phân T (nút g c trỏ T) c khai báo sau: Type TroNut = ^Nut; Nut = Record Muc: Byte; Left,...
... dòng cuối cb Viết thủ t c Chepkhoi(Var: Dau: Tro; db, cb, Noiden: Tro) cho phép chép khối (db, cb) tới trư c dòng trỏ Noiden danh sách trỏ Dau Giảsử Noiden không khối (db, cb) C u 3: Cho nhị phân ... vi c xếp th ctheo kiểu bọt c) Giảsử dãy gồm n số liệu, trường hợp xấu (chương trình phải th c vi c hoán đổi nhiều nhất) thuật toán xếp theo kiểu bọt giải thích sao? Tính số lần th c vi c hoán ... xếp theo thứ tự tăng dần mảng số nguyên theo kiểu bọt (bubble sort) ngônngữlậptrình Pascal b) Xét dãy số sau: 4, 7, 2, 5, Hãy cho biết diễn biến dãy số (sự thay đổi l c có hoán đổi giá trị) ...