[r]
(1)ĐỀ THI KÌ II MÔN TIN HỌC THỜI GIAN 45 PHÚT (Không kể thời gian phát đề ) PHẦN : LÝ THUYẾT ( 5Đ ) Khoanh tròn vào chữ cái đứng trước câu trả lời đúng : Câu 1: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; thì biến đếm i phải khai báo là kiểu liệu a) Interger; b) real; c) string d) tất các kiểu trên Câu 2: Trong các khai báo sau , khai báo nào đúng Pascal ? a) const x: real ; b) Var 4hs : integer ; c) Var tb : real ; d) Var R = 30 ; Câu 3: Trong các câu lệnh Pascal sau , lệnh nào viết sai : a) If x > then m=n; b) If x > then a:=b; Else m:=n; c) If x > then a:=b; m:=n; d) If x := then a:=b; Câu 4: Sau thực đoạn lệnh sau, x nhận giá trị bao nhiêu: x:=7; if ( x mod )= then x:= x +1; a) x=7 b)x=8 c) x=0 d) x=10 Câu 5: Câu lệnh Pascal nào sau đây hợp lệ : a) for i:=100 to writeln(‘A’) b) for i:= 1.5 to 10.5 writeln(‘A’) c) for i:= to 10 do; writeln(‘A’) d) for i:=1 to 10 writeln(‘A’); Câu 6: Để chạy chương trình Pascal ta dùng tổ hợp phím : a) Ctrl + F9 b) Alt + F5 c) Alt + F9 d) Ctrl + F5 Câu 7: Cấu trúc vòng lặp WHILE - DO có dạng: a) While <điều kiện1> < điều kiện2>; b) While <điều kiện> <câu lệnh>; c) While <câu lệnh> <điều kiện>; d) While <câu lệnh 1> <câu lệnh 2>; Câu : Câu lệnh sau đây thực bao nhiêu vòng lặp? S: = ; While S<10 then S:=S+3 ; a/ b/ c/ d/ 10 Câu : Sau thực câu lệnh sau , giá trị S bao nhiêu ? S := ; for i:=1 to S:=S+2 ; a/ b/ c/ 10 d/ 12 Câu 10 : Khai báo nào sau đây là đúng ? a/ Var A: array [ , 10 ] of integer ; b/ Var A: array [ 10 ] of integer ; c/ Var A := array [ 10 ] of integer ; d/ Var A: array [ 10 1]of integer ; PHẦN : THỰC HÀNH ( 5Đ ) Viết chương trình cho các bài toán sau 1/ Viết chương trình nhập vào số dương a , b , c kiểm tra và in kết số đó có phải là ba cạnh tam giác hay không ? 1 1 S 1 n với n là số tự nhiên nhập / Viết chương trình tính và in tổng từ bàn phím (2) ĐÁP ÁN PHẦN : TRẮC NGHIỆM ( câu trả lời đúng 0,5 điểm ) Câu Đáp án a c c a d a b b c 10 b PHẦN : Thực hành Câu : , 5đ Program canh_tam _giac; Uses crt ; Var a , b, c : integer ; 0,5đ Begin Clrscr ; Write ( ‘ nhap so a , b , c:’ ); readln ( a , b , c ); 1đ If ( a+b>c ) and ( a + c > b ) or ( b + c >a ) then write ( a , b , c , ‘ la canh cua tam giac’ ) Else write (a , b , c , ‘ khong la canh cua tam giac’); 1đ Readln End Câu : 2,5đ Program tinh_tong ; Uses crt ; Var i , n : integer ; S : real ; 0,5đ Begin Write ( ‘ nhap n = ‘ ); readln (n); S:=0; 0,5đ For i:=1 to n S:=S+1/i ; 1đ Write (‘ tong S la : ‘ , S :4:2); 0,5đ Readln End (3)