Kiểm tra 15 phút lần 1 - Học kỳ 2

TRƯỜNG THPT IASAO KIỂM TRA 15 PHÚT MÔN TIN HỌC LỚP 11B1 TỔ TOÁN TIN LẦN 1 HỌC KỲ 2 NĂM HỌC 2007 2008 Họ và tên I Phần trắc nghiệm đơn tuyển (5 0 điểm) Câu 1 Trong ngôn ngữ lập trình Pascal, cho đoạn c[.]

Trang 1

A 10 B. 14 C. 36 D 64

Câu 2: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:

Const columns = 3;

rows = 4;

Var table: array[0 columns+1, 0 rows] of integer;

Số phần tử của mảng table là:

C

âu 3: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:

Var a, b: array[1 100] of Char;

c: array[1 50] of Char;

Trong phần thân của chương trình có đoạn khai báo trên thì câu lệnh gán nào sau đây là đúng?

Câu 4: Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?

A Type mang2c = array[1 100, 1 100] of char;

B Type mang2c = array[1 100][1 100] of char;

C Type mang = array[1-100, 1-100] of char;

D Type 2chieu = array[1 100, 1 100] of char;

Câu 5: Trong ngôn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau

đây làm gì (với a là mảng gồm n phần tử)?

For i:=1 to n do

Begin Write('a[',i,']='); Readln(a[i]);

End;

A Hiện lên màn hình giá trị của các phần tử của mảng A;

B Đếm số phần tử của mảng A;

C Hiện lên màn hình giá trị của a[i];

D Nhập giá trị cho các phần tử của mảng A;

II Phần đọc hiểu (5.0 điểm):

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:

Var S1, S2, S3: String;

L, K, Kt, i: byte;

Begin

S1:=‘Thang Ba Tay Nguyen’;

S2:=‘PleiKu’

Trang 2

I Phần trắc nghiệm đơn tuyển (5.0 điểm):

Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:

Var m: array[2 11] of Integer;

i:byte;

begin

for i:=2 to 11 do

if i mod 2 = 0 then m[i]:=i*i else m[i]:=i+i;

End.

Sau khi thực hiện xong chương trình trên, giá trị của phần tử thứ 5 của mảng m sẽ là:

End;

A Hiện lên màn hình giá trị của các phần tử của mảng A;

C Nhập giá trị cho các phần tử của mảng A;

D Hiện lên màn hình giá trị của a[i];

rows = 4;

A Type mang = array[1-100, 1-100] of char;

B Type mang2c = array[1 100, 1 100] of char;

C Type mang2c = array[1 100][1 100] of char;

Begin

S1:=‘Tinh Gia Lai’;

Trang 3

begin

for i:=2 to 11 do

End.

End;

A Đếm số phần tử của mảng A;

B Hiện lên màn hình giá trị của các phần tử của mảng A;

C Hiện lên màn hình giá trị của a[i];

B Type 2chieu = array[1 100, 1 100] of char;

D Type mang2c = array[1 100, 1 100] of char;

Begin

S1:=‘Doi mat PleiKu’;

Trang 4

i:byte;

begin

for i:=2 to 11 do

End.

rows = 4;

End;

A Nhập giá trị cho các phần tử của mảng A;

B Hiện lên màn hình giá trị của các phần tử của mảng A;

C Đếm số phần tử của mảng A;

D Hiện lên màn hình giá trị của a[i];

B Type mang = array[1-100, 1-100] of char;

Begin

S1:=‘Giai phong Gia Lai’;

Trang 5

C Nhập giá trị cho các phần tử của mảng A;

D Hiện lên màn hình giá trị của các phần tử của mảng A;

rows = 4;

i:byte;

begin

for i:=2 to 11 do

End.

C Type mang = array[1-100, 1-100] of char;

D Type mang2c = array[1 100][1 100] of char;

Begin

S1:=‘Trung tam thanh pho’;

Trang 6

i:byte;

begin

for i:=2 to 11 do

End.

C Type mang2c = array[1 100, 1 100] of char;

D Type mang2c = array[1 100][1 100] of char;

rows = 4;

End;

A Hiện lên màn hình giá trị của a[i];

C Hiện lên màn hình giá trị của các phần tử của mảng A;

Begin

S1:=‘Nga tu Bien Ho’;

Định dạng
Số trang	7
Dung lượng	71,5 KB