際際滷

際際滷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 2002
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 khai b叩o m畛t danh d叩ch li棚n k畉t 董n nh動 sau:
type TroNut=^Nut;
Nut=record
giatri:integer;
t
end;
iep:TroNut;
var First:TroNut;
Vi畉t th畛 t畛c 畛 quy:
procedure InNguoc(First:TroNut);
th畛c hi畛n vi畛c in gi叩 tr畛 (tr動畛ng giatri) c叩c n炭t theo th畛 t畛 ng動畛c l畉i.
C但u 2. Ng動畛i ta bi畛n di畛n th担ng tin v畛 c叩c nh畉c s挑 d動畛i d畉ng m畛t c但y nh畛 ph但n t狸m
ki畉m c坦 kho叩 TenNS (t棚n nh畉c s挑). M畛i n炭t c畛a c但y l m畛t b畉n ghi g畛m tr動畛ng
TenNS 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 b畉n nh畉c c畛a nh畉c s挑. M畛i ph畉n t畛 c畛a
danh s叩ch ny l m畛t b畉n ghi g畛m 3 tr動畛ng: TenBH (t棚n bi h叩t), Nam (nm ra 畛i
bi h叩t) 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 Nam.
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];
TroNP=^Nhacphan;
NhacPham=record
TenBH:String;
Nam:word;
Next:TroNP;
end;
TroNS=^nut;
Nut=record
TenNS:st25;
First:TroNP;
Left,Right:TroNS;
end;
var Top:TroNS;
1. Vi畉t hm
Function NumSong(Name:st25):byte;
tr畉 v畛 c叩c nh畉c ph畉m c畛a nh畉c s挑 c坦 t棚n Name.
2. Vi畉t th畛 t畛c
Tr狸nh by: Tr畉n Hoi Nh但n
2/2
Procedure LastSong(Name:St25);
in l棚n c叩c bi h叩t ra 畛i trong nm cu畛i c湛ng (trong danh s叩ch) c畛a nh畉c s挑
c坦 t棚n Name.
C但u 3. Cho m畛t ch動董ng tr狸nh vi畉t theo Pascal nh動 sau:
var x:integer;
Procedure Them2Bot1(var x:integer; y:integer);
begin
writeln(x,y:4); inc(x,2);
if y>0 then
begin
dec(y); Them2Bot1(x,y);
end;
writeln(x,y:4);
end;
BEGIN
x:=5;Them2Bot1(x,x);
END.
H達y vi畉t c叩c k畉t qu畉 in ra khi th畛c hi畛n ch動董ng tr狸nh tr棚n.
C但u 4. Vi畉t ch動董ng tr狸nh 畛c vo m畛t s畛 t畛 nhi棚n n, sau 坦 cho in ra t畉t c畉 c叩c s畛
nguy棚n t畛 kh担ng nh畛 h董n 2 v kh担ng l畛n h畛n n.
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
Ch tin dhhue2004
Ch tin dhhue2004
H畛 L畛i
Lanzado Con Exito El Meteosat 10
ruralepic1526
Ch tin dhhue2003
Ch tin dhhue2003
H畛 L畛i
Life in Oxford current2.3_2015 (3)
Life in Oxford current2.3_2015 (3)
Nicholas Bensted
Advanced Achievements
Advanced Achievements
Jackie Wallace
Informe encuestas Turismo Festivo Espa単ol
natmar22
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
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
Go stream hd ((( australia vs srilanka ))) 8 march
Go stream hd ((( australia vs srilanka ))) 8 march
irvin_cherice
Pr叩ctica 1
YamiAi
Us4
Us4
Ashish Khare
Food for health
Food for health
Fitri Indra Wardhono
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i
Ctdl 2003
Ctdl 2003
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i
Ctdl 2001
Ctdl 2001
H畛 L畛i
Ctdl 2007-2
Ctdl 2007-2
H畛 L畛i
Ctdl 2005
Ctdl 2005
H畛 L畛i
Ctdl 2004
Ctdl 2004
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 1995 - b
Ctdl 1995 - b
H畛 L畛i
Ctdl 1995
Ctdl 1995
H畛 L畛i
Ctdl ifi 1996
Ctdl ifi 1996
H畛 L畛i
Cau hoi trac nghiem tin 11 hoc ky 2
Cau hoi trac nghiem tin 11 hoc ky 2
Nguyen Cong Nguyen

More Related Content

Viewers also liked (9)

Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
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
Go stream hd ((( australia vs srilanka ))) 8 march
Go stream hd ((( australia vs srilanka ))) 8 march
irvin_cherice
Pr叩ctica 1
YamiAi
Us4
Us4
Ashish Khare
Food for health
Food for health
Fitri Indra Wardhono
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i
Ch tin dhhue2005
Ch tin dhhue2005
H畛 L畛i
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
Go stream hd ((( australia vs srilanka ))) 8 march
Go stream hd ((( australia vs srilanka ))) 8 march
irvin_cherice
Pr叩ctica 1
YamiAi
Ctdl 1996 - 1
Ctdl 1996 - 1
H畛 L畛i

Similar to Ch tin dhhue2002 (20)

Ctdl 2003
Ctdl 2003
H畛 L畛i
Ctdl 2007-1
Ctdl 2007-1
H畛 L畛i
Ctdl 2001
Ctdl 2001
H畛 L畛i
Ctdl 2007-2
Ctdl 2007-2
H畛 L畛i
Ctdl 2005
Ctdl 2005
H畛 L畛i
Ctdl 2004
Ctdl 2004
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 1995 - b
Ctdl 1995 - b
H畛 L畛i
Ctdl 1995
Ctdl 1995
H畛 L畛i
Ctdl ifi 1996
Ctdl ifi 1996
H畛 L畛i
Cau hoi trac nghiem tin 11 hoc ky 2
Cau hoi trac nghiem tin 11 hoc ky 2
Nguyen Cong Nguyen
畛 thi m畉u tr畉c nghi畛m c畉u tr炭c d畛 li畛u c gi畉i thu畉t
畛 thi m畉u tr畉c nghi畛m c畉u tr炭c d畛 li畛u c gi畉i thu畉t
H動畛ng Nguy畛n
Baigiang ctdl
Baigiang ctdl
H畛 L畛i
trac-nghiem-cau-truc-du-lieu-va-giai-thuat.pdf
trac-nghiem-cau-truc-du-lieu-va-giai-thuat.pdf
NguynVnTun74
Ctdl 1996 - 3
Ctdl 1996 - 3
H畛 L畛i
Ctdl 1994 - 1
Ctdl 1994 - 1
H畛 L畛i
Bi 18 tin hoc 11
Bi 18 tin hoc 11
HaBaoChau
Ctdl 1996 - 2
Ctdl 1996 - 2
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 1995 - b
Ctdl 1995 - b
H畛 L畛i
Ctdl ifi 1996
Ctdl ifi 1996
H畛 L畛i
Cau hoi trac nghiem tin 11 hoc ky 2
Cau hoi trac nghiem tin 11 hoc ky 2
Nguyen Cong Nguyen
畛 thi m畉u tr畉c nghi畛m c畉u tr炭c d畛 li畛u c gi畉i thu畉t
畛 thi m畉u tr畉c nghi畛m c畉u tr炭c d畛 li畛u c gi畉i thu畉t
H動畛ng Nguy畛n
Baigiang ctdl
Baigiang ctdl
H畛 L畛i
trac-nghiem-cau-truc-du-lieu-va-giai-thuat.pdf
trac-nghiem-cau-truc-du-lieu-va-giai-thuat.pdf
NguynVnTun74
Ctdl 1996 - 3
Ctdl 1996 - 3
H畛 L畛i
Ctdl 1994 - 1
Ctdl 1994 - 1
H畛 L畛i
Bi 18 tin hoc 11
Bi 18 tin hoc 11
HaBaoChau
Ctdl 1996 - 2
Ctdl 1996 - 2
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 dhhue2002

  • 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 2002 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 khai b叩o m畛t danh d叩ch li棚n k畉t 董n nh動 sau: type TroNut=^Nut; Nut=record giatri:integer; t end; iep:TroNut; var First:TroNut; Vi畉t th畛 t畛c 畛 quy: procedure InNguoc(First:TroNut); th畛c hi畛n vi畛c in gi叩 tr畛 (tr動畛ng giatri) c叩c n炭t theo th畛 t畛 ng動畛c l畉i. C但u 2. Ng動畛i ta bi畛n di畛n th担ng tin v畛 c叩c nh畉c s挑 d動畛i d畉ng m畛t c但y nh畛 ph但n t狸m ki畉m c坦 kho叩 TenNS (t棚n nh畉c s挑). M畛i n炭t c畛a c但y l m畛t b畉n ghi g畛m tr動畛ng TenNS 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 b畉n nh畉c c畛a nh畉c s挑. M畛i ph畉n t畛 c畛a danh s叩ch ny l m畛t b畉n ghi g畛m 3 tr動畛ng: TenBH (t棚n bi h叩t), Nam (nm ra 畛i bi h叩t) 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 Nam. 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]; TroNP=^Nhacphan; NhacPham=record TenBH:String; Nam:word; Next:TroNP; end; TroNS=^nut; Nut=record TenNS:st25; First:TroNP; Left,Right:TroNS; end; var Top:TroNS; 1. Vi畉t hm Function NumSong(Name:st25):byte; tr畉 v畛 c叩c nh畉c ph畉m c畛a nh畉c s挑 c坦 t棚n Name. 2. Vi畉t th畛 t畛c Tr狸nh by: Tr畉n Hoi Nh但n
  • 2. 2/2 Procedure LastSong(Name:St25); in l棚n c叩c bi h叩t ra 畛i trong nm cu畛i c湛ng (trong danh s叩ch) c畛a nh畉c s挑 c坦 t棚n Name. C但u 3. Cho m畛t ch動董ng tr狸nh vi畉t theo Pascal nh動 sau: var x:integer; Procedure Them2Bot1(var x:integer; y:integer); begin writeln(x,y:4); inc(x,2); if y>0 then begin dec(y); Them2Bot1(x,y); end; writeln(x,y:4); end; BEGIN x:=5;Them2Bot1(x,x); END. H達y vi畉t c叩c k畉t qu畉 in ra khi th畛c hi畛n ch動董ng tr狸nh tr棚n. C但u 4. Vi畉t ch動董ng tr狸nh 畛c vo m畛t s畛 t畛 nhi棚n n, sau 坦 cho in ra t畉t c畉 c叩c s畛 nguy棚n t畛 kh担ng nh畛 h董n 2 v kh担ng l畛n h畛n n. 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