Đề 15/tr 1/2 Đề thi tuyển cao học 1995 Môn thi: Lập trình (180 phút) Bài 1. Cho chương trình sau: Program Print(input,output); Var i:integer; T:array[1..2]of interger; Procedure p(var x,y:interger); Begin {3}X:=x+1; {4}Y:=y+1; {5}Write(x,y); {6}End; Begin {1}I:=1;T[1]:=2;T[2]:=0; {2}P(I,T[T[i]]); {7}Witeln(I,T[1],T[2]); {8}End. Cho biết kết quả in ra từ chương trình trên. Chỉ rõ giá trị của các biến và các tham số, qua mỗi bước theo vết thực hiện {1,2,3,4,5,6,7,8} Bài 2: Cho hàm Function M(n:integer):integer; Begin If n>100 then m:=n-100 Else m:=m(M(n+1)); End. a. Cho biết các giá trị M(101), M(99), M(88) b. Một cách tổng quát, cho biết M(n) với các trường hợp khác nhau của n. Giải thích lời đáp đưa ra. Bài 3: Trong một hệ soạn thảo, văn bản đang soạn được lưu ở bộ nhớ trong dưới dạng một danh sách nối kép như sau: Đầu Đầu Dòng 1 Dòng 2 Trường hợp văn bản rỗng Cuối
…
Cuối Dòng n
…
Trường hợp chung
Đề 15/tr 2/2 Khai báo của danh sách này như sau: Type str80=String[80]; Tro=^dongvb; Dongvb=record Truoc:tro; Dong:str80; Sau:tro; End; Var dau,cuoi:tro; {đều bằng NIL khi văn bản là rỗng} a. Viết một thủ tục dưới dạng: Procedure xentruoc(var d:tro;p:tro;s:str80); Cho phép xen một dòng mới với nội dung cho bởi s vào trước phần tử trỏ bởi p trong danh sách có đầu d. b. Gọi Bloc(db,cb) là một khối liền nhau các dòng kể từ dòng trỏ trỏ bới db đến dòng trỏ bởi cb. Hãy viết một thủ tục dưới dạng: Procedure chuyenBl(var d,c:tro; db,cb,noiden:tro); Cho phép chuyển dời Bloc(db,cb) tới trước dòng trỏ bởi noiden trong danhsach(d,c). Giả sử noiden không ở trong Bloc. b. Viết một thủ tục: Procedure chepBl(var d:tro; db,cb,noiden:tro); Cho phép chép (mà không hủy) một Bloc(bd,cb) tới trước dòng trỏ bởi noiden trong danh sách có đầu d. Giải sử noiden không ở trong Bloc.