Đề KT 45 phút lớp11 hk 2

Điểm







Lời phê của giáo viên












Họ và tên:................................... Lớp:








I. Trắc nghiệm: (7 điểm)
01. Khái báo mảng một chiều nào sau đây là đúng:
A. Type dayso=array[1..250] of Integer;
Var A:dayso;
B. Type dayso: array[1..250] of Integer;
Var A:dayso;
C. Type dayso=array[1..250] of Integer;
Var dayso:A;
D. Var dayso=array[1..250] of Integer;
02. Trong ngôn ngữ lập trình pascal, trong quá trình nhập dữ liệu của mảng một chiều, để giá trị i cũng tăng theo phần tử thứ i ta viết như sau:
A. Write(`A[`i`]=`); readln(A[i]); B. Write(`A[i]=`); readln(A[i]);
C. Write(`A[`,i,`]=`); readln(A[i]); D. ("A[",i,"]="); readln(A[i]);
03. S = `Xin chao cac ban`
A. Length(S) = 16; B. Length(S) = 8; C. Length(S) = 13; D. Length(S) = 12;
04. S1=`Truong` S2=`Hinh .2`
Insert(s1,s2,6)
A. S2= `Hinh Truong.2` B. S2= `Hinh 2Truong.`
C. S2= `Hinh Truong2` D. S2= `Hinh .Truong2`
05. S = `Truong*THPT*Truong*Vinh*Ky`;
Copy(S,7,6);
A. S= `*THPT* ` B. S= ` *THPT*`
C. S= `*THPT*` D. S= `THPT* `
06. Cho S1 = ` Xau` và S2= `Xau ki tu`
A. S1 < S2 B. S1 = S2 C. S1<=S2 D. S1 > S2
07. S:=0;
For i:=1 to n do
Begin
Write(`Nhap phan tu thu `,i,`: `);
Readln(A[i]);
S:=S+ i;
end;
A. Tính tổng S và A[i] B. Tính tổng các phần tử của mảng một chiều.
C. Tính tổng của S và i D. Tính tổng các số từ 1 đến n
08. Trong ngôn ngữ lập trình Pascal
A. Các phần tử của mảng một chiều được sắp thứ tự giá trị giảm dần;
B. Các phần tử của mảng một chiều được sắp thứ tự theo chỉ số;
C. Các phần tử của mảng một chiều được sắp thứ tự giá trị tăng dần;
D. Các phần tử của mảng một chiều không sắp thứ tự;
09. Type dayso=array[1..250] of Integer;
Var A:dayso;
Đoạn chương trình trên thực hiện công việc:
A. Khai báo mảng 1 chiều B. Khái báo kiểu dữ liệu mới
C. Khai báo mảng một chiều bằng cách gián tiếp D. Khái báo mảng một chiều bằng cách trực tiếp
10. Var s :String;
A. Khai báo xâu s có độ dài 0 ký tự B. Khai báo xâu s có độ dài 256 ký tự
C. Khai báo xâu s không đúng D. Khai báo xâu s có độ dài 255 ký tự
11. TYPE Bang = array[1..9,1..9] of integer;
Var A: Bang;
A. Khai báo trực tiếp mảng 2 chiều gồm 9 phần tử nguyên dương.
B. Khai báo gián tiếp mảng một chiều gồm 9 phần tử nguyên dương.
C. Khai báo trực tiếp mảng một chiều gồm 9 phần tử nguyên.
D. Khai báo gián tiếp mảng 2 chiều gồm 81 phần tử nguyên
12. For i:= 1 to n do
For j:=1 to m do
Begin
write(`A[`,i,j,` ] = ` );
readln(A[i,j]);
end;
A. Nhập vào giá trị các phần tử mảng A hai chiều B. Nhập vào giá trị các phần tử mảng A một chiều
C. Xuất giá trị các phần tử