![畛 15 1/2
畛 thi tuy畛n cao h畛c 1995
M担n thi: L畉p tr狸nh
(180 ph炭t)
Bi 1. Cho ch動董ng tr狸nh sau:
Program Print(input,output);
Var i:integer;
T:arra 1..2
Procedure p(var x,y:interger);
y[ ]of 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}
Bi 2. Cho hm:
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.
Bi 3. Trong m畛t h畛 so畉n th畉o, vn 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:
Tr狸nh by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-1995-150427150833-conversion-gate02/85/Ctdl-1995-1-320.jpg)
![畛 15 2/2
D嘆ng 1
D嘆ng 2
D嘆ng n
畉u
Tr動畛ng h畛p chung
Tr動畛ng h畛p vn b畉n r畛ng
Cu畛i
畉u
Cu畛i
Khai b叩o c畛a danh s叩ch ny 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 vn 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 vo 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畛 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.
c. 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.
Tr狸nh by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-1995-150427150833-conversion-gate02/85/Ctdl-1995-2-320.jpg)
Ctdl 1995
- 1. 畛 15 1/2 畛 thi tuy畛n cao h畛c 1995 M担n thi: L畉p tr狸nh (180 ph炭t) Bi 1. Cho ch動董ng tr狸nh sau: Program Print(input,output); Var i:integer; T:arra 1..2 Procedure p(var x,y:interger); y[ ]of 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} Bi 2. Cho hm: 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. Bi 3. Trong m畛t h畛 so畉n th畉o, vn 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: Tr狸nh by: Tr畉n Hoi Nh但n
- 2. 畛 15 2/2 D嘆ng 1 D嘆ng 2 D嘆ng n 畉u Tr動畛ng h畛p chung Tr動畛ng h畛p vn b畉n r畛ng Cu畛i 畉u Cu畛i Khai b叩o c畛a danh s叩ch ny 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 vn 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 vo 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畛 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. c. 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. Tr狸nh by: Tr畉n Hoi Nh但n