Cho thuật toán:

Procedure Test(x,i,j: Integer);

Var m:integer;

Begin

m:=trunc(i+j)/2;

If x= a[i] then vt:=m

Else If (x < a[m] ) and (i

Else If (x > a[m] ) and (j>m) then Test(x,m+1,j)

Else vt:=0;

End;

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:

Giả sử các khai báo biến đều hợp lệ. Ðể tính S = 10!, chọn câu nào?

Số các hoán vị lặp cấp m kiểu (k₁ , k₂ , ..,k_N ) của n phần tử khác nhau được tính theo công thức:

Khi chạy chương trình:

Var S, i, j : Integer;

Begin

S := 0;

for i:= 1 to 3 do

for j:= 1 to 4 do S := S + 1 ;

End.

Giá trị sau cùng của S là:

Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình:

S:= 0;

i:= 1;

while i<= 6 do

begin

S:= S + i;

i:= i + 2;

end;

Giá trị sau cùng của S là:

Thuật toán đệ qui dưới đây tính:

Function Test (n:integer):longint;

Begin

If n = 0 then Test:=1

Else Test:= n * Test(n-1);

End

Thuật toán đệ quy dưới đây:

Function dequy(a: real; n:integer);

Begin

If n = 0 then dequy:=1

Else dequy:= a* dequy (a,n-1);

End;

Cho thuật toán:

Function Test(a,b): Integer;

Begin

If (b = a) or (b = 0) then Test:=1

Else Test := Test (a-1,b-1) + Test (a-1,b);

End;

Với a = 21, b = 3. Kết quả nào đúng trong số những kết quả dưới đây: