際際滷

際際滷Share a Scribd company logo
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
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
Ad

Recommended

C畉u tr炭c l畉p ti畉t 3_Tin h畛c 10
C畉u tr炭c l畉p ti畉t 3_Tin h畛c 10
yenthuya
Bgt2
Bgt2
Xuan Nguyen
Bgt3
Bgt3
Xuan Nguyen
Baitapphan1
Baitapphan1
Hau Duong Duc
Cn h畛 ph畛 担ng giao nh hon thi畛n, n畛i th畉t 畉p
Cn h畛 ph畛 担ng giao nh hon thi畛n, n畛i th畉t 畉p
ngoctim2000
Chuong iii 13 hon so so thap phan phan tram
Chuong iii 13 hon so so thap phan phan tram
Hoa Ph動畛ng
CT Plaza Sai Gon ( Khach san cho thue tai Quan 1 )
CT Plaza Sai Gon ( Khach san cho thue tai Quan 1 )
RELand.,Ltd
Cn h畛 icon 56 ngay trung t但m ti ch鱈nh qu畉n 1
Cn h畛 icon 56 ngay trung t但m ti ch鱈nh qu畉n 1
nghithuongcr
Ch tin dhhue2004
Ch tin dhhue2004
H畛 L畛i
Ch tin dhhue2002
Ch tin dhhue2002
H畛 L畛i
Lanzado Con Exito El Meteosat 10
ruralepic1526
Ch tin dhhue2003
Ch tin dhhue2003
H畛 L畛i
Informe encuestas Turismo Festivo Espa単ol
natmar22
Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
Advanced Achievements
Advanced Achievements
Jackie Wallace
Becoming a superhero in print sales and marketing
Becoming a superhero in print sales and marketing
Joe Kern
Life in Oxford current2.3_2015 (3)
Life in Oxford current2.3_2015 (3)
Nicholas Bensted
Cae technologies for efficient vibro acoustic vehicle
Cae technologies for efficient vibro acoustic vehicle
Cec deMille
Sistema endocrino
Jorge Luis Pacheco Alvarez
Edad Media
lygobu78
Paul auster
elcharcos2006
Analysing pictures table
Analysing pictures table
lucymarks
h_TMMK_benifits_letter
h_TMMK_benifits_letter
University of Michigan
Letter of recommendation for Njal Laursen W端rtz -Steen Christiansen
Letter of recommendation for Njal Laursen W端rtz -Steen Christiansen
Njal Laursen W
Flowchart dan dfd
Flowchart dan dfd
Hardini_HD
Australia vs srilanka live cricket
Australia vs srilanka live cricket
cymone_gilroy
Ctdl 2003
Ctdl 2003
H畛 L畛i
Ctdl 2005 - dap an
Ctdl 2005 - dap an
H畛 L畛i
Ctdl 2005
Ctdl 2005
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i

More Related Content

Viewers also liked (18)

Ch tin dhhue2004
Ch tin dhhue2004
H畛 L畛i
Ch tin dhhue2002
Ch tin dhhue2002
H畛 L畛i
Lanzado Con Exito El Meteosat 10
ruralepic1526
Ch tin dhhue2003
Ch tin dhhue2003
H畛 L畛i
Informe encuestas Turismo Festivo Espa単ol
natmar22
Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
Advanced Achievements
Advanced Achievements
Jackie Wallace
Becoming a superhero in print sales and marketing
Becoming a superhero in print sales and marketing
Joe Kern
Life in Oxford current2.3_2015 (3)
Life in Oxford current2.3_2015 (3)
Nicholas Bensted
Cae technologies for efficient vibro acoustic vehicle
Cae technologies for efficient vibro acoustic vehicle
Cec deMille
Sistema endocrino
Jorge Luis Pacheco Alvarez
Edad Media
lygobu78
Paul auster
elcharcos2006
Analysing pictures table
Analysing pictures table
lucymarks
h_TMMK_benifits_letter
h_TMMK_benifits_letter
University of Michigan
Letter of recommendation for Njal Laursen W端rtz -Steen Christiansen
Letter of recommendation for Njal Laursen W端rtz -Steen Christiansen
Njal Laursen W
Flowchart dan dfd
Flowchart dan dfd
Hardini_HD
Australia vs srilanka live cricket
Australia vs srilanka live cricket
cymone_gilroy
Ch tin dhhue2004
Ch tin dhhue2004
H畛 L畛i
Ch tin dhhue2002
Ch tin dhhue2002
H畛 L畛i
Lanzado Con Exito El Meteosat 10
ruralepic1526
Ch tin dhhue2003
Ch tin dhhue2003
H畛 L畛i
Informe encuestas Turismo Festivo Espa単ol
natmar22
Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
Advanced Achievements
Advanced Achievements
Jackie Wallace
Becoming a superhero in print sales and marketing
Becoming a superhero in print sales and marketing
Joe Kern
Life in Oxford current2.3_2015 (3)
Life in Oxford current2.3_2015 (3)
Nicholas Bensted
Cae technologies for efficient vibro acoustic vehicle
Cae technologies for efficient vibro acoustic vehicle
Cec deMille
Sistema endocrino
Jorge Luis Pacheco Alvarez
Edad Media
lygobu78
Paul auster
elcharcos2006
Analysing pictures table
Analysing pictures table
lucymarks
Letter of recommendation for Njal Laursen W端rtz -Steen Christiansen
Letter of recommendation for Njal Laursen W端rtz -Steen Christiansen
Njal Laursen W
Flowchart dan dfd
Flowchart dan dfd
Hardini_HD
Australia vs srilanka live cricket
Australia vs srilanka live cricket
cymone_gilroy

Similar to Ch tin dhhue2001 (20)

Ctdl 2003
Ctdl 2003
H畛 L畛i
Ctdl 2005 - dap an
Ctdl 2005 - dap an
H畛 L畛i
Ctdl 2005
Ctdl 2005
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i
Ctdl 2006
Ctdl 2006
H畛 L畛i
Ch tin dhhue2006
Ch tin dhhue2006
H畛 L畛i
Ctdl 2002
Ctdl 2002
H畛 L畛i
Ctdl 2004
Ctdl 2004
H畛 L畛i
Ctdl 2007-2
Ctdl 2007-2
H畛 L畛i
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i
Bai 18
Bai 18
Thi Thanh Thuan Tran
Bi 18 tin hoc 11
Bi 18 tin hoc 11
HaBaoChau
Ctdl 1999
Ctdl 1999
H畛 L畛i
Ctdl 1997
Ctdl 1997
H畛 L畛i
Ctdl 1996 - 3
Ctdl 1996 - 3
H畛 L畛i
Ctdl 1995
Ctdl 1995
H畛 L畛i
Section 2
Section 2
toetua2011oet
畛 quy v quay lui
畛 quy v quay lui
Hong Ch鱈 D滴ng
De b k46_092008
De b k46_092008
Hung Pham Thai
Ctdl 1998
Ctdl 1998
H畛 L畛i
Ad

More from H畛 L畛i (20)

Xu ly chuoi
Xu ly chuoi
H畛 L畛i
T坦m t畉t c叩c hm chu畉n c畛a c
T坦m t畉t c叩c hm chu畉n c畛a c
H畛 L畛i
T4
T4
H畛 L畛i
Nguyen lyoop
Nguyen lyoop
H畛 L畛i
Lect04 functions
Lect04 functions
H畛 L畛i
Ky thuatkhudequy
Ky thuatkhudequy
H畛 L畛i
Itt epc assignment
Itt epc assignment
H畛 L畛i
Huong danontapc
Huong danontapc
H畛 L畛i
H hai epc_baitap
H hai epc_baitap
H畛 L畛i
Gtrinh oop
Gtrinh oop
H畛 L畛i
Giaotrinhbaitapkythuatlaptrinh
Giaotrinhbaitapkythuatlaptrinh
H畛 L畛i
Giao trinh ky thuat lap trinh 2
Giao trinh ky thuat lap trinh 2
H畛 L畛i
Giao trinh c c++
Giao trinh c c++
H畛 L畛i
File trong c_
File trong c_
H畛 L畛i
Epc assignment
Epc assignment
H畛 L畛i
Epc test practical
Epc test practical
H畛 L畛i
De thic++ --th
De thic++ --th
H畛 L畛i
Dethi c++ -lt
Dethi c++ -lt
H畛 L畛i
Debug trong c
Debug trong c
H畛 L畛i
D05 stl
D05 stl
H畛 L畛i
Xu ly chuoi
Xu ly chuoi
H畛 L畛i
T坦m t畉t c叩c hm chu畉n c畛a c
T坦m t畉t c叩c hm chu畉n c畛a c
H畛 L畛i
Nguyen lyoop
Nguyen lyoop
H畛 L畛i
Lect04 functions
Lect04 functions
H畛 L畛i
Ky thuatkhudequy
Ky thuatkhudequy
H畛 L畛i
Itt epc assignment
Itt epc assignment
H畛 L畛i
Huong danontapc
Huong danontapc
H畛 L畛i
H hai epc_baitap
H hai epc_baitap
H畛 L畛i
Giaotrinhbaitapkythuatlaptrinh
Giaotrinhbaitapkythuatlaptrinh
H畛 L畛i
Giao trinh ky thuat lap trinh 2
Giao trinh ky thuat lap trinh 2
H畛 L畛i
Giao trinh c c++
Giao trinh c c++
H畛 L畛i
File trong c_
File trong c_
H畛 L畛i
Epc assignment
Epc assignment
H畛 L畛i
Epc test practical
Epc test practical
H畛 L畛i
De thic++ --th
De thic++ --th
H畛 L畛i
Dethi c++ -lt
Dethi c++ -lt
H畛 L畛i
Debug trong c
Debug trong c
H畛 L畛i
Ad

Ch tin dhhue2001

  • 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