Đề 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, 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ưới dạng một danh sách tuyến tính và móc nối như sau:

đề tài thực tập tốt nghiệp đề 1: Cần tổ chức dẫn danh sách từ riêng xuất hiƯn mét cn s¸ch theo quy c¸ch sau: An: 1, 20, 40, 215 Nam: 10, 145, 320 Tríc in ra, dẫn đợc tạo dựng lu trữ dới dạng danh sách tuyến tính 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: Viết thủ tục Procedure TaoDs(Var Dau:TroDg); để tạo danh sách chØ dÉn nh trªn ViÕt thđ tơc Procedure ThemTrg(Dau:TroDg; q:TroDg; Trg:Integer); nhằm thêm số trang (Trg) vào cuối danh sách trang tên riêng đợc trá bëi q ViÕt thđ tơc Procedure ThemDg(Var Dau:TroDg; n:Str25; Trg:Integer); nhằm thêm dòng tơng ứng với tên riêng n trang Trg vào đầu danh sách đợc tro Dau Viết thủ tục procedure Them(Var Dau:TroDg; n:Str25; Trg:Integer); nhằm thực công viƯc sau: a NÕu nh tªn n cha cã danh sách Dau ta tạo dòng có tên n với số trang Trg vào đầu danh sách Dau b Nếu tên n đà có danh sách kiểm tra xem trang xuất cuối tên có phải Trg hay không? Nếu không làm gì, sai thêm vào cuối danh sách Viết thủ tục Procedure InDg(Dau:TroDg; q:TroDg); nhằm mục đích in dòng đợc trỏ q ứng với tên riêng xuất trang đà có danh sách, theo quy cách: An:1, 20, 40, 215 ViÕt thđ tơc Procedure InCd(Dau:TroDg); nh»m in toàn dẫn tên xuát trang đà có danh sách Vì lí tên riêng n đợc chuyển thành tên riªng n1 H·y viÕt mét thđ tơc Procedure DoiTen(n, n1:Str25; Var Dau:TroDg); thực công việc Giả sử dẫn không theo thứ tự tăng tên theo Alphabel HÃy viết thủ tục Procedure SapXep(Var Dau:TroDg);sắp xếp lại Đề 2: DÃy phân số tối giản theo thứ tự tăng Tn = { m/k | 0mkn} với n số nguyên dơng cho trớc, đợc xác định nh sau; n=1 T1 = {0/1, 1/1} n=2 T2 = {0/1, 1/2, 1/1} 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: bớc ta chèn vào hai phân số dÃy Tn-1 a/b c/d phân số u/v, với ®iỊu kiƯn: u = a+c; v = b+d; b+dn ViÕt thủ tục tạo dÃy Tn theo cách sau: Cách 1: Sinh dÃy theo quy tắc phơng pháp đệ quy không đệ quy Cách 2: - Sinh phân số dạng {m/k}, 0mk mkn - Loại phân số trùng - Sắp xếp lại theo thứ tự tăng Đề 3: Cho danh sách móc nối lu trữ thông tin sách bao gồm: thể loại, số hiệu, tên sách, tác giả, năm xuất nh th viện nh hình vẽ 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: Tạo thđ tơc Procedure TaoTV(Var TV: TroLoai); nh»m t¹o th viƯn lu trữ nh Tạo thủ tục Them(Var TV:TroLoai; Lvuc, TenS, TenTg:Str25;So, Nam:Integer); - NÕu thĨ lo¹i LVuc cha có th viện tạo ghi thể loại, đa vào vị trí phù hợp với trỏ trỏ tới ghi sách bao gồm thông tin: So, TenS, TenTg, Nam - Nếu đà loại th viện kiểm tra xem sách đà có thể loại cha Nếu có không làm cả, cha có thêm vào cuối danh sách Tạo hàm Function SomNhat(TV: TroLoai):Integer; nhằm tìm sách xuất sớm nhÊt cã th viƯn T¹o Thđ tơc Procedure Trich(TenTg:Str25; TV:TroLoai; Var Truyen:TroSach); nh»m trÝch tõ th viÖn tác phẩm tác giả TenTg đề 4: Ngời ta muốn thực phép duyệt nhị phân giả định nút đợc khai báo nh sau: Type TroNut=Nut; Nut=Record Info:Integer; Trai,Phai:TroNut; End; Var Cay:TroNut; Yêu cầu: ViÕt thđ tơc Procedure TaoCay(Var C: TroNut); ViÕt thủ tục duyệt theo phơng pháp: duyệt theo thø tù gi÷a, dut theo thø tù sau, dut theo thứ tự trớc 3.Tính tổng giá trị Chẳng hạn: Kết 10 11 Kết qu¶ 11 KÕt qu¶ 11 KÕt qu¶ dut theo thø tù gi÷a: dut theo thø tù sau: 91 10 dut theo thø tù tríc: 10 tÝnh tæng: 66 đề 5: Cho khai báo kiểu danh sách móc nèi nh sau: Type Tro=^pt; pt=Record Giatri:Integer; Tiep:Tro; End; Yªu cÇu: ViÕt thđ tơc Procedure TimMax(Var ds, q:Tro); cho phÐp lÊy phÇn tư q cã Giatri lín nhÊt Cho Var ds1, ds2:Tro; ®ã ds1 trá tíi mét danh sách cha sắp, danh sách ds2 ban đầu NIL ViÕt thđ tơc Procedure SapChon(Var ds1, ds2:Tro); cho phÐp lấy dần phần tử ds1 chèn vào ds2 vị trí thích hợp cho, ds1 NIL ds2 danh sách đà đợc tăng đề 6: Cho tệp văn chứa từ, dấu phân cách từ: dấu cách, dấu phÈy, dÊu chÊm, dÊu chÊm phÈy, dÊu hai chÊm, dấu than, dấu hỏi Mọi từ bắt đầu chữ 'A' 'Z' (không phân biệt chữ hoa chữ thờng) Yêu cầu: Viết thủ tục đọc từ tệp văn lu trữ vào mảng danh s¸ch mãc nèi Var TuDien:array['A' 'Z'] of ds; Type ds=^ptu; ptu=Record Tu:String[10]; Tiep:ds; End; Mỗi danh sách móc nối từ điển xếp theo thứ tự tăng từ khoá khác Viết thủ tục hiển thị từ hình theo thứ tự tăng ViÕt thđ tơc bỉ sung tõ míi b»ng c¸ch đọc từ bàn phím tìm từ điển - Nếu thấy, hiển thị thông báo 'Đà có ' - Nếu không chèn vào vị trí thích hợp ®Ị 7: Ngêi ta biĨu diƠn biĨu thøc sè häc víi c¸c phÐp +, - , *, / hai +, - toán tử đợc chứa nút biến đợc chứa Chẳng hạn: BiÓu thøc (((1 + 2) * 3) - ((-20)/2/5) Ta có sau: Yêu cầu: Giả sử biểu thức số học đà đợc viết dới dạng ngoặc đơn đầy đủ đợc lu trữ xâu HÃy xây dựng xuất phát từ xâu đà cho Dựa vào cây, tính giá trị biểu thức đề 8: Viết chơng trình thực công việc sau: Nhâp xâu S từ bàn phím Từ S tách tất số nguyên (dÃy liên tiếp chữ số) dấu +, - xuất xâu lu trữ chúng vào mảng A Chẳng hạn: S = "Day so - 12 12.35 +a42 -b12" Ta cã m¶ng A nh sau: -12, 12, 35, 42, -12 Không dùng mảng phụ khác A, hÃy đếm xem có số khác xuất xâu, số Sau đó, cho biết số xuất lần đề 9: 10 1.Đọc hai số nguyên m n vào từ bàn phím Giả sử m, n đợc lu trữ dới dạng thập phân m = a1a2 .ak, n = b1b2 .bl, ®ã (i=1 k), bj (j=1 l) 10 chữ số từ đến Xây dựng hai danh sách móc nối tuyến tính đợc xác định hai trỏ so1 so2 tơng ứng với cấu tróc nh sau: so1 so2 H·y m« phép toán cộng thủ công theo cột từ trái qua phải (có thể nhớ từ cột sang cột tiếp theo) với hai số đợc biểu diễn bới hai danh sách đợc trỏ trỏ so1 so2 tơng ứng Sau cộng theo cột ta đợc dÃy tun tÝnh mãc nèi biĨu thÞ tỉng cđa hai sè m n Chẳng hạn: so1 so2 tong Xuất phát từ danh sách tuyên stính kết nhận đợc câu 2, hÃy tìm cách xáo trộn phần tử cho nhận đợc số lớn Chẳng hạn: Với danh sách kết ta đợc danh sách tơng ứng với số lớn là: 11 đề 10: Xét dÃy số a1, a2, , an, với n