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

Tổng hợp : Đề thi và đề cương tuyển sinh Cao học và nghiên cứu sinh môn Ngôn ngữ lập trình từ năm 1993-2007

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