8 de ktra tin 11 ki 2

Thứ ngày tháng năm 2008
Họ và tên:……………………………… Kiểm tra: học kỳ II
Lớp: 11B Môn: Tin học

Mã đề: 001
Hãy chọn một phương án đúng nhất
1/ Cho đoạn chương trình
s:=2; a:=1;
while not(s*2 > 3) do
begin
a:= a +2;
s:= s + 1;
end;
Kết thúc đoạn chương trình giá trị của biến s và a lần lượt là
a 2 và 1 b 1 và 2 c 3 và 3 d một kết quả khác

2/ Trong các khai báo sau, khai báo nào là đúng
a Var a:array[2..-1] of integer; b Var a:array[1..25.1] of boolean;
c Var a:array[1.. 20/10] of real; d Var a:array[-1..10 mod 3] of word;

3/ Trong các hàm và thủ tục sau, hàm và thủ tục nào cho kết quả là một số nguyên
a copy(S,vt,n) b insert(S1,S2,vt) c length(s) d delete(s,vt,n)

4/ Cho đoạn chương trình
s:=1;
for i:= -1 to 3 do s:= s*i;
Kết thúc đoạn chương trình giá trị biến s là:
a -120 b 0 c 120 d một kết quả khác

5/ Trong ngôn ngữ lập trình Pascal, sau từ khóa do, then, else chỉ thực hiện
a 1 câu lệnh b nhiều hơn 3 câu lệnh c 3 câu lệnh d 2 câu lệnh

6/ Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây đúng
a for i=1 to 5 do s:=s+2; b for i:=1 to -5 do s:=s*i;
c for i:= 1 to 4 do s= -i; d for i:=5 downto 1; do s:=s+i;

7/ Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây đúng
a if a ≠ b then x := a else x :=b; b if a := b then x := a else x :=b;
c if a > b then x := b else x :=a; d if a < b then x := a + b; else x := b;

8/ Cho khai báo sau:
Var a: array[1..20 div 3] of integer;
Tổng số phần tử trong mảng là
a 12 b 20 c 6 d một kết quả khác

9/ Trong các biểu thức sau, biểu thức nào cho giá trị True
a `Lop` >= `Love` b `abcdef` > `abcdefg` c 4 <= 5 d `Anh` > `em`

10/ Cho khai báo sau:
Var a,b: array[1..5] of real;
Tổng bộ nhớ trong khai báo trên là
a 60 byte b 48 byte c 24 byte d 30 byte

11/ Cấu trúc của chương trình chính gồm mấy phần
a 2 phần b 1 phần c 4 phần d 3 phần

12/ Trong các khai báo sau, khai báo nào sai
a Var b: array[-3..5] of integer; b Var b: array[1..20 div 3] of real;
c Var b: array[-2*3..-1,2..5] of boolean; d Var b: array[1..4,5..15 mod 4] of word;

13/ Cho khai báo sau:
Type mang2 = array[1..10,2..11] of byte;
Var a,b : mang2;
Tổng bộ nhớ trong khai báo trên là:
a 200 byte b 100 byte c 180 byte d một kết quả khác

14/ Cho đoạn chương trình
s:=1;
for i:=1 to 3 do
for j:=1 to 3 do s:=s*2;
kết thúc đoạn chương trình trên biến s nhận giá trị là
a