Đang tải... (xem toàn văn)
5đ Khoang tròn vào đáp án đúng nhất Câu 1: Cách khai báo mảng nào sau đây chương trình không báo lỗi?. Câu 3: Cho đoạn chương trình sau: While a.A[r]
(1)TRƯỜNG THCS ĐẠ LONG Tên: Lớp: ĐỀ THI HỌC KÌ II Năm học: 2013 – 2014 Môn: Tin học Thời gian: 45 phút Điểm Lời phê GV ………………………………… ………………………………… ………………………………… A TRẮC NGHIỆM KHÁCH QUAN (5đ) Khoang tròn vào đáp án đúng Câu 1: Cách khai báo mảng nào sau đây chương trình không báo lỗi? A var X : Array [10, 13] of real; B var X : Array [1 100] of integer; C var X : Array [3.4 4.8] of integer; D var X : Array [1…100] of real; Câu 2: Sau thực đoạn chương trình sau: s:=0; for i:= to s:= s*i; Giá trị biến s bao nhiêu? A 120; B 55; C 0; D 151 Câu 3: Cho đoạn chương trình sau: While a<b a:=a+2; Khi a = 1, b = thì kết cuối cùng a bao nhiêu? A 5; B 6; C 7; D Câu 4: Lệnh lặp for to Pascal vòng lặp, biến đếm thay đổi nào? A +1; B +1 -1; C Giá trị bất kì; D Một giá trị khác Câu 5: Trong phần mềm GeoGebra công cụ nào dùng để tạo trung điểm (đoạn thẳng nối) hai điểm cho trước? A ; B ; C ; D Câu 6: Giá trị các mảng cho sau: A[1]:=4; A[2]:=7; A[3]:=1; A[4]:=9; A[5]:=2; Kết T:= A[3]+A[5]+A[2]+10; bao nhiêu? A 10; B 15; C 20; D 23 Câu 7: Vòng lặp While Pascal có vòng lặp: A với số lần lặp chưa biết trước B biết trước số lần lặp giới hạn là <=100 C biết trước số lần lặp D chưa biết trước số lần lặp giới hạn là >=100 Câu 8: Thành phần nào sau đây không có trên màn hình chính phần mềm GeoGebra? A Bảng chọn; B Hộp công cụ; C Khu vực các đối tượng hình vẽ; D Thanh công cụ Câu 9: Với câu lệnh for i:=1 to 10 x:=x+1; biến i khai báo thuộc kiểu liệu nào? A Real; B Integer; C String; D Char Câu 10: Trong các câu lệnh lặp Pascal sau đây, câu nào chương trình không báo lỗi? A While i:= t:=10 B While x<=y to Writeln (‘y khong nho hon x’); C While 1:= Writeln (‘Dung’); D While (n mod i<> 0) i:= i+ 1; B TỰ LUẬN (5đ) Câu 1: (1.5đ) Điền X vào các ô cho phù hợp và giải thích vì sao? (2) Câu Đúng Sai Sửa lại cho đúng sai a) for i:=1 to 10 writeln('A'); b) var X; Array[5…10] Of Char; c) X:=10; while X=10 X := X+5; d) for i=1.5 to 10.3 writeln('A'); Câu 2: (3.5đ) Viết chương trình tính tổng dãy số nguyên mảng chiều Với độ dài mảng nhập từ bàn phím tối đa là 20 phần tử BÀI LÀM: (3) ĐÁP ÁN VÀ BIỂU ĐIỂM Câu Trắc nghiệm 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 Tự luận Nội dung 1B; 2C; 3C; 4A; 5D; 6C; 7A; 8B; 9B; 10D Câu a) for i:=1 to 10 writeln('A'); b) var X; Array[5…10] Char; c) X:=10; while X=10 X := X+5; d) for i=1.5 to 10.3 writeln('A'); Đúng do Sửa lại cho đúng sai X Of Sai Điểm Mỗi câu đúng 0.5đ X var X: Array[5 10] Of Integer (Real); X X Program tinh_tong; Uses crt; Var A: array[1 20] of integer; i, n, Tong: integer; BEGIN Clrscr; Write(‘Nhap dai cho mang n= ’); readln(n); For i:= to n Beign Write(‘A[’,i,’]= ’); readln(A[i]); End; For i:= to n Tong:= Tong + A[i]; Write(‘Tong day so la: ’,Tong); Readln; END for i:=1 to 10 writeln('A'); 0.25đ 0.5đ 0.25đ 0.5đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ (4)