![畛 19 1/2
畛 th狸 tuy畛n Nghi棚n c畛u sinh v Cao h畛c 1996 (畛 3)
M担n: Ph動董ng ph叩p l畉p tr狸nh
Th畛i gian: 120 ph炭t 動畛c s畛 d畛ng ti li畛u
C但u 1. Ng動畛i ta th畛c hi畛n thu畉t to叩n t狸m ki畉m nh畛 ph但n tr棚n m畛t b畉ng 動畛c s畉p
x畉p theo th畛 t畛 tng nh動 sau:
Type ptu=record
Khoa:integer;
Info:string[20];
end;
Mang=array[1..100]of ptu;
Function tim(c:integer;var a:mang):integer;
Var trai, phai, giua:integer;
Begin
trai:=1;phai:=100;
Repeat
Giua:=(trai+phai)div 2;
if a[giua].khoa<c then trai:=giua;
Else phai:=giua;
Until (a[giua].khoa=c)or(trai>=phai);
if a[giua].khoa=c then tim:=giua
else tim:=0;
end;
1. Ch動董ng tr狸nh l 炭ng 畉n n畉u trong m畛i tr動畛ng h畛p n坦 s畉 d畛ng v g叩n m畛t
gi叩 tr畛 cho hm tim nh動 sau:
- 1tim100 n畉u m畉ng a c坦 ph畉n t畛 a[tim].khoa=c.
- tim = 0 n畉u trong m畉ng a kh担ng ch畛a ph畉n t畛 c坦 gi叩 tr畛 kh坦a b畉ng c.
H達y t狸m v鱈 d畛 c畛 th畛 ch畛ng t畛 hm tim kh担ng 炭ng 畉n.
2. H達y ch畛a l畉i ch動董ng tr狸nh sao cho 炭ng 畉n. Sau 坦 vi畉t thnh th畛 t畛c 畛
qui.
C但u 2. Ng動畛i ta t畉o l畉p m畛t ch畛 d畉n v畛 c叩c t畛 kh坦a trong m畛t t畛p vn b畉n (m畛t
cu畛n s叩ch, ti li畛u tham kh畉o, bi b叩o) nh動 sau:
Computer: 9
Zemple: 9
Tr動畛c khi in ra, ch畛 d畉n ny c畉n 動畛c x但y d畛ng v l動u tr畛 t畉m th畛i trong b畛
nh畛 trong, d動畛i d畉ng m畉ng c叩c con tr畛, ch畛 t畛i c叩c danh s叩ch tuy畉n t鱈nh bao g畛m
c叩c t畛 c坦 c湛ng ch畛 c叩i 畉u ti棚n (kh担ng ph但n bi畛t ch畛 th動畛ng, ch畛 h嘆a).
C叩c c畉u tr炭c d畛 li畛u 動畛c khai b叩o nh動 sau:
Type index=array[a..z]of tro;
Tro=^nut;
Str25=string[25];
Nut=record
Ten:str25;
Trang:integer;
Tiep:tro;
end;
Tr狸nh by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-1996-3-150427150847-conversion-gate01/85/Ctdl-1996-3-1-320.jpg)
![畛 19 2/2
Var chidan:index;
Keyword:array[1..50]of str25;
H達y l畉p c叩c th畛 t畛c thao t叩c tr棚n danh s叩ch nh動 trong h狸nh:
a
b
c
z
Anglais 10 Anglais 5 Antivirus 100 AIDS 30
Brain 3 Block 10
Computer 9 Connect 109
Zemple 9
AIDS 30
1. Procedure Them(n:str25;tr:integer);
Th畛c hi畛n c叩c c担ng vi畛c ki畛m tra xem t畛 n c坦 thu畛c m畉ng t畛 kh坦a keyword
達 cho tr動畛c hay kh担ng. N畉u n kh担ng thu畛c, kh担ng lm g狸 c畉. N畉u n thu畛c,
th狸 th棚m t畛 n c湛ng v畛i ch畛 s畛 trang tr vo cu畛i d叩nh s叩ch t動董ng 畛ng, 動畛c
x叩c 畛nh b畛i ch畛 c叩i 畉u ti棚n c畛a n. Ch炭 箪: kh担ng ph畉n bi畛t ch畛 th動畛ng, ch畛
hoa.
2. Procedure Sapxep;
Nh畉m s畉p x畉p l畉i c叩c t畛 kh坦a trong t畛ng danh s叩ch c畛a ch畛 d畉n theo th畛 t畛
t畛 v畛ng c畛a c畉p (t棚n, trang):
- 畉u ti棚n s畉p x畉p theo th畛 t畛 alphabet c畛a t棚n.
- Sau 坦, trong nh坦m c叩c t畛 kh坦a c湛ng t棚n (kh担ng ph但n bi畛t ch畛 hoa, ch畛
th動畛ng), s畉p x畉p theo th畛 t畛 tng c畛a ch畛 s畛 trang.
3. Procedure Thaythe(u,v:str25);
N畉u t畛 u xu畉t hi畛n trong danh s叩ch t畛 kh坦a keyword th狸 thay m畛i xu畉t hi畛n
c畛a u b畛i v trong ch畛 d畉n.
4. Procedure Inchidan;
Nh畉m in c叩c t畛 kh坦a c湛ng ch畛 s畛 trong t動董ng 畛ng theo qui c叩ch:
AIDS: 30
Anglais: 5,10
Antivirus: 100
Block: 10
Brian: 3
CAD: 10
Connect: 109
Computer: 5
Zemple: 9
Tr狸nh by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-1996-3-150427150847-conversion-gate01/85/Ctdl-1996-3-2-320.jpg)
Ctdl 1996 - 3
- 1. 畛 19 1/2 畛 th狸 tuy畛n Nghi棚n c畛u sinh v Cao h畛c 1996 (畛 3) M担n: Ph動董ng ph叩p l畉p tr狸nh Th畛i gian: 120 ph炭t 動畛c s畛 d畛ng ti li畛u C但u 1. Ng動畛i ta th畛c hi畛n thu畉t to叩n t狸m ki畉m nh畛 ph但n tr棚n m畛t b畉ng 動畛c s畉p x畉p theo th畛 t畛 tng nh動 sau: Type ptu=record Khoa:integer; Info:string[20]; end; Mang=array[1..100]of ptu; Function tim(c:integer;var a:mang):integer; Var trai, phai, giua:integer; Begin trai:=1;phai:=100; Repeat Giua:=(trai+phai)div 2; if a[giua].khoa<c then trai:=giua; Else phai:=giua; Until (a[giua].khoa=c)or(trai>=phai); if a[giua].khoa=c then tim:=giua else tim:=0; end; 1. Ch動董ng tr狸nh l 炭ng 畉n n畉u trong m畛i tr動畛ng h畛p n坦 s畉 d畛ng v g叩n m畛t gi叩 tr畛 cho hm tim nh動 sau: - 1tim100 n畉u m畉ng a c坦 ph畉n t畛 a[tim].khoa=c. - tim = 0 n畉u trong m畉ng a kh担ng ch畛a ph畉n t畛 c坦 gi叩 tr畛 kh坦a b畉ng c. H達y t狸m v鱈 d畛 c畛 th畛 ch畛ng t畛 hm tim kh担ng 炭ng 畉n. 2. H達y ch畛a l畉i ch動董ng tr狸nh sao cho 炭ng 畉n. Sau 坦 vi畉t thnh th畛 t畛c 畛 qui. C但u 2. Ng動畛i ta t畉o l畉p m畛t ch畛 d畉n v畛 c叩c t畛 kh坦a trong m畛t t畛p vn b畉n (m畛t cu畛n s叩ch, ti li畛u tham kh畉o, bi b叩o) nh動 sau: Computer: 9 Zemple: 9 Tr動畛c khi in ra, ch畛 d畉n ny c畉n 動畛c x但y d畛ng v l動u tr畛 t畉m th畛i trong b畛 nh畛 trong, d動畛i d畉ng m畉ng c叩c con tr畛, ch畛 t畛i c叩c danh s叩ch tuy畉n t鱈nh bao g畛m c叩c t畛 c坦 c湛ng ch畛 c叩i 畉u ti棚n (kh担ng ph但n bi畛t ch畛 th動畛ng, ch畛 h嘆a). C叩c c畉u tr炭c d畛 li畛u 動畛c khai b叩o nh動 sau: Type index=array[a..z]of tro; Tro=^nut; Str25=string[25]; Nut=record Ten:str25; Trang:integer; Tiep:tro; end; Tr狸nh by: Tr畉n Hoi Nh但n
- 2. 畛 19 2/2 Var chidan:index; Keyword:array[1..50]of str25; H達y l畉p c叩c th畛 t畛c thao t叩c tr棚n danh s叩ch nh動 trong h狸nh: a b c z Anglais 10 Anglais 5 Antivirus 100 AIDS 30 Brain 3 Block 10 Computer 9 Connect 109 Zemple 9 AIDS 30 1. Procedure Them(n:str25;tr:integer); Th畛c hi畛n c叩c c担ng vi畛c ki畛m tra xem t畛 n c坦 thu畛c m畉ng t畛 kh坦a keyword 達 cho tr動畛c hay kh担ng. N畉u n kh担ng thu畛c, kh担ng lm g狸 c畉. N畉u n thu畛c, th狸 th棚m t畛 n c湛ng v畛i ch畛 s畛 trang tr vo cu畛i d叩nh s叩ch t動董ng 畛ng, 動畛c x叩c 畛nh b畛i ch畛 c叩i 畉u ti棚n c畛a n. Ch炭 箪: kh担ng ph畉n bi畛t ch畛 th動畛ng, ch畛 hoa. 2. Procedure Sapxep; Nh畉m s畉p x畉p l畉i c叩c t畛 kh坦a trong t畛ng danh s叩ch c畛a ch畛 d畉n theo th畛 t畛 t畛 v畛ng c畛a c畉p (t棚n, trang): - 畉u ti棚n s畉p x畉p theo th畛 t畛 alphabet c畛a t棚n. - Sau 坦, trong nh坦m c叩c t畛 kh坦a c湛ng t棚n (kh担ng ph但n bi畛t ch畛 hoa, ch畛 th動畛ng), s畉p x畉p theo th畛 t畛 tng c畛a ch畛 s畛 trang. 3. Procedure Thaythe(u,v:str25); N畉u t畛 u xu畉t hi畛n trong danh s叩ch t畛 kh坦a keyword th狸 thay m畛i xu畉t hi畛n c畛a u b畛i v trong ch畛 d畉n. 4. Procedure Inchidan; Nh畉m in c叩c t畛 kh坦a c湛ng ch畛 s畛 trong t動董ng 畛ng theo qui c叩ch: AIDS: 30 Anglais: 5,10 Antivirus: 100 Block: 10 Brian: 3 CAD: 10 Connect: 109 Computer: 5 Zemple: 9 Tr狸nh by: Tr畉n Hoi Nh但n