Đang tải... (xem toàn văn)
beginprogram Câu 7: Máy tính có thể hiểu được trực tiếp ngôn ngữ nào trong các ngôn ngữ sau đâyA. Ngôn ngữ tự nhiên của con ngưòi B.[r]
(1)KIỂM TRA HỌC KỲ I TRƯỜNG PTDT NT KRÔNG PAK Họ và tên: ……………………………… LỚP: A MÔN: TIN HỌC THỜI GIAN: 45 PHÚT ĐIỂM LỜI PHÊ CỦA THẦY CÔ GIÁO I-PHẦN TRẮC NGHIỆM: Câu Trong các tên sau đây, tên nào là hợp lệ ngôn ngữ Pascal: A 8a B tamgiac C program D bai tap Câu Để biên dịch chương trình ta sử dụng tổ hợp nào: A Ctrl – F9 B Alt – F9 C F9 D Ctrl – Shitf – F9 Câu Trong Pascal, khai báo nào sau đây là đúng? A Var tb: real; B Type 4hs: integer; C const x: real; D Var R = 30; Câu Biểu thức toán học (a + b)(1 + c) biểu diễn Pascal nào ? A (a*a + b)(1+c)(1 + c)(1 + c) B (a.a + b)(1 + c)(1 + c)(1 + c) C (a*a + b)*(1 + c)*(1 + c)*(1 + c) D (a2 + b)(1 + c)3 Câu 5: Thứ tự đúng chương trình Program Chuong trinh 1; (1) Begin (2) Uses crt; (3) Writeln ( ’ hoa cỏ mùa xuân’);(4) End (5) A 1, 3, 2, 4, B 1, 2, 4, 3, C 2, 3, 1, 4, D 1, 2, 3, 4, Câu 6: Trong các tên sau đây, tên nào hợp lệ NNLT Pascal? A Khoi B Tamgiac; C Bai-tap-thuc-hanh D beginprogram Câu 7: Máy tính có thể hiểu trực tiếp ngôn ngữ nào các ngôn ngữ sau đây? A Ngôn ngữ tự nhiên ngưòi B Ngôn ngữ máy C Tất các ngôn ngữ trên D Ngôn ngữ lập trình C©u C¸c tõ khãa nµo viÕt sai: A Pro_gram B Uses C Begin D End C©u Khai b¸o biÕn b»ng tõ khãa: A Const B Var C Type D Uses C©u 10 Khai b¸o h»ng b»ng tõ khãa: A Var B Uses C Type D Const II-PHẦN TỰ LUẬN Câu 1: Viết các biểu thức toán sau đây dạng biểu thức Pascal: A 15(4 + 30 + 12) B (10 x) 18 3 y 5 y C ax2 + bx +2c D (a+b)2.(d+e)3 Câu 2: Viết chương trình nhập vào số a,b Kiểm tra xem a> b thì thông báo “ a lon hon b”, b>a thi thông báo “ b lớn hon a” ngược lại thì thông báo “ hai so bang nhau” BÀI LÀM: Lop8.net (2) ĐÁP ÁN I- PHẦN TRẮC NGHIỆM: ĐIỂM( câu 0.5 đ) IICÂU A B x x C x x CÂU A x D B C D CÂU A B C D CÂU A B C x x x 10 x x III- TỰ LUẬN: (5 ĐIỂM) Câu 1: ( điểm) a) 15*(4+30+12) b) ((10+x)*(10+x)/((3+y)) – (18/(5+y)) c) a*x*x+b*x+2*c Câu ( điểm): program tongab; Uses crt; Var a,b: integer; Begin Write(‘nhap vao so a va b:’); readln(a,b) If a>b then Write(‘a lon hon b’) else If a< b then Write(‘b lon hon a’) Else Write(‘ hai so bang nhau’); Readln End Lop8.net d) (a+b)*(a+b)*(d+e) *(d+e) *(d+e) D (3)