H I THI TIN H C TRỘ Ọ Ẻ
T NH KIÊN GIANGỈ
NĂM 2015
(Đ thi có 0ề7 trang)
Đ THI LÝ THUY T – B NG C2Ề Ế Ả
Ngày thi: 23/5/2015
Th i gian làm bài: 30 phút; (30 câu tr c nghi m)ờ ắ ệ
H , tên thí sinh:.................................................S báo danh:.....................ọ ố Mã đ thiề
246
Thí sinh ch n ý tr l i đúng nh t trong m i câu và tô vào PHI U TR L I TR C NGHI M:ọ ả ờ ấ ỗ Ế Ả Ờ Ắ Ệ
(Ví d : câu 1 đúng ý A thì tô nh hình ụ ư )
Câu 1: Cho hàm sau:
Function F(x,y: Integer): Integer;
Begin
F:=0;
If x < y then F:=x else if x>y then F:=y;
End.
Giá tr c a F(9,9) là?ị ủ
A. 0B. 9C. 4D. 3
Câu 2: Đ tìm đng đi ng n nh t gi a m i c p đnh c a đ th , ta dùng thu t toán nào sau đây:ể ườ ắ ấ ữ ọ ặ ỉ ủ ồ ị ậ
A. Thu t toán DIJKSTRAậB. Thu t toán FLOYPậ
C. Thu t toán FORD BELLMANậD. Thu t toán PRIMậ
Câu 3: Đ tìm cây khung nh nh t ta áp d ng thu t toán nào sau đây:ể ỏ ấ ụ ậ
A. Thu t toán FLOYPậB. Thu t toán WARSHALLậ
C. Thu t toán KRUSKAL ho c PRIMậ ặ D. Thu t toán s p x p Tô Pôậ ắ ế
Câu 4: Tìm đng đi ng n nh t trên đ th có tr ng s không âm, ta dùng thu t toán nào sau đây:ườ ắ ấ ồ ị ọ ố ậ
A. Thu t toán WARSHALLậB. Thu t toán PRIMậ
C. Thu t toán DIJKSTRAậD. Thu t toán FORD BELLMANậ
Câu 5: Bài toán “lu ng c c đi trên m ng” ta s d ng thu t toán gì?ồ ự ạ ạ ử ụ ậ
A. Thu t toán WARSHALLậB. Thu t toán FLOYPậ
C. Thu t toán PRIMậD. Thu t toán FORD – FULKERSONậ
Câu 6: Ch ng trình P có khai báo các th t c A, B nh sau:ươ ủ ụ ư
Program P;
var x, y,z :integer;
Procedure A;
var x,y: integer;
begin
x:= 8; y:= 4; B; write(x:3,y:3)
end;
Procedure B
var y: interger;
begin
x:= 5; y:= 7; z:= 1; write(x:3,y:3,z:3) ;
end;
begin {Ch ng trình P} ươ
x:= 1; y:= 2; z:= 3; A; write(x:3,y:3)
end.
Trang 1/7 - Mã đ thi 246ề
Cách tô mã đề
2 4 6
Cho bi t khi ch y ch ng trình P k t qu in ra là:ế ạ ươ ế ả
A. 5 7 1 8 48 4 B. 5 7 1 5 4 8 2 C. 5 7 1 84 1 2 D. 5 7 1 8 4 5 2
Câu 7: Ch n câu phát bi u đúng trong các phát bi u sau:ọ ể ể
A. Ngôn ng Pascal không có c u trúc đi u khi n.ữ ấ ề ể
B. Ngôn ng Basic không có c u trúc tu n t .ữ ấ ầ ự
C. T t c ngôn ng l p trình b c cao đu có các c u trúc tu n t , l p, r nhánh và đi u khi n.ấ ả ữ ậ ậ ề ấ ầ ự ặ ẽ ề ể
D. Ngôn ng Cữ++ không có c u trúc đi u khi n.ấ ề ể
Câu 8: Cho ch ng trình sau:ươ
Program CT2;
Var i, n: Integer;
x, p, s: real;
Begin
Write(‘x, n=’); readln(x,n);
s:=1; p:=1;
For i:=1 to n do
Begin
p:=p*x/i;
s:=s+p;
end;
Writeln(‘s= ’, s:5:1);
Readln;
End.
Đ ph c t p c a ch ng trình trên là:ộ ứ ạ ủ ươ
A. 0(n2)B. 0(n!) C. 0(n) D. 0(n3)
Câu 9: Ch n câu phát bi u đúng trong các phát bi u sau:ọ ể ể
A. Các c u trúc r nhánh, l p, đi u khi n c a ngôn ng Cấ ẽ ặ ề ể ủ ữ ++ có cách vi t gi ng ngôn ng Basic.ế ố ữ
B. Các c u trúc r nhánh, l p, đi u khi n c a ngôn ng Pascal có cách vi t gi ng ngôn ng Cấ ẽ ặ ề ể ủ ữ ế ố ữ ++.
C. Các c u trúc r nhánh, l p, đi u khi n đi v i các ngôn ng l p trình b c cao có ý nghĩa khác nhau ấ ẽ ặ ề ể ố ớ ữ ậ ậ
nh ng cách vi t gi ng nhau.ư ế ố
D. Các c u trúc r nhánh, l p, đi u khi n đi v i các ngôn ng l p trình b c cao có ý nghĩa nh nhau ấ ẽ ặ ề ể ố ớ ữ ậ ậ ư
nh ng cách vi t khác nhau.ư ế
Câu 10: Cho đo n ch ng trình:ạ ươ
for(int i=2;i<=10;i+=2)
cout<<i<<” “;
Đo n ch ng trình trên th c hi n:ạ ươ ự ệ
A. vòng l p vô h nặ ạ B. in các s l t 10 đn 1ố ẻ ừ ế
C. in các s ch n t 2 đn 10ố ẵ ừ ế D. T t c đu saiấ ả ề
Câu 11: Ki u d li u xâu (string) có t i đa bao nhiêu kí t :ể ữ ệ ố ự
A. 127 kí tựB. 1024 kí tựC. 256 kí tựD. 255 kí tự
Câu 12: Đ tìm đng đi ng n nh t trên đ th không có chu trình âm ta s d ng thu t toán nàoể ườ ắ ấ ồ ị ử ụ ậ
sau đây:
A. Thu t toán FORD BELLMANậB. Thu t toán DIJKSTRAậ
C. Thu t toán WARSHALLậD. Thu t toán PRIMậ
Câu 13: Cho ch ng trình sau:ươ
Var a, i, n: integer;
Begin
a:= 0; n:= 10;
Trang 2/7 - Mã đ thi 246ề
For i:= 1 to n-1 do
If n mod i = 0 then a:=a+i;
Writeln(a);
End.
Ch ng trình trên dùng đ:ươ ể
A. Xét xem n có ph i là s nguyên t khôngả ố ố B. Tính t ng các s i nh h n nổ ố ỏ ơ
C. Tính t ng các c s c a nổ ướ ố ủ D. Tính t ng các s ch n nh h n nổ ố ẵ ỏ ơ
Câu 14: Ch ng trình Pascal sau đây in ra màn hình k t qu gì?ươ ế ả
var i, j, s : integer;
begin
s:= 0;
for i:= 1 to 3 do
for j:= 1 to 3 do
if i+j = 4 then s:= s + 1;
writeln(s);
readln;
end.
A. 4B. 5C. 3D. 6
Câu 15: Cho bi t tên mô hình thu t toán sau:ế ậ
Procedure attempt(i:integer);
Begin
For <m i giá tr v có th gán cho x[i]> doọ ị ể
Begin
<th x[i]=v>ử
If <Vi c th trên v n còn hy v ng tìm ra c u hình t t h n c u hình ban đu> thenệ ử ẫ ọ ấ ố ơ ấ ầ
If <x[i] là ph n t cu i cùng trong c u hình> then <c p nh t c u hình>ầ ử ố ấ ậ ậ ấ
Else
begin
<Ghi nh n vi c th x[i]=v n u c n>ậ ệ ử ế ầ
Attempt(i+1);
<b ghi nh n vi c th cho x[i]=v>ỏ ậ ệ ử
End;
End;
End;
A. Thu t toán nhánh c nậ ậ B. Thu t toán quay luiậ
C. Thu t toán tham lamậD. Thu t toán quy ho ch đngậ ạ ộ
Câu 16: Cho ch ng trình: ươ
Program CT1;
Var i, j, n: Integer;
x, p, s: real;
Begin
Write(‘x, n=’); readln(x,n);
s:=0;
for i:=0 to n do
Begin
p:=1;
For j:=1 to i do p:=p*x/j;
s:=s+p;
end;
Trang 3/7 - Mã đ thi 246ề
Writeln(‘s=’, s:5:1);
End.
Đ ph c t p c a ch ng trình trên là:ộ ứ ạ ủ ươ
A. 0(n2)B. 0(n3)C. 0(n) D. 0(n!)
Câu 17: Trong Pascal, đo n ch ng trình sau in ra màn hình k t qu gì:ạ ươ ế ả
Var a,b:string;
procedure chen(s1,s2:string);
var i:byte;
begin
if length(s1)>=length(s2) then exit;
for i:=length(s1)+1 to length(s2) do
s1:=s1+s2[i];
end;
procedure xuly;
begin
a:='Kien';
b:='Giang';
chen(b,a);
end;
begin
xuly;
write(a, b,'!');
readln;
end.
A. KienGiang Giang! B. Kien GiangGiang’!’ C. Kien Giang! D. KienGiang!
Câu 18: Câu l nh “Exit” trong Pascal có ý là:ệ
A. Thoát kh i ch ng trình con s d ng nó v th c hi n các câu l nh c a ch ng trình chính.ỏ ươ ử ụ ề ự ệ ệ ủ ươ
B. Thoát kh i ch ng trình chính.ỏ ươ
C. Pascal không có câu l nh này.ệ
D. Ch ng trình s b treo.ươ ẽ ị
Câu 19: Câu l nh “Halt” trong Pascal là:ệ
A. Thoát kh i ch ng trình chính.ỏ ươ B. Ch thoát kh i ch ng trình con ch a nó.ỉ ỏ ươ ứ
C. Ch ng trình s b treo.ươ ẽ ị D. Pascal không có câu l nh này.ệ
Câu 20: Sau khi th c hi n đo n ch ng trình sau:ự ệ ạ ươ
var a,b,c :integer;
procedure P(var x,y,z :integer);
begin
x:=x + x;
y := y + z;
z := x + y;
end;
begin
a: = 4 ; b:= 5; c:= 8;
P(a,b,c);
writeln(a,b,c);
end.
Giá tr c a a, b, c là:ị ủ
A. a = 8, b = 13, c = 9 B. a = 8, b = 5, c = 13 C. a = 8,b = 5, c = 8 D. a = 8, b = 13, c = 21
Trang 4/7 - Mã đ thi 246ề
Câu 21: Cho ch ng trình:ươ
Begin
n:=6; i:=1; d:=0;
While (i<=n) and (d<=1) do
begin
If (n mod i) = 0 then d:=d+1;
i=i+1;
end;
Write(i);
End.
Giá tr sau cùng c a i là?ị ủ
A. 5B. 3C. 1D. 7
Câu 22: Khi ch y ch ng trình:ạ ươ
Var g:text;
i:integer;
Begin
Assign (g,’C:\ Data.TXT’);
Rewrite(g);
For i:= 1 to 10 do
If i mod 2 <> 0 then write (g,i);
Close (g);
Readln;
End.
N i dung c a t p ‘Data.TXT’ là?ộ ủ ệ
A. 246810 B. 13579 C. 2,4,6,8,10 D. 1,3,5,7,9
Câu 23: Đ tìm b ghép c c đi trên đ th hai phía ta dùng thu t toán gì:ể ộ ự ạ ồ ị ậ
A. Thu t toán s p x p Tô Pôậ ắ ế B. Thu t toán m đngậ ở ườ
C. Thu t toán PRIMậD. Thu t toán HUNGARIậ
Câu 24: Cho bi u th c toán h c ể ứ ọ
xx
1
2
. Bi u th c trong Pascal là:ể ứ
A. Sqr(sqrt(x) + 1) - x B. Sqrt(sqr(x) + 1) - x C. Sqr(sqrt(x) + 1 - x) D. Sqrt(sqr(x) + 1 - x)
Câu 25: Cho th t c sau:ủ ụ
Procedure vd(var s : string);
var i : integer;
begin
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
for i := length(s) downto 2 do
if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1);
end;
M c đích c a th t c trên là gì?ụ ủ ủ ụ
A. Xóa các d u cách th aấ ừ B. Xóa các d u cáchấ
C. Xóa các d u cách đu câuấ ầ D. Xóa các d u cách cu i câuấ ố
Câu 26: Cho khai báo sau:
Var A : array[1..2,1..3] of Real;
i, j : integer; Max : Real;
Ð tìm s l n nh t c a ma tr n A, ch n câu nào?ể ố ớ ấ ủ ậ ọ
A. Max:=A[1,1];For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j];
Trang 5/7 - Mã đ thi 246ề