![1/2
B? GI?O 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 N?M 2003
M?n thi: Ng?n ng? l?p tr¨¬nh
(D¨¤nh cho cao h?c)
Th?i gian l¨¤m: 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 m¨¤n h¨¬nh khi th?c hi?n ch??ng tr¨¬nh, n?u d?
li?u ??a v¨¤o 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 n¨¤y c¨® ¨ªt nh?t l¨¤ 11 ph?n t?). M?i
ph?n t? c?a danh s¨¢ch n¨¤y 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 n¨¤y ???c s?p theo th? t? t?ng 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 b¨¤y: Tr?n Ho¨¤i Nh?n](https://image.slidesharecdn.com/ctdl-2003-150427150915-conversion-gate01/85/Ctdl-2003-1-320.jpg)
Ctdl 2003
- 1. 1/2 B? GI?O 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 N?M 2003 M?n thi: Ng?n ng? l?p tr¨¬nh (D¨¤nh cho cao h?c) Th?i gian l¨¤m: 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 m¨¤n h¨¬nh khi th?c hi?n ch??ng tr¨¬nh, n?u d? li?u ??a v¨¤o 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 n¨¤y c¨® ¨ªt nh?t l¨¤ 11 ph?n t?). M?i ph?n t? c?a danh s¨¢ch n¨¤y 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 n¨¤y ???c s?p theo th? t? t?ng 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 b¨¤y: Tr?n Ho¨¤i 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 v¨¤o c?u l?c b? c¨® t¨ºn l¨¤ Club. Vi?c b? sung n¨¤y 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? n¨¤o 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 h¨¤m: 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 v¨¤o m?t s? t? nhi¨ºn n v¨¤ hi?n th? chu?i Tn. C?u 4. Vi?t ch??ng tr¨¬nh ??c v¨¤o 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 b¨¤y: Tr?n Ho¨¤i Nh?n