際際滷

際際滷Share a Scribd company logo

Ctdl 1997

H畛 L畛i
H畛 L畛i
1 of 2
Download to read offline
畛 11 1/2 畛 thi tuy畛n sinh Cao h畛c 1997 M担n: Tin h畛c Th畛i gian: 120 ph炭t Kh担ng 動畛c s畛 d畛ng ti li畛u. Bi 1. X辿t d達y s畛 a1, a2,, an v畛i 0 < n 100. H達y vi畉t c叩c ch動董ng tr狸nh con th畛c hi畛n c叩c c担ng vi畛c sau: 1. 畛c c叩c gi叩 tr畛 a1, a2,, an t畛 bn ph鱈m v ki畛m tra d達y nh畉n 動畛c c坦 ph畉i v m畛t ho叩n v畛 c畛a {1,2,,n} hay kh担ng? 2. Ph但n chia d達y a1, a2,, an thnh c叩c d達y con tng d畉n c坦 畛 di c畛c 畉i. H達y vi畉t theo 2 ph動董ng 叩n 畛 qui v kh担ng 畛 qui. Ch畉ng h畉n, v畛i n = 6 v d達y 3, 2, 4, 1, 6, 5 ta chia thnh c叩c d達y con {3} {2,4} {1,6} {5}. Bi 2. Cho ch動董ng tr狸nh Program Thumotty; Var y,a,b:integer; Function h1(y:integer):integer; Begin Y:=y+3; H1:=y-1; End; Function h2(var y:integer):integer; Begin Y:=y-3; H2:=y+1; End; BEGIN Y:=6; A:=y*h1(y)+h2(y); writeln(y); writeln(a); B:=y*(h2(y)+h1(y)); writeln(y); writeln(b); END. C叩c k畉t qu畉 動畛c in ra trong ch動董ng trinh l bao nhi棚u? Gi畉i th鱈ch? Bi 3. K畉t qu畉 thi 畉i h畛c c畛a m畛t l畛p 動畛c l動u l畉i trong m畛t danh s叩ch tuy畉n t鱈nh m坦c n畛i v畛i c叩c n炭t 動畛c khai b叩o nh動 sau: Type tro=^nut Nut=record Sohieu:integer; Ten:alpha; Toan,ly,hoa:real; Tiep:tro; End; Tr狸nh by: Tr畉n Hoi Nh但n
畛 11 2/2 畉u c畛a danh s叩ch 動畛c tr畛 b畛i bi畉n dau Var dau:tro; H達y vi畉t c叩c ch動畛ng tr狸nh con: 1. Procedure Nhap(var dau:tro; sh:integer; name:alpha; t,l,h:real); Cho ph辿p nh畉p s畛 hi畛u sh, t棚n c畛a h畛c sinh name, v c叩c i畛m to叩n, l箪, h坦a 動畛c cho b畛i t, l, h t動董ng 畛ng v畛i m畛t n炭t m畛i s畉 畉t 畛 cu畛i danh s叩ch c畛a l畛p 動畛c nh畛 b畛i con tr畛 Dau. 2. Procedure ketqua(dchuan:real; dau:tro; var do, truot:tro); Cho ph辿p th担ng b叩o d叩nh s叩ch h畛c sinh 畛 (c坦 t畛ng c叩c i畛m to叩n, l箪, h坦a l畛n h董n ho畉c b畉ng i畛m chu畉n dchuan), danh s叩ch ny 動畛c tr畛 b畛i con tr畛 do v danh s叩ch c叩c h畛c sinh b畛 tr動畛t, 動畛c tr畛 b畛i truot. Y畉u c畉u: Kh担ng ch辿p l畉i c叩c ph畉n t畛 c畛a danh s叩nh l畛p h畛c sinh sang m畛t v湛ng nh畛 ngoi danh s叩ch 達 cho. Tr狸nh by: Tr畉n Hoi Nh但n

More Related Content

Ctdl 1997

  • 1. 畛 11 1/2 畛 thi tuy畛n sinh Cao h畛c 1997 M担n: Tin h畛c Th畛i gian: 120 ph炭t Kh担ng 動畛c s畛 d畛ng ti li畛u. Bi 1. X辿t d達y s畛 a1, a2,, an v畛i 0 < n 100. H達y vi畉t c叩c ch動董ng tr狸nh con th畛c hi畛n c叩c c担ng vi畛c sau: 1. 畛c c叩c gi叩 tr畛 a1, a2,, an t畛 bn ph鱈m v ki畛m tra d達y nh畉n 動畛c c坦 ph畉i v m畛t ho叩n v畛 c畛a {1,2,,n} hay kh担ng? 2. Ph但n chia d達y a1, a2,, an thnh c叩c d達y con tng d畉n c坦 畛 di c畛c 畉i. H達y vi畉t theo 2 ph動董ng 叩n 畛 qui v kh担ng 畛 qui. Ch畉ng h畉n, v畛i n = 6 v d達y 3, 2, 4, 1, 6, 5 ta chia thnh c叩c d達y con {3} {2,4} {1,6} {5}. Bi 2. Cho ch動董ng tr狸nh Program Thumotty; Var y,a,b:integer; Function h1(y:integer):integer; Begin Y:=y+3; H1:=y-1; End; Function h2(var y:integer):integer; Begin Y:=y-3; H2:=y+1; End; BEGIN Y:=6; A:=y*h1(y)+h2(y); writeln(y); writeln(a); B:=y*(h2(y)+h1(y)); writeln(y); writeln(b); END. C叩c k畉t qu畉 動畛c in ra trong ch動董ng trinh l bao nhi棚u? Gi畉i th鱈ch? Bi 3. K畉t qu畉 thi 畉i h畛c c畛a m畛t l畛p 動畛c l動u l畉i trong m畛t danh s叩ch tuy畉n t鱈nh m坦c n畛i v畛i c叩c n炭t 動畛c khai b叩o nh動 sau: Type tro=^nut Nut=record Sohieu:integer; Ten:alpha; Toan,ly,hoa:real; Tiep:tro; End; Tr狸nh by: Tr畉n Hoi Nh但n
  • 2. 畛 11 2/2 畉u c畛a danh s叩ch 動畛c tr畛 b畛i bi畉n dau Var dau:tro; H達y vi畉t c叩c ch動畛ng tr狸nh con: 1. Procedure Nhap(var dau:tro; sh:integer; name:alpha; t,l,h:real); Cho ph辿p nh畉p s畛 hi畛u sh, t棚n c畛a h畛c sinh name, v c叩c i畛m to叩n, l箪, h坦a 動畛c cho b畛i t, l, h t動董ng 畛ng v畛i m畛t n炭t m畛i s畉 畉t 畛 cu畛i danh s叩ch c畛a l畛p 動畛c nh畛 b畛i con tr畛 Dau. 2. Procedure ketqua(dchuan:real; dau:tro; var do, truot:tro); Cho ph辿p th担ng b叩o d叩nh s叩ch h畛c sinh 畛 (c坦 t畛ng c叩c i畛m to叩n, l箪, h坦a l畛n h董n ho畉c b畉ng i畛m chu畉n dchuan), danh s叩ch ny 動畛c tr畛 b畛i con tr畛 do v danh s叩ch c叩c h畛c sinh b畛 tr動畛t, 動畛c tr畛 b畛i truot. Y畉u c畉u: Kh担ng ch辿p l畉i c叩c ph畉n t畛 c畛a danh s叩nh l畛p h畛c sinh sang m畛t v湛ng nh畛 ngoi danh s叩ch 達 cho. Tr狸nh by: Tr畉n Hoi Nh但n