![?? 16 1/2
?? THI IFI 9/96
M?n thi: Tin h?c
B¨¤i 1. H?y cho bi?t k?t qu? hi?n th? c?a ch??ng tr¨¬nh sau ??y v¨¤ gi?i th¨ªch k?t qu?
?¨®.
Program IFI(output);
Var i:integer;
A:array[1..10]of integer;
Function mot:integer;
Begin
i:=i+1;
Mot:=1;
End;
Begin
For i:=1 to 10 do a[i]:=i*1;
i:=5;
a[mot+i]:=a[mot+i];
For i:=1 to 10 do write(output,a[i]:4);
Writeln;
End.
B¨¤i 2. H?y vi?t m?t ch??ng tr¨¬nh ?? quy cho ph¨¦p s?n sinh v¨¤ hi?n th? t?t c? d?y n
bit (t?c l¨¤ d?y c¨¢c s? 0,1 c¨® ?? d¨¤i n, ch?ng h?n l?y n = 10).
B¨¤i 3. Ng??i ta bi?u di?n c¨¢c th?ng tin c?a m?t th? vi?n d??i d?ng m?t c?y t¨¬m
ki?m nh? ph?n v?i kh¨®a l¨¤ TenTG (t¨ºn t¨¢c gi?). M?i n¨²t c?a c?y l¨¤ m?t b?n ghi
g?m tr??ng TenTG v¨¤ 4 tr??ng con tr?: hai con tr? Trai v¨¤ Phai l?n l??t tr? t?i c¨¢c
n¨²t con tr¨¢i v¨¤ n¨²t con ph?i, hai n¨²t Dau v¨¤ Cuoi l?n l??t tr? t?i ph?n t? ??u v¨¤
ph?n t? cu?i c?a m?t danh s¨¢ch tuy?n t¨ªnh m¨®c n?i d¨´ng ?? ghi nh?n c¨¢c s¨¢ch c¨®
trong th? vi?n c?a t¨¢c gi? ?¨®. M?i ph?n t? c?a danh s¨¢ch n¨¤y l¨¤ m?t b?n ghi g?m
c¨® hai tr??ng: tr??ng TenSach v¨¤ tr??ng TiepTheo. C¨® th? h¨¬nh dung c?y nh? h¨¬nh
v? sau:
Goc
Nam
Lien Yen ¡Á
¡Á An ¡Á ¡Á Long ¡Á ¡Á Sinh ¡Á
¡... ¡...
¡...¡...¡...
Tr¨¬nh b¨¤y: Tr?n Ho¨¤i Nh?n](https://image.slidesharecdn.com/ctdl-ifi1996-150427150957-conversion-gate02/85/Ctdl-ifi-1996-1-320.jpg)
![?? 16 2/2
Ng??i ta cho khai b¨¢o c?u tr¨²c d? li?u n¨®i tr¨ºn nh? sau:
Type str25=string[25];
Trosach=^sach;
Sach=record
Tensach:string;
Tieptheo:trosach;
End;
troTg=^tacgia;
tacgia=record
trai:troTg;
tentg:str25;
dau,cuoi:trosach;
phai:troTg;
end;
var goc:troTg;
a. H?y vi?t m?t h¨¤m
Function nut(goc:troTg;ten:str25):troTg;
Cho k?t qu? l¨¤ m?t con tr?.
* B?ng Nil khi goc = nil, n?u kh?ng th¨¬
* Tr? t?i n¨²t c¨® TenTg = ten, n?u n¨²t ?¨® t?n t?i, n?u kh?ng th¨¬
* Tr? t?i m?t n¨²t trong ?¨® Ten > TenTG v¨¤ Trai = Nil, ho?c l¨¤
* Tr? t?i m?t n¨²t trong ?¨® Ten > TenTG v¨¤ Phai = Nil.
b. H?y vi?t m?t th? t?c:
Procedure Bosung(var goc:trTG; Ten:str25;tuade:string);
Cho ph¨¦p b? sung t¨ºn m?t t¨¢c gi? (ten) v?i m?t cu?n s¨¢ch (TuaDe) v¨¤o th?
vi?n tr? b?i Goc theo c¨¢ch sau:
? N?u Ten v¨¤ TuaDe ch?a c¨® trong th? vi?n th¨¬ kh?ng ph?i l¨¤m g¨¬ n?a.
? N?u Ten ?? c¨® v¨¤ TuaDe ch?a c¨® th¨¬ b? sung TuaDe ?¨® v¨¤o cu?i danh
s¨¢ch t??ng ?ng v?i n¨²t c¨® t¨ºn TenTG = Ten.
? N?u Ten v¨¤ TuaDe ??u ch?a c¨® th¨¬ b? sung m?t n¨²t m?i v¨¤o th? vi?n,
v?i TenTg = Ten v¨¤ TenSach = TuaDe.
Tr¨¬nh b¨¤y: Tr?n Ho¨¤i Nh?n](https://image.slidesharecdn.com/ctdl-ifi1996-150427150957-conversion-gate02/85/Ctdl-ifi-1996-2-320.jpg)
Ctdl ifi 1996
- 1. ?? 16 1/2 ?? THI IFI 9/96 M?n thi: Tin h?c B¨¤i 1. H?y cho bi?t k?t qu? hi?n th? c?a ch??ng tr¨¬nh sau ??y v¨¤ gi?i th¨ªch k?t qu? ?¨®. Program IFI(output); Var i:integer; A:array[1..10]of integer; Function mot:integer; Begin i:=i+1; Mot:=1; End; Begin For i:=1 to 10 do a[i]:=i*1; i:=5; a[mot+i]:=a[mot+i]; For i:=1 to 10 do write(output,a[i]:4); Writeln; End. B¨¤i 2. H?y vi?t m?t ch??ng tr¨¬nh ?? quy cho ph¨¦p s?n sinh v¨¤ hi?n th? t?t c? d?y n bit (t?c l¨¤ d?y c¨¢c s? 0,1 c¨® ?? d¨¤i n, ch?ng h?n l?y n = 10). B¨¤i 3. Ng??i ta bi?u di?n c¨¢c th?ng tin c?a m?t th? vi?n d??i d?ng m?t c?y t¨¬m ki?m nh? ph?n v?i kh¨®a l¨¤ TenTG (t¨ºn t¨¢c gi?). M?i n¨²t c?a c?y l¨¤ m?t b?n ghi g?m tr??ng TenTG v¨¤ 4 tr??ng con tr?: hai con tr? Trai v¨¤ Phai l?n l??t tr? t?i c¨¢c n¨²t con tr¨¢i v¨¤ n¨²t con ph?i, hai n¨²t Dau v¨¤ Cuoi l?n l??t tr? t?i ph?n t? ??u v¨¤ ph?n t? cu?i c?a m?t danh s¨¢ch tuy?n t¨ªnh m¨®c n?i d¨´ng ?? ghi nh?n c¨¢c s¨¢ch c¨® trong th? vi?n c?a t¨¢c gi? ?¨®. M?i ph?n t? c?a danh s¨¢ch n¨¤y l¨¤ m?t b?n ghi g?m c¨® hai tr??ng: tr??ng TenSach v¨¤ tr??ng TiepTheo. C¨® th? h¨¬nh dung c?y nh? h¨¬nh v? sau: Goc Nam Lien Yen ¡Á ¡Á An ¡Á ¡Á Long ¡Á ¡Á Sinh ¡Á ¡... ¡... ¡...¡...¡... Tr¨¬nh b¨¤y: Tr?n Ho¨¤i Nh?n
- 2. ?? 16 2/2 Ng??i ta cho khai b¨¢o c?u tr¨²c d? li?u n¨®i tr¨ºn nh? sau: Type str25=string[25]; Trosach=^sach; Sach=record Tensach:string; Tieptheo:trosach; End; troTg=^tacgia; tacgia=record trai:troTg; tentg:str25; dau,cuoi:trosach; phai:troTg; end; var goc:troTg; a. H?y vi?t m?t h¨¤m Function nut(goc:troTg;ten:str25):troTg; Cho k?t qu? l¨¤ m?t con tr?. * B?ng Nil khi goc = nil, n?u kh?ng th¨¬ * Tr? t?i n¨²t c¨® TenTg = ten, n?u n¨²t ?¨® t?n t?i, n?u kh?ng th¨¬ * Tr? t?i m?t n¨²t trong ?¨® Ten > TenTG v¨¤ Trai = Nil, ho?c l¨¤ * Tr? t?i m?t n¨²t trong ?¨® Ten > TenTG v¨¤ Phai = Nil. b. H?y vi?t m?t th? t?c: Procedure Bosung(var goc:trTG; Ten:str25;tuade:string); Cho ph¨¦p b? sung t¨ºn m?t t¨¢c gi? (ten) v?i m?t cu?n s¨¢ch (TuaDe) v¨¤o th? vi?n tr? b?i Goc theo c¨¢ch sau: ? N?u Ten v¨¤ TuaDe ch?a c¨® trong th? vi?n th¨¬ kh?ng ph?i l¨¤m g¨¬ n?a. ? N?u Ten ?? c¨® v¨¤ TuaDe ch?a c¨® th¨¬ b? sung TuaDe ?¨® v¨¤o cu?i danh s¨¢ch t??ng ?ng v?i n¨²t c¨® t¨ºn TenTG = Ten. ? N?u Ten v¨¤ TuaDe ??u ch?a c¨® th¨¬ b? sung m?t n¨²t m?i v¨¤o th? vi?n, v?i TenTg = Ten v¨¤ TenSach = TuaDe. Tr¨¬nh b¨¤y: Tr?n Ho¨¤i Nh?n