TRƯỜNG PTDTBT THCS TRÀ NÚ ĐỀ KIỂM TRA HỌC KÌ I MÔN: TIN HỌC Họ tên:……………………………… Lớp: Năm học: 2016 - 2017 Thời gian: 45 phút (không kể giao đề) Điểm Lời phê thầy (cô) ĐỀ: I TRẮC NGHIỆM (4 điểm) A Khoanh tròn vào chữ A, B, C D đầu đáp án em cho Câu 1: Nếu cho x = 10, giá trị x sau câu lệnh: if x > then x := x + 5;? A 10; B 20; C 5; D 15 Câu 2: Trong câu lệnh Pascal sau, câu viết đúng: A var a, b : integer; B var x = real; C const x := ; D var thong bao: string Câu 3: Program từ khóa khai báo? A Tên chương trình B Các thư viện C Điểm bắt đầu chương trình D Điểm kết thúc chương trình Câu 4: Kiểu liệu sau kiểu số thực? A Interger B Char C Real D String Câu Xét lệnh If a>b then a :=b ; If a>c then a :=c ; Writeln(a) ; Hỏi a=7 ; b=6 ; c=8 ; lệnh đưa hình nội dung ? A Khơng có thơng tin hiển thị hình C Đưa số B Đưa số D Đưa số Câu Sau soạn thảo chương trình, ta nhấn tổ hợp để chạy chương trình A Alt + F9 B Ctrl + F6 C Ctrl + F9 D Alt + F6 Câu : Trong tên sau đây, tên hợp lệ ngơn ngữ lập trình Pascal ? A Hocsinh B Hoc_sinh C Hoc*sinh D Hoc sinh Câu 8: Trong từ sau đây, từ từ khóa: A begin B pascal C.Tinhtong D Var II TỰ LUẬN: (6 điểm) Câu 1: Em xác định Input Output tốn: tính tổng 20 số tự nhiên đầu tiên.(1 điểm) ThuVienDeThi.com Câu 2: Hãy liệt kê lỗi có chương trình sửa lại cho (2điểm) Var a,b :=integer; Const c :=3 ; Begin a :=200 b=a/c ; write(b) ; readln end Câu 3: (2điểm ) Viết biểu thức toán kí hiệu Pascal: a) ( a2 2a +1)- a ( 10 x ) c) y 15 y b) 2 x3 18 y d) x2 y y2 x Câu 4:Viết chương trình nhập hai số nguyên a, b khác từ bàn phím in hai số hình theo thứ tự tăng dần (1điểm) hết - ThuVienDeThi.com ĐÁP ÁN VÀ BIỂU ĐIỂM MÔN TIN HỌC LỚP HỌC KỲ I (NĂM HỌC 2016-2017) I TRẮC NGHIỆM (4 Điểm) A Khoanh tròn vào chữ A, B, C D đầu câu em cho Câu Đáp án D A A C B C A,B A,D (Mỗi câu trả lời đạt 0,5 điểm) II TỰ LUẬN (6 điểm) CÂU ĐÁP ÁN Câu -INPUT: 20 số tự nhiên -OUTPUT: Tổng 20 số tự nhiên Câu Var a,b:integer; Const c=3; a:=200; b:=a/c ; ĐIỂM 0,5 0,5 0,5 0,5 0,5 0,5 Câu a)(a*a+1)-(2*a-1)/a 0,5 b ) 15/2+3 – 8/x*3+y 0,5 c)(10+x)*2/3+y-18/5+y 0,5 d) (x*x+y)/(y*y+x) Câu Program Sap_xep; Uses crt; Var a, b: integer; Begin Clrscr; Write (‘Nhap so a: ‘); readln(a); Write (‘Nhap so b: ‘); readln(b); If a