Kiểm Tra 1tiet_HK2_co Dap An - 123doc

Đếm và tính tổng các phần tử dương của mảng vừa nhập, biết rằng các phần tử trong mảng là các số nguyên... Đếm và tính tổng của các phần tử âm của mảng vừa nhập, biết rằng các phần tử tr

Së GD & §T Long An

M«n: Tin häc 11 Tr¾c nghiÖm + Tù luËn–

Thêi gian: 45 phót(Đề A)

Hä vµ tªn:……… Líp:11

I- Trắc nghiệm: Chọn phương án đúng cho mỗi câu và điền vào bảng dưới đây:

Câu 1: Cho 2 xâu : a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng

a) Độ dài mỗi xâu là 7, xâu a> xâu b b) Độ dài mỗi xâu là 7, xâu a< xâu b

c) Độ dài mỗi xâu là 7, xâu a= xâu b d) Độ dài mỗi xâu là 6, xâu a= xâu b

Câu 2: Cho khai báo:

Var

A: Array[1 4] of Real;

i: Integer ;

Ðể nhập dữ liệu cho A, chọn câu nào :

a) For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); b) For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);

c) For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; d) Write(‘ Nhập A:’); Readln(A);

Câu 3: Cho khai báo biến :

Var A : array[1 5] of Integer;

Chọn lệnh đúng :

a) A[1]:= 4/2 ; b) A[2]:= -6 ; c) A(3):= 6 ; d) A:= 10 ;

Câu 4: Trong pascal, khai báo nào sau đây là hợp lệ?

a)Var a: array[1 10] of integer; b)Var a = array[1 10] of integer;

c)Var a:= array[1 10] of integer; d)Var a: array[1,10] of integer;

Câu 5: Cho khai báo:

Var A: Array[1 4] of Integer;

i : Integer;

Sau khi thực hiện các lệnh :

For i:=1 to 4 do A[i]:= i; For i:=1 to 4 do A[i]:= A[i]+1;

thì mảng A có gía trị là :

a) A[1]=1, A[2]=2, A[3]=3, A[4]=4 b) A[1]=2, A[2]=3, A[3]=4, A[4]=5

c) A[1]=0, A[2]=1, A[3]=2, A[4]=3 d) A[1]=2, A[2]=4, A[3]=5, A[4]=6

Câu 6: Khai báo nào đúng :

a) Var A: array[1 n,1 m] of integer; b) Const n=2; m=3; Var A: array[1 n,1 m] of integer; c) Var n, m : integer ; A: array[1 n,1 m] of integer; d) Var A: array[3, 2] of Integer;

Câu 7: Cho khai báo :

Var

A: array[1 2,1 3] of Real;

i, j: integer;

Ðể nhập dữ liệu cho ma trận A, chọn :

a) Write(‘ Nhập A:’); Readln(A) ; b) For i:=1 to 2 do Readln(A[i, j]);

c) For i:=1 to 2 do

For j:=1 to 3 do

begin

write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]);

end;

d) For i:=1 to 2 do For j:=1 to 3 do write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

Câu 8: Cho khai báo :

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]; i:=1;

For j:=1 to 3 do

if Max < A[i,j] then Max:=A[i,j];

b) Max:=A[1,1];

For i:=1 to 2 do

if Max < A[i,j] then Max:=A[i,j];

c) A[1,1]:=Max ;

For i:=1 to 2 do

For j:=1 to 3 do

if Max< A[i,j] then A[i,j]:=Max;

d) Max:=A[1,1];

For i:=1 to 2 do For j:=1 to 3 do

if Max < A[i,j] then Max:=A[i,j];

Câu 9: Cho xâu a:='Lap trinh Pascal' Nếu sử dụng hàm b:= pos(Pascal,a);

Kết quả in ra giá trị của b là :

Câu 10: Cho khai báo sau:

VarA: array[0 16] of integer;

Câu lệnh nào sẽ in ra tất cả các phần tử của mảng trên

a) For k :=1 to 16 do write(a[k]); b) For k :=16 down to 0 do write(a[k]);

c For k :=0 to 15 do write(a[k]); d) For k := 16 downto 0 do write(a[k]);

II- Tự luận(5đ)

Em hãy viết chương trình hoàn chỉnh nhập vào mảng 1 chiều gồm 6 phần tử Đếm và tính tổng các phần

tử dương của mảng vừa nhập, biết rằng các phần tử trong mảng là các số nguyên

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

Së GD & §T Long An

M«n: Tin häc 11 Tr¾c nghiÖm + Tù luËn–

Thêi gian: 45 phót(Đề B)

Hä vµ tªn:……… Líp:11

I- Trắc nghiệm: Chọn phương án đúng cho mỗi câu và điền vào bảng dưới đây:

Câu 1: Chọn khai báo đúng :

a) Var A: array[1…10] of integer; b) Var A: array[1 10] of integer;

c) Var A:= array[1 10] of integer; d) Var A: array[1,10] of integer;

Câu 2: Cho khai báo:

Var

A: Array[1 4] of integer;

i : Integer ;

Ðể nhập dữ liệu cho A, chọn câu nào :

a) For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); b) For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);

c) For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; d) Write(‘ Nhập A:’); Readln(A);

Câu 3: Cho khai báo biến :

Var A : array[1 5] of Integer;

Chọn lệnh sai :

a) A[1]:= 4 ; b) A[2]:= -6 ; c) A[3]:= 6 ; d) A[6]:= 4/2 ;

Câu 4: Cho 2 xâu : a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng

a) Độ dài mỗi xâu là 7, xâu a< xâu b b) Độ dài mỗi xâu là 7, xâu a> xâu b

c) Độ dài mỗi xâu là 7, xâu a= xâu b d) Độ dài mỗi xâu là 6, xâu a= xâu b

Câu 5: Cho khai báo:

Var

A: Array[1 4] of Integer ;

i: Integer ;

Sau khi thực hiện các lệnh :

A[1]:=1; For i:=1 to 4 do A[i]:= A[1]+i;

thì mảng A có gía trị là :

a) A[1]=1, A[2]=2, A[3]=3, A[4]=4 b) A[1]=2, A[2]=3, A[3]=4, A[4]=5

c) A[1]=0, A[2]=1, A[3]=2, A[4]=3 d) A[1]=2, A[2]=4, A[3]=5, A[4]=6

Câu 6: Khai báo nào đúng :

a) Var A: array[1 n,1 m] of integer; b) Const n=2; m=3; Var A: array[1 n,1 m] of integer; c) Var n, m: integer ; A: array[1 n,1 m] of integer; d) Var A: array[3, 2] of Integer;

Câu 7: Cho khai báo :

Var

A : array[1 2,1 3] of Real;

i, j : integer;

Ðể nhập dữ liệu cho ma trận A, chọn :

a) Write(‘ Nhập A:’); Readln(A) ; b) For i:=1 to 2 do Readln(A[i, j]);

c) For i:=1 to 2 do

For j:=1 to 3 do

begin

write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]);

end;

d) For i:=1 to 2 do For j:=1 to 3 do write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

Câu 8: Cho khai báo :

Var

A: array[1 2,1 3] of Real;

i, j: integer; Max : Real;

Ðể tìm số lớn nhất của dòng 1 ma trận A, chọn câu nào :

a) Max:=A[1,1];

If Max < A[i,j] then Max:=A[i,j];

b) Max:=A[1,1]; i:=1;

For j:=1 to 3 do

if Max < A[i,j] then Max:=A[i,j];

c) A[1,1]:=Max ;

For i:=1 to 2 do

For j:=1 to 3 do

if Max< A[i,j] then A[i,j]:=Max;

d) Max:=A[1,1];

For i:=1 to 2 do For j:=1 to 3 do

if Max < A[i,j] then Max:=A[i,j];

Câu 9: Cho xâu a:='Lap trinh Pascal' Nếu sử dụng hàm b:= pos(trinh,a);

Kết quả in ra giá trị của b là :

Câu 10: Cho khai báo sau:

VarA: array[0 16] of integer;

Câu lệnh nào sẽ in ra tất cả các phần tử của mảng trên

a) For k:=1 to 16 do write(a[k]); b) For k:=16 down to 0 do write(a[k]);

c) For k:=0 to 15 do write(a[k]); d) For k:= 16 downto 0 do write(a[k]);

II- Tự luận(5đ)

Em hãy viết chương trình hoàn chỉnh nhập vào mảng 1 chiều gồm 5 phần tử Đếm và tính tổng của các

phần tử âm của mảng vừa nhập, biết rằng các phần tử trong mảng là các số nguyên

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………

………