Tìm kiếm
menu
Thí sinh đọc kỹ đề trước khi làm bài.
Tổng số câu hỏi: 30
<p><strong> Câu 1:</strong></p> <p>Số các các chỉnh hợp không lặp chập k của n là:</p>
<p><strong> Câu 2:</strong></p> <p>Số các các hoán vị của tập n phần tử là:</p>
<p><strong> Câu 3:</strong></p> <p>Số các tổ hợp chập k của tập n phần tử là:</p>
<p><strong> Câu 4:</strong></p> <p>Số tổ hợp lặp chập r từ tập n phần tử bằng:</p>
<p><strong> Câu 5:</strong></p> <p>Số các hoán vị lặp cấp m kiểu (k<sub>1</sub>, k<sub>2</sub>, ..,k<sub>n</sub>) của n phần tử khác nhau được tính theo công thức:</p>
<p><strong> Câu 6:</strong></p> <p>Cho C = { 2, 4, 5, 6, 7, 8}, k = 6, n=9. Kết quả nào đúng trong số những kết quả dưới đây sau khi thực hiện thuật toán Test(C, k, n):&nbsp;</p><p>Function Test(C:array[1..10] of integer; k,n:integer);&nbsp;</p><p>Var i,j: integer;&nbsp;</p><p>Begin&nbsp;</p><p>i:=k; While (i&gt;0) and (c[i]=n-k+i) do i:=i-1;</p><p>If i&gt; 0 then</p><p>Begin c[i]:= c[i] +1;</p><p>For j:= i+1 to k do c[j]:=c[i] + j-1;</p><p>End;</p><p>End;</p>
<p><strong> Câu 7:</strong></p> <p>Thuật toán dưới đây tính:</p><p>Function Test (n: Integer): Integer;&nbsp;</p><p>Var f1, f2, fn: Integer;</p><p>Begin</p><p>i:=2;</p><p>While i&lt;=n do</p><p>Begin</p><p>fn := f1 + f2; f1:=f2; f2:=fn;</p><p>i:=i+1;</p><p>End;</p><p>Test:= fn;</p><p>End;</p>
<p><strong> Câu 8:</strong></p> <p>Kết quả nào đúng trong số những kết quả dưới đây sau khi thực hiện thuật toán:</p><p>Function Test (n: Integer): Integer;</p><p>Var f1, f2, fn: Integer;</p><p>Begin</p><p>f1=1;</p><p>f2=1;</p><p>i:=3;</p><p>While i&lt;=n do</p><p>Begin</p><p>fn := f1 + f2; f1:=f2; f2:=fn;</p><p>i:=i+1;</p><p>End;</p><p>Test:= fn;</p><p>End;</p>
<p><strong> Câu 9:</strong></p> <p>Cho B = { 1, 0, 1, 0, 1, 0, 1, 1, 1, 0}, n=10. Kết quả nào đúng trong số những kết quả dưới đây sau khi thực hiện thuật toán:</p><p>Type Mang= array[1..10] of Integer;</p><p>Function Test(B:mang; n:integer): mang;</p><p>Var i:integer;</p><p>Begin</p><p>i:=n-1;</p><p>While (i&gt;=0) and (B[i]=1) do</p><p>Begin B[i]:=0; i:=i-1; End;</p><p>B[i]:= 1;</p><p>End;</p>
<p><strong> Câu 10:</strong></p> <p>Xác định giá trị của k sau khi đoạn chương trình sau được thưc hiện xong:</p><p>k := 1;</p><p>For i<sub>1</sub> :=1 to n<sub>1</sub> do</p><p>k:= k+1;</p><p>For i<sub>2 </sub>:=1 to n<sub>2</sub> do</p><p>k:= k+1;&nbsp;</p><p>…</p><p>For im :=1 to nm do</p><p>k:= k+1&nbsp;</p>
<p><strong> Câu 11:</strong></p> <p>Xác định giá trị của k sau khi đoạn chương trình sau được thưc hiện xong:</p><p>k := 1;</p><p>For i1 :=1 to n1 do</p><p>For i2 :=1 to n2 do</p><p>…</p><p>For im :=1 to nm do</p><p>k:= k+1;</p>
<p><strong> Câu 12:</strong></p> <p>Khi chạy chương trình:</p><p>Var S, i, j : Integer;</p><p>Begin</p><p>S := 0;</p><p>for i:= 1 to 3 do</p><p>for j:= 1 to 4 do S := S + 1 ;</p><p>End.</p><p>Giá trị sau cùng của S là:</p>
<p><strong> Câu 13:</strong></p> <p>Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình:</p><p>S:= 0;</p><p>i:= 1;</p><p>while i&lt;= 6 do</p><p>begin</p><p>S:= S + i;</p><p>i:= i + 2;</p><p>end;</p><p>Giá trị sau cùng của S là:</p>
<p><strong> Câu 14:</strong></p> <p>Cho m, n, i là các biến nguyên. Khi chạy đoạn chương trình:</p><p>m:=4; n:=5; i:=5;</p><p>Repeat</p><p>i:=i+1;</p><p>Until (i Mod m = 0) and (i Mod n = 0);</p><p>Giá trị sau cùng của i là:</p>
<p><strong> Câu 15:</strong></p> <p>Giả sử các khai báo biến đều hợp lệ. Ðể tính S = 10!, chọn câu nào?</p>
<p><strong> Câu 16:</strong></p> <p>Thuật toán đệ quy dưới đây:</p><p>Function dequy(a: real; n:integer);</p><p>Begin&nbsp;</p><p>If n = 0 then dequy:=1</p><p>Else dequy:= a* dequy (a,n-1);</p><p>End;</p>
<p><strong> Câu 17:</strong></p> <p>Cho thuật toán đệ quy:</p><p>Function dequy(a: real; n:integer);</p><p>Begin</p><p>If n = 0 then dequy:=1</p><p>Else dequy:= a* dequy (a,n-1);</p><p>End;</p><p>Kết quả nào trong các kết quả sau là đúng?</p>
<p><strong> Câu 18:</strong></p> <p>Kết quả nào đúng trong số những kết quả dưới đây sau khi thực hiện thuật toán:</p><p>Function Test (n:integer):longint;</p><p>Begin</p><p>If n = 0 then Test:=1&nbsp;</p><p>Else Test:= n * Test(n-1);</p><p>End;&nbsp;</p>
<p><strong> Câu 19:</strong></p> <p>Thuật toán đệ qui dưới đây tính:</p><p>Function Test (a,b: integer): integer;</p><p>Begin</p><p>If a = 0 then Test:=b</p><p>Else Test:= Test(b mod a, a);</p><p>End;&nbsp;</p>
<p><strong> Câu 20:</strong></p> <p>Thuật toán đệ qui dưới đây tính:</p><p>Function Test (n:integer):longint;</p><p>Begin</p><p>If n = 0 then Test:=1</p><p>Else Test:= n * Test(n-1);&nbsp;</p><p>End</p>
<p><strong> Câu 21:</strong></p> <p>Thuật toán đệ qui dưới đây tính:</p><p>Function Tesr(n:integer): integer;</p><p>Begin</p><p>If n&lt;=2 then Test:=1</p><p>Else Test: = Test (n-1) + Test (n-2);</p><p>End;</p>
<p><strong> Câu 22:</strong></p> <p>Cho thuật toán:</p><p>Procedure Test (n:integer);</p><p>Begin</p><p>If (n&gt;0) and (n&lt;10) then Write(n)&nbsp;</p><p>If n&gt;=10 then begin</p><p>Write(n mod 10);</p><p>Test (n div 10);</p><p>End;</p><p>End;</p><p>Với n=151. Kết quả nào đúng trong số những kết quả dưới đây?</p>
<p><strong> Câu 23:</strong></p> <p>Kết quả của thuật toán dưới đây:</p><p>Procedure Test (n:integer);</p><p>Begin&nbsp;</p><p>If (n&gt;0) and (n&lt;10) then Write(n)&nbsp;</p><p>If n&gt;=10 then begin&nbsp;</p><p>Write(n mod 10);</p><p>Test (n div 10);</p><p>End;&nbsp;</p><p>End;</p>
<p><strong> Câu 24:</strong></p> <p>Cho thuật toán:</p><p>Procedure Test(x,i,j: Integer);</p><p>Var m:integer;</p><p>Begin&nbsp;</p><p>m:=trunc(i+j)/2;</p><p>If x= a[i] then vt:=m</p><p>Else If (x&lt;a[m]) and ( i&lt;m) then Test(x,i,m-1)</p><p>Else If ( x&gt; a[m] ) and (j&gt;m) then Test(x,m+1,j)</p><p>Else vt:=0;</p><p>End;</p><p>Với A = {5, 2, 9 ,8, 6, 4, 7,1}. Kết quả nào đúng trong số những kết quả dưới đây:&nbsp;</p>
<p><strong> Câu 25:</strong></p> <p>Kết quả thuật toán đệ quy:</p><p>Function Test(st:string):string;</p><p>Begin</p><p>If length(st) &lt;=1 then Test:=st</p><p>Else Test:= st[length(st)] + Test(Copy(st,1,length(st)-1));</p><p>End;</p>
<p><strong> Câu 26:</strong></p> <p>Thuật toán đệ quy dưới đây tính:</p><p>Function Test(a,b:Integer): Integer;</p><p>Begin&nbsp;</p><p>If (a=0) or (b=0) then Test:=a+b&nbsp;</p><p>Else</p><p>If a &gt; b then Test:=Test(a-b,b)</p><p>Else Test:= Test(a,b-a);</p><p>End;</p>
<p><strong> Câu 27:</strong></p> <p>Cho thuật toán:</p><p>Function Test(a,b:Integer): Integer;</p><p>Begin</p><p>If (a=0) or (b=0) then Test:=a+b</p><p>Else</p><p>If a &gt; b then Test:=Test(a-b,b)</p><p>Else Test:= Test(a,b-a);&nbsp;</p><p>End;</p><p>Với a = 81, b = 54. Kết quả nào đúng trong số những kết quả dưới đây:</p>
<p><strong> Câu 28:</strong></p> <p>Thuật toán đệ quy dưới đây tính:</p><p>Function Test(a,b): Integer;</p><p>Begin</p><p>If (b = a) or (b = 0) then Test:=1</p><p>Else Test := Test (a-1,b-1) + Test (a-1,b);</p><p>End;</p>
<p><strong> Câu 29:</strong></p> <p>Cho thuật toán:</p><p>Function Test(a,b): Integer;</p><p>Begin</p><p>If (b = a) or (b = 0) then Test:=1</p><p>Else Test := Test (a-1,b-1) + Test (a-1,b);</p><p>End;</p><p>Với a = 21, b = 3. Kết quả nào đúng trong số những kết quả dưới đây:</p>
<p><strong> Câu 30:</strong></p> <p>Từ bảng chữ cái tiếng Anh có thể tạo ra được bao nhiêu xâu kí tự có độ dài N.</p>