Đề thi tuyển sinh Cao học và nghiên cứu sinh môn Ngôn ngữ lập trình 2001

1/2
BỘ GIÁO DỤC & ĐÀO TẠO Họ và tên thí sinh:..................................................
ĐẠI HỌC HUẾ Số báo danh:..................................................


KỲ THI TUYỂN SINH SAU ĐẠI HỌC NĂM 2001
Môn thi: Ngôn ngữ lập trình
(Dành cho cao học)
Thời gian làm: 180 phút


Câu 1. Chương trình sau cho kết quả như thế nào trên màn hình? Hãy giải thích lý
do.
var a:integer;
procedure change(x:integer;var y:integer);
begin
writeln(x:2,y:2); x:=x+1; y:=y-1;
if x<5 then change(x,y);
w
end;
rite(x:2,y:2);
BEGIN
a:=2;
change(a,a);
END.

Câu 2. Viết chương trình đọc vào một số nguyên thập phân, đổi số này ra hệ bát
phân lưu trữ dưới dạng chuỗi và đưa kết quả ra màn hình.

Câu 3. Cho dãy số: 18, 8, 25, 42, 53, 10, 4, 34. Hãy trình bày quá trình đổi chỗ các
phần tử trong dãy để thu được một dãy sắp theo thứ tự tăng dần bằng phương pháp

HeapSort.

Câu 4. Tại một công ty, người ta quản lý các thành phố có mở đại lý bằng một
danh sách liên kết (mà ta gọi là danh sách thành phố). Mỗi nút của danh sách thành
phố là một bản ghi gồm 3 trường: TenThanhPho (tên thành phố), con trỏ Next trỏ
đến nút tiếp theo và con trỏ Down trỏ đến phần tử đầu của một danh sách khác
chứa thông tin của các đại lý trong thành phố (mà ta gọi là danh sách đại lý). Mỗi
nút của danh sách đại lý là một bản ghi gồm 4 trường: TenDaily (tên đại lý), SDT
(số điện thoại), DoanhThu (doanh thu) và con trỏ Tiep trỏ đến đại lý tiếp theo.
• Hai thành phố khác nhau trỏ đến hai danh sách đại lý khác nhau.
• Danh sách thành phố được sắp xếp theo thứ tự tăng dần của TenThanhPho.
• Danh sách đại lý được sắp theo thứ tự tăng dần của SDT.
Người ta cho khai báo cấu trúc dữ liệu nói trên như sau:
type St25=String[25];
st8=string[8];
TroDL=^DaiLy;
DaiLy = record
TenDaiLy:st25;
SDT:st8;
Trình bày: Trần Hoài Nhân

2/2
DoanhThu:longint;
Tiep:TroDL;
end;
TroTP=^ThanhPho;
ThanhPho = record
TenThanhPho:st25;
down: TroDL;
Next: TroTP;

end;
var First:TroTP; {First trỏ đến đầu danh sách thành phố}

1. Viết thủ tục:
Procedure Xoa(Var First:TroTP; Thpho:St25; DT:St8);

Cho phép xóa đại lý có số điện thoại DT thuộc thành phố có tên Thpho ra
khỏi danh sách các đại lý. Nếu thành phố này chỉ có một đại lý duy nhất thì
khi thực hiện xóa đại lý đó, thành phố Thpho cũng đồng thời bị loại khỏi
danh sách thành phố.
2. Viết hàm:
Function DemDaiLy(First:TroTp):word;

Trả về số lượng các đại lý trên toàn quốc.



Ghi chú: Cán bộ coi thi không được giải thích gì thêm.
Trình bày: Trần Hoài Nhân