Đế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
Trang 1Së 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]);
Trang 2
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
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
Trang 3Së 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]);
Trang 4
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
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………
………