Sở GD&ĐT Thanh Hóa Trờng THPT Tĩnh Gia 1 Đề kiểm tra 15 phút (dùng cho Ban cơ bản khối 11) Mã đề: 01 I. Phần Trắc nghiệm : Câu 1: Xét chơng trình: Điều khẳng định nào sau đây là đúng? A) Chơng trình trên đảo ngợc vị trí của các phần tử mảng a (theo kích thớc thực tế nhập). B) Chơng trình trên ghi một nửa số phần tử ở cuối lên các vị trí đầu tiên. C) Chơng trình trên sắp xếp các phần tử của mảng a theo thứ tự giảm dần. D) Cả A, B và C đều sai. Câu 2: Trong NNLT Pascal, trong quá trình nhập dữ liệu của mảng 1 chiều A, để các phần tử hiển thị nh trong cửa sổ chơng trình ta viết lệnh nh sau: A) write(A[,i,]:= ); readln(a[i]); B) write(A[i]:= ); readln(a[i]); C) write(A[i]:= ); readln(a[i]); D) write(A[,i,]:= ); readln(a[i]); Câu 3: Để khai báo một biến mảng, ta có thể sử dụng: A) Từ khoá Type và từ khoá Var. B) Từ khoá Var và định nghĩa trực tiếp. C) Từ khoá Uses và Var. D) Cả A và b đều đúng. II. Phần tự luận : Câu 4: Nhập từ bàn phím vào một mảng gồm n số nguyên và nhập vào số k (nguyên d- ơng). Hãy viết chơng trình thực hiện các công việc sau: a) Đếm xem có bao nhiêu số chia hết cho 3 hoặc chia hết cho 5. b) Tính tổng các số của dãy số vừa nhập đó. 1 Program CAU_1; Var a : array[1 100] of integer; i, n, t : integer; BEGIN write( N = ); readln(n); For i:= 1 to n do readln(a[i]); for i:= 1 to n div 2 do Begin t:= a[i]; a[i]:= a[n-i+1]; a[n-i+1]:= t; End; for i:= 1 to n do write(a[i]:5); readln; END. c) Sắp xếp lại thành dãy số không tăng. d) Đếm xem trong dãy trên có bao nhiêu số có giá trị bằng K và cộng tổng các chỉ số của các số có giá trị bằng K. e) Tìm giá trị nhỏ nhất của dãy số vừa nhập đó. f) Với khai báo kiểu dữ liệu nh trên thì có thể nhập đợc giá trị của một phần tử lớn nhất là bao nhiêu? Ghi chú: Học sinh không đợc trao đổi, sử dụng tài liệu khi làm bài 2 . Sở GD&ĐT Thanh Hóa Trờng THPT Tĩnh Gia 1 Đề kiểm tra 15 phút (dùng cho Ban cơ bản khối 11) Mã đề: 01 I. Phần Trắc nghiệm : Câu 1: Xét chơng trình: Điều khẳng định nào. tiếp. C) Từ khoá Uses và Var. D) Cả A và b đều đúng. II. Phần tự luận : Câu 4: Nhập từ bàn phím vào một mảng gồm n số nguyên và nhập vào số k (nguyên d- ơng). Hãy viết chơng trình thực hiện các. readln(n); For i:= 1 to n do readln(a[i]); for i:= 1 to n div 2 do Begin t:= a[i]; a[i]:= a[n-i+1]; a[n-i+1]:= t; End; for i:= 1 to n do write(a[i]:5); readln; END. c) Sắp xếp lại thành dãy