Đề tài thực tập tốt nghiệp chuyên ngành công nghệ thông tin

Cần tổ chức một chỉ dẫn các danh sách từ riêng xuất hiện trong một cuốn sách theo quy cách sau:An: 1, 20, 40, 215Nam: 10, 145, 320...Trước khi in ra, chỉ dẫn này được tạo dựng và lưu trữ dưới dạng một danh sách tuyến tính và móc nối như sau:
Nội dung trích xuất từ tài liệu:
Đề tài thực tập tốt nghiệp chuyên ngành công nghệ thông tin đề tài thực tập tốt nghiệpđề 1: Cần tổ chức một chỉ dẫn các danh sách từ riêng xuất hiệntrong một cuốn sách theo quy cách sau: An: 1, 20, 40, 215 Nam: 10, 145, 320 ... Trước khi in ra, chỉ dẫn này được tạo dựng và lưu trữ dướidạng một danh sách tuyến tính và móc nối như sau: ...DauDs Cấu trúc dữ liệu: Type Str=String[25]; TroTrg=^Trg; Trg=Record CsTrg:Integer; TrgTiep:TroTrg; End; TroDg=^Dg; Dg=Record Ten:Str; Dau, Cuoi:Trotrg; DgTiep:TroDg; End; Var DauDs:TroDg;Yêu cầu:1. Viết thủ tục Procedure TaoDs(Var Dau:TroDg); để tạo một danhsách chỉ dẫn như trên.2. Viết thủ tục Procedure ThemTrg(Dau:TroDg; q:TroDg;Trg:Integer); nhằm thêm một chỉ số trang (Trg) vào cuối một danhsách các trang của tên riêng được trỏ bởi q3. Viết thủ tục Procedure ThemDg(Var Dau:TroDg; n:Str25;Trg:Integer); nhằm thêm một dòng mới tương ứng với tên riêng ntại trang Trg vào đầu một danh sách được tro bởi Dau. 13. Viết thủ tục procedure Them(Var Dau:TroDg; n:Str25;Trg:Integer); nhằm thực hiện các công việc sau: a. Nếu như tên n chưa có trong danh sách Dau thì ta tạo ra mộtdòng mới có tên là n với chỉ số trang Trg vào đầu danh sách Dau. b. Nếu tên n đã có trong danh sách thì kiểm tra xem trang xuấthiện cuối cùng của tên đó có phải là Trg hay không?. Nếu đúng thìkhông làm gì, nếu sai thì thêm vào cuối danh sách.4. Viết thủ tục Procedure InDg(Dau:TroDg; q:TroDg); nhằm mụcđích in một dòng được trỏ bởi q ứng với tên riêng xuất hiện tại cáctrang đã có tại danh sách, theo quy cách: An:1, 20, 40, 2155. Viết thủ tục Procedure InCd(Dau:TroDg); nhằm in toàn bộ chỉdẫn các tên xuát hiện tại các trang đã có trong danh sách6. Vì lí do nào đó tên riêng n được chuyển thành tên riên g n1. Hãyviết một thủ tục Procedure DoiTen(n, n1:Str25; Var Dau:TroDg);thực hiện công việc đó7. Giả sử chỉ dẫn không theo thứ tự tăng của tên theo Alphabel. Hãyviết thủ tục Procedure SapXep(Var Dau:TroDg);sắp xếp lạiĐề 2: Dãy các phân số tối giản theo thứ tự tăng Tn = { m/k |0≤ m≤ k≤ n} với n là số nguyên dương cho trước, được xác địnhnhư sau; n=1 T1 = {0/1, 1/1} n = 2 T2 = {0/1, 1/2, 1/1} 2 n = 3 T3 = {0/1, 1/3, 1/2, 2/3, 1/1} n=4 T4 = {0/1, 1/4, 1/3, 1/2, 2/3, 3/4, 1/1} Qui tắc: ở mỗi bước tiếp theo ta chèn vào giữa hai phân số kếtiếp trong dãy Tn-1 là a/b và c/d phân số mới là u/v, với điều kiện: u = a+c; v = b+d; b+d≤ n Viết 2 thủ tục tạo dãy Tn theo 2 cách sau:Cách 1: Sinh dãy theo quy tắc bằng phương pháp đệ quy hoặckhông đệ quyCách 2: - Sinh ra các phân số dạng {m/k}, trong đó 0≤ m≤ k m≤ k≤ n - Loại các phân số trùng - Sắp xếp lại theo thứ tự tăngĐề 3: Cho một danh sách móc nối lưu trữ thông tin về sách baogồm: thể loại, số hiệu, tên sách, tác giả, năm xuất bản như một thưviện như trong hình vẽ. ... 3 ... ...Cấu trúc dữ liệu:Type Str25=String[25]; TroLoai=^Loai; Loai=Record TheLoai:Str25; Dau, Cuoi:TroSach; Tiep:TroLoai; End; TroSach=^Sach; Sach=Record SoHieu:Integer; Ten:Str25; TacGia;Str25; NamXb:Integer; Next:TroSach; End; Var ThuVien:TroLoai; Yêu cầu:1. Tạo thủ tục Procedure TaoTV(Var TV: TroLoai); nhằm tạo thưviện lưu trữ như trên2. Tạo thủ tục Them(Var TV:TroLoai; Lvuc, TenS, TenTg:Str25;So,Nam:Integer); - Nếu thể loại LVuc chưa có trong thư viện thì tạo bản ghimới về thể loại, đưa vào vị trí phù hợp với các con trỏ trỏ tới bảnghi về sách bao gồm thông tin: So, TenS, TenTg, Nam - Nếu đã có thể loại đó trong thư viện thì kiểm tra xem sách đóđã có trong thể loại đó chưa. Nếu có rồi thì không làm gì cả, nếuchưa có thì thêm vào cuối danh sách.3. Tạo hàm Function SomNhat(TV: TroLoai):Integer; nhằm tìm cuốnsách xuất bản sớm nhất có trong thư viện.4. Tạo Thủ tục Procedure Trich(TenTg:Str25; TV:TroLoai; VarTruyen:TroSach); nhằm trích ra từ thư viện các tác phẩm của cùngtác giả TenTg. 4đề 4: Người ta muốn thực hiện phép duyệt cây nhị phân giả địnhcác nút được khai báo như sau: Type TroNut=Nut; Nut=Record Info:Integer; Trai,Phai:TroNut; End; Var Cay:TroNut ...