![1/2
B畛 GIO 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 NM 2001
M担n thi: Ng担n ng畛 l畉p tr狸nh
(Dnh cho cao h畛c)
Th畛i gian lm: 180 ph炭t
C但u 1. Ch動董ng tr狸nh sau cho k畉t qu畉 nh動 th畉 no tr棚n mn 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 vo m畛t s畛 nguy棚n th畉p ph但n, 畛i s畛 ny ra h畛 b叩t
ph但n l動u tr畛 d動畛i d畉ng chu畛i v 動a k畉t qu畉 ra mn h狸nh.
C但u 3. Cho d達y s畛: 18, 8, 25, 42, 53, 10, 4, 34. H達y tr狸nh by qu叩 tr狸nh 畛i ch畛 c叩c
ph畉n t畛 trong d達y 畛 thu 動畛c m畛t d達y s畉p theo th畛 t畛 tng 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 thnh ph畛 c坦 m畛 畉i l箪 b畉ng m畛t
danh s叩ch li棚n k畉t (m ta g畛i l danh s叩ch thnh ph畛). M畛i n炭t c畛a danh s叩ch thnh
ph畛 l m畛t b畉n ghi g畛m 3 tr動畛ng: TenThanhPho (t棚n thnh 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 thnh 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 thnh ph畛 kh叩c nhau tr畛 畉n hai danh s叩ch 畉i l箪 kh叩c nhau.
Danh s叩ch thnh ph畛 動畛c s畉p x畉p theo th畛 t畛 tng d畉n c畛a TenThanhPho.
Danh s叩ch 畉i l箪 動畛c s畉p theo th畛 t畛 tng 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 by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-2001-150427150904-conversion-gate02/85/Ctdl-2001-1-320.jpg)
Ctdl 2001
- 1. 1/2 B畛 GIO 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 NM 2001 M担n thi: Ng担n ng畛 l畉p tr狸nh (Dnh cho cao h畛c) Th畛i gian lm: 180 ph炭t C但u 1. Ch動董ng tr狸nh sau cho k畉t qu畉 nh動 th畉 no tr棚n mn 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 vo m畛t s畛 nguy棚n th畉p ph但n, 畛i s畛 ny ra h畛 b叩t ph但n l動u tr畛 d動畛i d畉ng chu畛i v 動a k畉t qu畉 ra mn h狸nh. C但u 3. Cho d達y s畛: 18, 8, 25, 42, 53, 10, 4, 34. H達y tr狸nh by qu叩 tr狸nh 畛i ch畛 c叩c ph畉n t畛 trong d達y 畛 thu 動畛c m畛t d達y s畉p theo th畛 t畛 tng 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 thnh ph畛 c坦 m畛 畉i l箪 b畉ng m畛t danh s叩ch li棚n k畉t (m ta g畛i l danh s叩ch thnh ph畛). M畛i n炭t c畛a danh s叩ch thnh ph畛 l m畛t b畉n ghi g畛m 3 tr動畛ng: TenThanhPho (t棚n thnh 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 thnh 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 thnh ph畛 kh叩c nhau tr畛 畉n hai danh s叩ch 畉i l箪 kh叩c nhau. Danh s叩ch thnh ph畛 動畛c s畉p x畉p theo th畛 t畛 tng d畉n c畛a TenThanhPho. Danh s叩ch 畉i l箪 動畛c s畉p theo th畛 t畛 tng 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 by: Tr畉n Hoi Nh但n
- 2. 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 thnh 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 thnh ph畛 c坦 t棚n Thpho ra kh畛i danh s叩ch c叩c 畉i l箪. N畉u thnh ph畛 ny ch畛 c坦 m畛t 畉i l箪 duy nh畉t th狸 khi th畛c hi畛n x坦a 畉i l箪 坦, thnh ph畛 Thpho c滴ng 畛ng th畛i b畛 lo畉i kh畛i danh s叩ch thnh ph畛. 2. Vi畉t hm: Function DemDaiLy(First:TroTp):word; Tr畉 v畛 s畛 l動畛ng c叩c 畉i l箪 tr棚n ton qu畛c. Ghi ch炭: C叩n b畛 coi thi kh担ng 動畛c gi畉i th鱈ch g狸 th棚m. Tr狸nh by: Tr畉n Hoi Nh但n