Câu 2: Hãy viết các biểu thức toán dưới đây bằng các kí hiệu trong PascalA. Trắc Nghiệm: đánh dấu X vào đáp án đúng..[r]
(1)Trường THCS Xuân Bảo LỚP: 8/… HỌ TÊN:……………………… KIỂM TRA HỌC KỲ I Thời gian: 45 phút Môn: Tin học ĐIỂM LỜI PHÊ CỦA THẦY,CÔ GIÁO I Trắc nghiệm: đánh dấu X vào đáp án đúng (3 điểm) Cấu trúc điều kiện dạng đầy đủ có dạng: A if <điều kiện > then <câu lệnh 1>; else <câu lệnh 2>; B if <điều kiện > then <câu lệnh 1> else <câu lệnh 2>; C if <điều kiện> then <câu lệnh >; D if <câu lệnh 1> then <câu lệnh 2>; Trong các tên sau đây, tên nào là hợp lệ ngôn ngữ Pascal: A Tam giac; B end; C Tamgiac; D 3so Để thực việc tính tổng hai số nguyên a và b, phép gán nào sau đây là đúng: A Tong=a+b; B Tong:=a+b; C Tong:a+b; D.Tong(a+b); Cú pháp lệnh gán Pascal là? A Const <tên hằng> = <giá trị>; B Uses < tên>; C Var <danh sách biến>:<kiểu liệu>; D <biến>:= <biểu thức>; Từ khoá Var Pascal dùng để làm gì? A Khai báo biến B Khai báo mảng C Khai báo tên chương trình D Khai báo Hãy cho biết giá trị biến X bao nhiêu sau thực câu lệnh if (45 mod ) = then X :=X+2; ( Biết trước đó giá trị biến X = 5) A.5 B C D 11 II- TỰ LUẬN: điểm Câu 1: Hãy lỗi chương trình sau (2đ): Program sua loi {1} Var a,b,c:Integer; {2} Begin {3} a:=300; {4} b:=a+100 {5} c:=a/b; {6} a:=a+b; {7} writeln('Ket qua a=',a, ‘b=',b, ‘c=',c:4:2); {8} readln {9} End {10} (2) THÍ SINH KHÔNG ĐƯỢC VIẾT VÀO ĐÂY VÌ ĐÂY LÀ PHÁCH SẼ RỌC MấT Câu 2: Hãy viết các biểu thức toán đây các kí hiệu Pascal (2đ) a) ax2+bx+c b) a −b +a c−d Câu 3: Cho hai số thực a và b Hãy viết chương trình cho biết kết so sánh hai số đó dạng “ a lớn b”, “a nhỏ b” “ a b”? (3đ) ĐÁP ÁN I Trắc Nghiệm: đánh dấu X vào đáp án đúng (3 điểm) câu 0.5đ (3) Câu 1:B Câu 2:C Câu 3:B Câu 4:D Câu 5:A Câu 6:C II- TỰ LUẬN: điểm Câu 1: Hãy lỗi chương trình sau và cho kết xuất trên màn hình (2đ): Sửa lỗi (2đ) {1} Tên sua loi không có khoảng trống, thiếu ; {2} khai báo biến c phải là kiểu số thực Real {5} Thiếu ; {10} Thiếu dấu Câu 2: (2đ) a) ax2+bx+c b) a −b +a c−d => a*x*x+ b*x + c => (a-b)/ (c-d) + a*a Câu 3: Viết chương trình: (3đ) Program sosanhhaiso; Uses crt; Var a,b: integer; Begin Write(‘Moi ban nhap vao so nguyen:’); Readln(a,b); If a>b then Write(‘a lon hon b’); If a<b then Write(‘a be hon b’); If a=b then Write(‘a bang b’); End (4)