![畛 20 1/2
畛 THI MN TIN H畛C IFI 97
(120 ph炭t)
Bi 1. Cho bi畉t k畉t qu畉 in ra c畛a ch動董ng tr狸nh sau 但y v gi畉i th鱈ch k畉t qu畉 坦.
Program IFI97(Output)
Var i:integer;
a:array[1..2]of integer;
Procedure ky_cuc(var a1,a2:integer);
Var t:integer;
Begin
t:=a1;
a2:=a2+1;
If t<>a1 then writeln(ky cuc!);
End;
BEGIN
i:=1;
A[1]:=1;
A[2]:=1;
Ky_cuc(i,i);
Ky_cuc(a[i],a[i]);
W
END.
riteln(i,a[1],a[2]);
Bi 2. H達y vi畉t m畛t ch動董ng tr狸nh 畛 qui 畛 t狸m ph畉n t畛 l畛n nh畉t trong m畛t m畉ng
A[1..n] (c叩c ph畉n t畛 c畛a m畉ng l c叩c s畛 nguy棚n) b畉ng c叩ch chia 担i m畉ng, ph畛ng
theo 箪 t動畛ng c畛a gi畉i thu畉t t狸m ki畉m nh畛 ph但n.
Bi 3: Cho khai b叩o c畛a m畛t danh s叩ch tuy畉n t鱈nh m坦c n畛i nh動 sau:
Type contro=^kieuphantu;
Kieuphantu=record
Giatri:integer;
Tieptheo:contro;
End;
Var danhsach: contro;
H達y vi畉t m畛t hm
Function da_sap(danhsach:contro):boolean;
cho ph辿p ki畛m tra m畛t danh s叩ch l 達 動畛c s畉p th畛 t畛 (kh担ng gi畉m) theo tr動畛ng
giatri ch動a. H達y vi畉t hm theo hai c叩ch: D畉ng l畉p v d畉ng 畛 qui.
Bi 4. Ng動畛i ta bi畛u di畛n m畛t bi畛u th畛c s畛 h畛c v畛i c叩c to叩n t畛 c畛ng, tr畛, nh但n,
chia hai ng担i v c畛ng, tr畛 m畛t ng担i b畉ng m畛t c但y, trong 坦 m畛t to叩n t畛 動畛c ch畛a
畛 m畛t n炭t trong v m畛i bi畉n 動畛c ch畛a 畛 m畛t l叩 c畛a c但y. Ch畉ng h畉n: bi畛u th畛c v畛i
ngo畉c 董n 畉y 畛 (((a-b)*x)-(((-c)/d)/e)) 動畛c bi畛u di畛n b畛i c但y sau:
Tr狸nh by: Tr畉n Hoi Nh但n](https://image.slidesharecdn.com/ctdl-ifi1997-150427151000-conversion-gate01/85/Ctdl-ifi-1997-1-320.jpg)
Ctdl ifi 1997
- 1. 畛 20 1/2 畛 THI MN TIN H畛C IFI 97 (120 ph炭t) Bi 1. Cho bi畉t k畉t qu畉 in ra c畛a ch動董ng tr狸nh sau 但y v gi畉i th鱈ch k畉t qu畉 坦. Program IFI97(Output) Var i:integer; a:array[1..2]of integer; Procedure ky_cuc(var a1,a2:integer); Var t:integer; Begin t:=a1; a2:=a2+1; If t<>a1 then writeln(ky cuc!); End; BEGIN i:=1; A[1]:=1; A[2]:=1; Ky_cuc(i,i); Ky_cuc(a[i],a[i]); W END. riteln(i,a[1],a[2]); Bi 2. H達y vi畉t m畛t ch動董ng tr狸nh 畛 qui 畛 t狸m ph畉n t畛 l畛n nh畉t trong m畛t m畉ng A[1..n] (c叩c ph畉n t畛 c畛a m畉ng l c叩c s畛 nguy棚n) b畉ng c叩ch chia 担i m畉ng, ph畛ng theo 箪 t動畛ng c畛a gi畉i thu畉t t狸m ki畉m nh畛 ph但n. Bi 3: Cho khai b叩o c畛a m畛t danh s叩ch tuy畉n t鱈nh m坦c n畛i nh動 sau: Type contro=^kieuphantu; Kieuphantu=record Giatri:integer; Tieptheo:contro; End; Var danhsach: contro; H達y vi畉t m畛t hm Function da_sap(danhsach:contro):boolean; cho ph辿p ki畛m tra m畛t danh s叩ch l 達 動畛c s畉p th畛 t畛 (kh担ng gi畉m) theo tr動畛ng giatri ch動a. H達y vi畉t hm theo hai c叩ch: D畉ng l畉p v d畉ng 畛 qui. Bi 4. Ng動畛i ta bi畛u di畛n m畛t bi畛u th畛c s畛 h畛c v畛i c叩c to叩n t畛 c畛ng, tr畛, nh但n, chia hai ng担i v c畛ng, tr畛 m畛t ng担i b畉ng m畛t c但y, trong 坦 m畛t to叩n t畛 動畛c ch畛a 畛 m畛t n炭t trong v m畛i bi畉n 動畛c ch畛a 畛 m畛t l叩 c畛a c但y. Ch畉ng h畉n: bi畛u th畛c v畛i ngo畉c 董n 畉y 畛 (((a-b)*x)-(((-c)/d)/e)) 動畛c bi畛u di畛n b畛i c但y sau: Tr狸nh by: Tr畉n Hoi Nh但n
- 2. 畛 20 2/2 - * / + c / e a b - d c a. Vi畉t khai b叩o c畛a c但y n坦i tr棚n. Gi畉 s畛 r畉ng m畛i bi畉n c坦 m畛t gi叩 tr畛 cho tr動畛c, h達y vi畉t m畛i ch動董ng tr狸nh con cho ph辿p, t畛 m畛t c但y 達 thnh l畉p 畛 b畛 nh畛 trong nh動 tr棚n, t鱈nh gi叩 tr畛 c畛a bi畛u th畛c s畛 h畛c li棚n quan. b. Gi畉 s畛 m畛t bi畛u th畛c s畛 h畛c v畛i ngo畉c 董n 畉y 畛 達 動畛c 畛c s畉n vo m畛t bi畉n ki畛u STRING. H達y vi畉t m畛t ch動董ng trinh con thnh l畉p c但y bi畛u di畛n bi畛u th畛c 坦, c但y ny 動畛c l動u 畛 b畛 nh畛 trong c畛a m叩y t鱈nh. Tr狸nh by: Tr畉n Hoi Nh但n