Đề 17
1/2
Đề thì tuyển Nghiên cứu sinh và Cao học 1996 (Đề 1)
Môn: Phương pháp lập trình
Thời gian: 120 phút – Được sử dụng tài liệu Bài 1. Dãy các phân số tối giản theo thứ tự tăng T
n
= {
k
m
| 0 ≤ m ≤ k ≤ n}, với n
cho trước được xây dựng dần dần như sau:
Với n = 1 T
1
= {0/1 , 1/1}
Với n = 2 T
2
= {0/1 , 1/2 , 1/1}
Với n = 3 T
3
= {0/1 , 1/3 , 1/2 , 2/3 , 1/1}
Với n = 4 T
4
= {0/1 , 1/4 , 1/3 , 1/2 , 2/3 , 3/4 , 1/1}
Ở mỗi bước n tiếp sau, ta chèn vào giữa 2 phân số kế tiếp trong dãy T
n-1
nhận
được ở bước n-1:
b


Các cấu trúc dữ liệu được khai báo như sau:
Type str25=string[25];
Troloai=^loai;
Loai=record
Theloai:str25;
Dau,cuoi:^sach;
T
End;
iep:troloai;
Trosach=^sach;
Sach=record
Sohieu:integer;
Ten:str25;
Tacgia:str25;
Nam:integer;
Next:trosach;
End;
Var thuvien:Troloai;
Trình bày: Trần Hoài Nhân

Đề 17
2/2
Hãy viết các chương trình con:
1.
Procedure Them(var l:troloai; lvuc,tensach,nguoi:str25;
so,nam:integer);
Cho phép thực hiện thêm vào thư viện một cuốn sách mới thuộc thể loại
lvuc có tên là tensach, được tác giả nguoi viết vào năm nam, cuốn sách có số
hiệu so.