際際滷

際際滷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 2003
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. Cho ch動董ng tr狸nh:
type link=^node;
node = record key:integer;next:link; end;
var i,N,M:integer; t,x:link;
BEGIN
read(N,M);
new(t);t^.key:=1;x:=t;
for i:=2 to N do
begin
n
end;
ew(t^.next);t:=t^.next; t^.key:=i;
t^.next:=x;
while t<>t^.next do
begin
for i:=1 to M-1 do t:=t^.next;
write(t^.next^.key);
x:=t^.next; t^.next:=t^.next^.next;
dispose(x);
end;
w
END.
riteln(t^.key);
a. Cho bi畉t k畉t qu畉 s畉 動畛c in ra mn h狸nh khi th畛c hi畛n ch動董ng tr狸nh, n畉u d畛
li畛u 動a vo N=5,M=3.
b. Ch動董ng tr狸nh tr棚n th畛c hi畛n c担ng vi畛c g狸?
C但u 2. Ng動畛i ta bi畛u di畛n th担ng tin c叩c c但u l畉c b畛 b坦ng 叩 chuy棚n nghi畛p c畛a m畛t
qu畛c gia d動畛i d畉ng m畛t c但y nh畛 ph但n t狸m ki畉m c坦 kho叩 l TenCLB (t棚n c但u l畉c b畛).
M畛i n炭t c畛a c但y l m畛t b畉n ghi g畛m 4 tr動畛ng: TenCLB v 3 tr動畛ng con tr畛: Left,
Right, First. Hai con tr畛 Left v Right l畉n l動畛t tr畛 t畛i hai n炭t con tr叩i v con ph畉i
c畛a n炭t 坦, con tr畛 First tr畛 t畛i ph畉n t畛 畉u c畛a m畛t danh s叩ch li棚n k畉t 董n ch畛a
th担ng tin c叩c c畉u th畛 thu畛c c但u l畉c b畛 (danh s叩ch ny c坦 鱈t nh畉t l 11 ph畉n t畛). M畛i
ph畉n t畛 c畛a danh s叩ch ny l m畛t b畉n ghi g畛m 4 tr動畛ng: TenCT (t棚n c畉u th畛),
SoAo (s畛 叩o), Tuoi (tu畛i) v Next (l動u 畛a ch畛 c畛a ph畉n t畛 ti畉p theo trong danh
s叩ch). Danh s叩ch ny 動畛c s畉p theo th畛 t畛 tng d畉n c畛a SoAo. Ng動畛i ta cho khai
b叩o c畛a c畉u tr炭c d畛 li畛u n坦i tr棚n nh動 sau:
type St25=String[25];
TroCT=^Cauthu;
Cauthu=record
TenCT:St25;
Tr狸nh by: Tr畉n Hoi Nh但n
2/2
SoAo, Tuoi:byte;
Next: TroCT;
end;
TroCLB=^nut;
Nut = record
TenCLB:st25;
First:TroCT;
Left, Right:TroCLB;
end;
var top:TroCLB;
a. Vi畉t th畛 t畛c:
Procedure List(Club:st25):byte;
畛 in danh s叩ch c叩c c畉u th畛 trong c但u l畉c b畛 c坦 t棚n Club.
b. Vi畉t th畛 t畛c:
Procedure Bosung(ten:TroCLB; Club, Name:str25; t,m:byte);
畛 b畛 sung c畉u th畛 c坦 t棚n Name, t tu畛i v mang s畛 叩o m vo c但u l畉c b畛 c坦
t棚n l Club. Vi畛c b畛 sung ny ch畛 u畛c th畛c hi畛n trong tr動畛ng h畛p c但u l畉c
b畛 Club 達 c坦 trong c但y v ch動a c坦 c畉u th畛 no c畛a c但u l畉c b畛 mang s畛 叩o
m.
c. Vi畉t th畛 t畛c:
Procedure Xoa(Club:st25; m:byte);
畛 xo叩 c畉u th畛 mang s畛 叩o m ra kh畛i c但u l畉c b畛 Club.
d. Vi畉t hm:
Function TuoiMin(Club:st25):byte;
cho bi畉t tu畛i c畛a c畉u th畛 tr畉 nh畉t trong c但u l畉c b畛 c坦 t棚n Club.
C但u 3. Cho m畛t chu畛i c叩c ch畛 s畛 nh畛 ph但n Tn 動畛c x叩c l畉p theo quy t畉c sau:
- T0 = 0
- V畛i i = 1,2,3, Ti nh畉n 動畛c t畛 Ti-1 b畉ng c叩ch thay 畛i 0 b畛i 01 v thay 1
b畛i 10.
V鱈 d畛: T0 = 0
T1 = 01
T2 = 0110
T3 = 01101001
L畉p ch動董ng tr狸nh 畛c vo m畛t s畛 t畛 nhi棚n n v hi畛n th畛 chu畛i Tn.
C但u 4. Vi畉t ch動董ng tr狸nh 畛c vo m畛t s畛 t畛 nhi棚n c董 s畛 10, cho in ra s畛 坦 d動畛i
d畉ng c董 s畛 2.
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

Ch tin dhhue2001
Ch tin dhhue2001
H畛 L畛i
Ctdl 2001
Ctdl 2001
H畛 L畛i
Ch tin dhhue2004
Ch tin dhhue2004
H畛 L畛i
Lanzado Con Exito El Meteosat 10
ruralepic1526
Ch tin dhhue2002
Ch tin dhhue2002
H畛 L畛i
Informe encuestas Turismo Festivo Espa単ol
natmar22
Advanced Achievements
Advanced Achievements
Jackie Wallace
Becoming a superhero in print sales and marketing
Becoming a superhero in print sales and marketing
Joe Kern
Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
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
Edad Media
lygobu78
Sistema endocrino
Jorge Luis Pacheco Alvarez
Go stream hd ((( australia vs srilanka ))) 8 march
Go stream hd ((( australia vs srilanka ))) 8 march
irvin_cherice
Paul auster
elcharcos2006
DIPLOMADO: DESARROLLO DE HABILIDADES DIGITALES PARA LA EDUCACIN
Sergio G坦mez Atta
犖犖犖萎硯犖園犖巌肩犢犖о犖犖園硯 is3
犖犖犖萎硯犖園犖巌肩犢犖о犖犖園硯 is3
Natsuda Srix
Atube catcher
tigremix
Dal Mill Machine
Dal Mill Machine
jamesalbert656
Australia vs srilanka 8 march
Australia vs srilanka 8 march
cymone_gilroy
Ctdl 2002
Ctdl 2002
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i
Ctdl 2004
Ctdl 2004
H畛 L畛i
Ctdl 2007-2
Ctdl 2007-2
H畛 L畛i
Ctdl 2005 - dap an
Ctdl 2005 - dap an
H畛 L畛i
Ctdl 2006
Ctdl 2006
H畛 L畛i
Ch tin dhhue2006
Ch tin dhhue2006
H畛 L畛i
Ctdl 2005
Ctdl 2005
H畛 L畛i
Ctdl 1999
Ctdl 1999
H畛 L畛i
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i

More Related Content

Viewers also liked (12)

Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
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
Edad Media
lygobu78
Sistema endocrino
Jorge Luis Pacheco Alvarez
Go stream hd ((( australia vs srilanka ))) 8 march
Go stream hd ((( australia vs srilanka ))) 8 march
irvin_cherice
Paul auster
elcharcos2006
DIPLOMADO: DESARROLLO DE HABILIDADES DIGITALES PARA LA EDUCACIN
Sergio G坦mez Atta
犖犖犖萎硯犖園犖巌肩犢犖о犖犖園硯 is3
犖犖犖萎硯犖園犖巌肩犢犖о犖犖園硯 is3
Natsuda Srix
Atube catcher
tigremix
Dal Mill Machine
Dal Mill Machine
jamesalbert656
Australia vs srilanka 8 march
Australia vs srilanka 8 march
cymone_gilroy
Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
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
Edad Media
lygobu78
Sistema endocrino
Jorge Luis Pacheco Alvarez
Go stream hd ((( australia vs srilanka ))) 8 march
Go stream hd ((( australia vs srilanka ))) 8 march
irvin_cherice
Paul auster
elcharcos2006
DIPLOMADO: DESARROLLO DE HABILIDADES DIGITALES PARA LA EDUCACIN
Sergio G坦mez Atta
犖犖犖萎硯犖園犖巌肩犢犖о犖犖園硯 is3
犖犖犖萎硯犖園犖巌肩犢犖о犖犖園硯 is3
Natsuda Srix
Atube catcher
tigremix
Australia vs srilanka 8 march
Australia vs srilanka 8 march
cymone_gilroy

Similar to Ch tin dhhue2003 (20)

Ctdl 2002
Ctdl 2002
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i
Ctdl 2004
Ctdl 2004
H畛 L畛i
Ctdl 2007-2
Ctdl 2007-2
H畛 L畛i
Ctdl 2005 - dap an
Ctdl 2005 - dap an
H畛 L畛i
Ctdl 2006
Ctdl 2006
H畛 L畛i
Ch tin dhhue2006
Ch tin dhhue2006
H畛 L畛i
Ctdl 2005
Ctdl 2005
H畛 L畛i
Ctdl 1999
Ctdl 1999
H畛 L畛i
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i
Ctdl 1995
Ctdl 1995
H畛 L畛i
Ctdl 1995 - b
Ctdl 1995 - b
H畛 L畛i
Ctdl 1994 - 1
Ctdl 1994 - 1
H畛 L畛i
Ctdl 1998
Ctdl 1998
H畛 L畛i
Ctdl 1996 - 3
Ctdl 1996 - 3
H畛 L畛i
Ctdl 1996 - 2
Ctdl 1996 - 2
H畛 L畛i
Bi 18 tin hoc 11
Bi 18 tin hoc 11
HaBaoChau
Ctdl 1993
Ctdl 1993
H畛 L畛i
Ctdl ifi 1996
Ctdl ifi 1996
H畛 L畛i
Ctdl de so 13
Ctdl de so 13
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i
Ctdl 2007-2
Ctdl 2007-2
H畛 L畛i
Ctdl 2005 - dap an
Ctdl 2005 - dap an
H畛 L畛i
Ch tin dhhue2006
Ch tin dhhue2006
H畛 L畛i
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i
Ctdl 1995 - b
Ctdl 1995 - b
H畛 L畛i
Ctdl 1994 - 1
Ctdl 1994 - 1
H畛 L畛i
Ctdl 1996 - 3
Ctdl 1996 - 3
H畛 L畛i
Ctdl 1996 - 2
Ctdl 1996 - 2
H畛 L畛i
Bi 18 tin hoc 11
Bi 18 tin hoc 11
HaBaoChau
Ctdl ifi 1996
Ctdl ifi 1996
H畛 L畛i
Ctdl de so 13
Ctdl de so 13
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 dhhue2003

  • 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 2003 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. Cho ch動董ng tr狸nh: type link=^node; node = record key:integer;next:link; end; var i,N,M:integer; t,x:link; BEGIN read(N,M); new(t);t^.key:=1;x:=t; for i:=2 to N do begin n end; ew(t^.next);t:=t^.next; t^.key:=i; t^.next:=x; while t<>t^.next do begin for i:=1 to M-1 do t:=t^.next; write(t^.next^.key); x:=t^.next; t^.next:=t^.next^.next; dispose(x); end; w END. riteln(t^.key); a. Cho bi畉t k畉t qu畉 s畉 動畛c in ra mn h狸nh khi th畛c hi畛n ch動董ng tr狸nh, n畉u d畛 li畛u 動a vo N=5,M=3. b. Ch動董ng tr狸nh tr棚n th畛c hi畛n c担ng vi畛c g狸? C但u 2. Ng動畛i ta bi畛u di畛n th担ng tin c叩c c但u l畉c b畛 b坦ng 叩 chuy棚n nghi畛p c畛a m畛t qu畛c gia d動畛i d畉ng m畛t c但y nh畛 ph但n t狸m ki畉m c坦 kho叩 l TenCLB (t棚n c但u l畉c b畛). M畛i n炭t c畛a c但y l m畛t b畉n ghi g畛m 4 tr動畛ng: TenCLB v 3 tr動畛ng con tr畛: Left, Right, First. Hai con tr畛 Left v Right l畉n l動畛t tr畛 t畛i hai n炭t con tr叩i v con ph畉i c畛a n炭t 坦, con tr畛 First tr畛 t畛i ph畉n t畛 畉u c畛a m畛t danh s叩ch li棚n k畉t 董n ch畛a th担ng tin c叩c c畉u th畛 thu畛c c但u l畉c b畛 (danh s叩ch ny c坦 鱈t nh畉t l 11 ph畉n t畛). M畛i ph畉n t畛 c畛a danh s叩ch ny l m畛t b畉n ghi g畛m 4 tr動畛ng: TenCT (t棚n c畉u th畛), SoAo (s畛 叩o), Tuoi (tu畛i) v Next (l動u 畛a ch畛 c畛a ph畉n t畛 ti畉p theo trong danh s叩ch). Danh s叩ch ny 動畛c s畉p theo th畛 t畛 tng d畉n c畛a SoAo. Ng動畛i ta cho khai b叩o c畛a c畉u tr炭c d畛 li畛u n坦i tr棚n nh動 sau: type St25=String[25]; TroCT=^Cauthu; Cauthu=record TenCT:St25; Tr狸nh by: Tr畉n Hoi Nh但n
  • 2. 2/2 SoAo, Tuoi:byte; Next: TroCT; end; TroCLB=^nut; Nut = record TenCLB:st25; First:TroCT; Left, Right:TroCLB; end; var top:TroCLB; a. Vi畉t th畛 t畛c: Procedure List(Club:st25):byte; 畛 in danh s叩ch c叩c c畉u th畛 trong c但u l畉c b畛 c坦 t棚n Club. b. Vi畉t th畛 t畛c: Procedure Bosung(ten:TroCLB; Club, Name:str25; t,m:byte); 畛 b畛 sung c畉u th畛 c坦 t棚n Name, t tu畛i v mang s畛 叩o m vo c但u l畉c b畛 c坦 t棚n l Club. Vi畛c b畛 sung ny ch畛 u畛c th畛c hi畛n trong tr動畛ng h畛p c但u l畉c b畛 Club 達 c坦 trong c但y v ch動a c坦 c畉u th畛 no c畛a c但u l畉c b畛 mang s畛 叩o m. c. Vi畉t th畛 t畛c: Procedure Xoa(Club:st25; m:byte); 畛 xo叩 c畉u th畛 mang s畛 叩o m ra kh畛i c但u l畉c b畛 Club. d. Vi畉t hm: Function TuoiMin(Club:st25):byte; cho bi畉t tu畛i c畛a c畉u th畛 tr畉 nh畉t trong c但u l畉c b畛 c坦 t棚n Club. C但u 3. Cho m畛t chu畛i c叩c ch畛 s畛 nh畛 ph但n Tn 動畛c x叩c l畉p theo quy t畉c sau: - T0 = 0 - V畛i i = 1,2,3, Ti nh畉n 動畛c t畛 Ti-1 b畉ng c叩ch thay 畛i 0 b畛i 01 v thay 1 b畛i 10. V鱈 d畛: T0 = 0 T1 = 01 T2 = 0110 T3 = 01101001 L畉p ch動董ng tr狸nh 畛c vo m畛t s畛 t畛 nhi棚n n v hi畛n th畛 chu畛i Tn. C但u 4. Vi畉t ch動董ng tr狸nh 畛c vo m畛t s畛 t畛 nhi棚n c董 s畛 10, cho in ra s畛 坦 d動畛i d畉ng c董 s畛 2. 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