![畛 05 1/2
畛 th狸 tuy畛n Nghi棚n c畛u sinh v Cao h畛c 1995 (畛 B)
M担n: Ph動董ng ph叩p l畉p tr狸nh
Th畛i gian: 180 ph炭t 動畛c s畛 d畛ng ti li畛u
Bi 1. Cho khai b叩o ki畛u c畛a m畛t danh s叩ch tuy畉n t鱈nh m坦c n畛i nh動 sau:
Type tro = ^kieupt;
Kieupt=record
Giatri:interger;
Tieptheo:tro;
End;
a. Cho: Var ds,q:tro;
Trong 坦 ds tr畛 t畛i 畉u c畛a m畛t danh s叩ch tuy畉n t鱈nh. H達y vi畉t m畛t th畛 t畛c:
Procedure LayMax(var ds,q:tro);
Cho ph辿p l畉y ph畉n t畛 c坦 gi叩 tr畛 l畛n nh畉t ra kh畛i danh s叩ch tuy畉n t鱈nh ds,
ph畉n t畛 坦 s畉 動畛c tr畛 b畛i q.
b. Cho: Var ds1,ds2:tro;
Trong 坦 ds1 tr畛 畉u c畛a m畛t danh s叩ch tuy畉n t鱈nh ch動a 動畛c s畉p x畉p theo
tr動畛ng gi叩 tr畛, c嘆n ds2 th狸 達 動畛c kh畛i g叩n ds2:=NIL. H達y vi畉t m畛t th畛 t畛c:
Procedure SapChon(var ds1,ds2:tro);
Cho ph辿p ch畛n d畉n c叩c ph畉n t畛 trong ds1 t畛 gi叩 tr畛 l畛n 畉n b辿, 動a vo ds2
畛 r畛t c畛c th狸 ds1=nil, c嘆n ds2 tr畛 t畛i m畛t danh s叩ch tuy畉n t鱈nh g畛m m畛i
ph畉n t畛 c滴 c畛a ds1, nh動ng 達 s畉p theo th畛 t畛 c畛a tr動畛ng gi叩 tr畛.
Bi 2. Cho khai b叩o c畛a m畛t c但y nh畛 ph但n nh動 sau:
Type tr畛=^ n炭t;
N炭t = record
Gi叩tr畛:interger;
Ctr叩i, CPh畉i:tr畛;
End;
Var g畛c:tr畛 {tr畛 t畛i n炭t g畛c c畛a c但y}
H達y l畉p hm: Function Copy(g畛c: tr畛): tr畛; Cho ph辿p tr畉 l畉i 畛a ch畛 c畛a
g畛c m畛t c但y m畛i, c但y ny 動畛c thnh l畉p nh動 l m畛t b畉n sao c但y 達 cho (tr畛 b畛i
g畛c).
Bi 3. Cho m畛t t畛p (t畉p tin) vn b畉n, trong 坦 c坦 ch畛a c叩c t畛. C叩c d畉u ph但n c叩ch
t畛 l: d畉u tr畉ng, d畉u ph畉y, d畉u ch畉m ph畉y, d畉u hai ch畉m, d畉u ch畉m than, d畉u ch畉m
h畛i. M畛i t畛 畛u b畉t 畉u b畉ng m畛t k箪 t畛 trong t畉p [A.. Z]
a. Vi畉t m畛t th畛 t畛c cho ph辿p 畛c c叩c t畛 trong t畛p vn b畉n 達 cho v l動u c叩c t畛
坦 vo m畉ng c叩c danh s叩ch m坦c n畛i:
T畛i畛n:array[A..Z] of danhs叩ch;
Trong 坦 ki畛u danhs叩ch 動畛c cho nh動 sau:
Type danhs叩ch = ^ki畛upt;
Ki畛upt = record
T畛:strinh[10];
Tr狸nh by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-1995-b-150427150829-conversion-gate02/85/Ctdl-1995-b-1-320.jpg)
Ctdl 1995 - b
- 1. 畛 05 1/2 畛 th狸 tuy畛n Nghi棚n c畛u sinh v Cao h畛c 1995 (畛 B) M担n: Ph動董ng ph叩p l畉p tr狸nh Th畛i gian: 180 ph炭t 動畛c s畛 d畛ng ti li畛u Bi 1. Cho khai b叩o ki畛u c畛a m畛t danh s叩ch tuy畉n t鱈nh m坦c n畛i nh動 sau: Type tro = ^kieupt; Kieupt=record Giatri:interger; Tieptheo:tro; End; a. Cho: Var ds,q:tro; Trong 坦 ds tr畛 t畛i 畉u c畛a m畛t danh s叩ch tuy畉n t鱈nh. H達y vi畉t m畛t th畛 t畛c: Procedure LayMax(var ds,q:tro); Cho ph辿p l畉y ph畉n t畛 c坦 gi叩 tr畛 l畛n nh畉t ra kh畛i danh s叩ch tuy畉n t鱈nh ds, ph畉n t畛 坦 s畉 動畛c tr畛 b畛i q. b. Cho: Var ds1,ds2:tro; Trong 坦 ds1 tr畛 畉u c畛a m畛t danh s叩ch tuy畉n t鱈nh ch動a 動畛c s畉p x畉p theo tr動畛ng gi叩 tr畛, c嘆n ds2 th狸 達 動畛c kh畛i g叩n ds2:=NIL. H達y vi畉t m畛t th畛 t畛c: Procedure SapChon(var ds1,ds2:tro); Cho ph辿p ch畛n d畉n c叩c ph畉n t畛 trong ds1 t畛 gi叩 tr畛 l畛n 畉n b辿, 動a vo ds2 畛 r畛t c畛c th狸 ds1=nil, c嘆n ds2 tr畛 t畛i m畛t danh s叩ch tuy畉n t鱈nh g畛m m畛i ph畉n t畛 c滴 c畛a ds1, nh動ng 達 s畉p theo th畛 t畛 c畛a tr動畛ng gi叩 tr畛. Bi 2. Cho khai b叩o c畛a m畛t c但y nh畛 ph但n nh動 sau: Type tr畛=^ n炭t; N炭t = record Gi叩tr畛:interger; Ctr叩i, CPh畉i:tr畛; End; Var g畛c:tr畛 {tr畛 t畛i n炭t g畛c c畛a c但y} H達y l畉p hm: Function Copy(g畛c: tr畛): tr畛; Cho ph辿p tr畉 l畉i 畛a ch畛 c畛a g畛c m畛t c但y m畛i, c但y ny 動畛c thnh l畉p nh動 l m畛t b畉n sao c但y 達 cho (tr畛 b畛i g畛c). Bi 3. Cho m畛t t畛p (t畉p tin) vn b畉n, trong 坦 c坦 ch畛a c叩c t畛. C叩c d畉u ph但n c叩ch t畛 l: d畉u tr畉ng, d畉u ph畉y, d畉u ch畉m ph畉y, d畉u hai ch畉m, d畉u ch畉m than, d畉u ch畉m h畛i. M畛i t畛 畛u b畉t 畉u b畉ng m畛t k箪 t畛 trong t畉p [A.. Z] a. Vi畉t m畛t th畛 t畛c cho ph辿p 畛c c叩c t畛 trong t畛p vn b畉n 達 cho v l動u c叩c t畛 坦 vo m畉ng c叩c danh s叩ch m坦c n畛i: T畛i畛n:array[A..Z] of danhs叩ch; Trong 坦 ki畛u danhs叩ch 動畛c cho nh動 sau: Type danhs叩ch = ^ki畛upt; Ki畛upt = record T畛:strinh[10]; Tr狸nh by: Tr畉n Hoi Nh但n
- 2. 畛 05 2/2 Ti畉ptheo:danhs叩ch; end; M畛t danh s叩ch m坦c n畛i trong t畛i畛n 畛u ph畉i s畉p th畛 t畛 (tng d畉n) v t畉t c畉 c叩c t畛 ph畉i kh叩c nhau. b. Vi畉t m畛t th畛 t畛c hi畛n th畛 t畉t c畉 c叩c t畛 ra mn h狸nh theo th畛 t畛 tng d畉n. c. Vi畉t m畛t th畛 t畛c b畛 sung m畛t t畛 m畛i, b畉ng c叩ch 畛c t畛 坦 t畛 bn ph鱈m, t狸m n坦 trong T畛i畛n (d湛ng ph辿p t狸m ki畉m tu畉n t畛 trong danh s叩ch m坦c n畛i ch畛a d畛 li畛u tng d畉n). - N畉u t狸m th畉y, hi畛u th畛 th担ng b叩o 達 c坦 trong t畛 i畛n - N畉u kh担ng t狸m th畉y, ch竪n n坦 vo trong T畛i畛n 畛 v畛 tr鱈 th鱈ch h畛p. Tr狸nh by: Tr畉n Hoi Nh但n