ĐỀ THI KÌ II
MÔN TIN HỌC 8
THỜI GIAN 45 PHÚT (Không kể thời gian phát đề )

PHẦN 1 : 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 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu
a) Interger; b) real; c) string d) tất cả các kiểu trên đều được
Câu 2: Trong các khai báo sau , khai báo nào đúng trong 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 > 5 then m=n; b) If x > 5 then a:=b; Else m:=n;
c) If x > 5 then a:=b; m:=n; d) If x := 5 then a:=b;
Câu 4: Sau khi thực hiện đoạn lệnh sau, x nhận giá trị bao nhiêu:
x:=7; if ( x mod 2 )= 0 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 1 do writeln(‘A’) b) for i:= 1.5 to 10.5 do writeln(‘A’)
c) for i:= 1 to 10 do; writeln(‘A’) d) for i:=1 to 10 do writeln(‘A’);
Câu 6: Để chạy chương trình trong 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 của vòng lặp WHILE - DO có dạng:
a) While <điều kiện1> do < điều kiện2>; b) While <điều kiện> do ;
c) While do <điều kiện>; d) While do ;
Câu 8 : Câu lệnh sau đây thực hiện bao nhiêu vòng lặp?
S: = 0 ; While S<10 then S:=S+3 ;
a/ 3 b/ 4 c/ 5 d/ 10
Câu 9 : Sau khi thực hiện câu lệnh sau , giá trị của S bằng bao nhiêu ?
S := 0 ; for i:=1 to 5 do S:=S+2 ;
a/ 8 b/ 9 c/ 10 d/ 12
Câu 10 : Khai báo nào sau đây là đúng ?
a/ Var A: array [ 1 , 10 ] of integer ;
b/ Var A: array [ 1..10 ] of integer ;
c/ Var A := array [ 1 .. 10 ] of integer ;
d/ Var A: array [ 10 ..1]of integer ;
PHẦN 2 : 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 3 số dương a , b , c kiểm tra và in ra kết quả 3 số đó có phải là ba cạnh của một tam giác hay không ?
2 / Viết chương trình tính và in ra tổng
với n là một số tự nhiên bất kỳ nhập từ bàn phím
ĐÁP ÁN
PHẦN 1 : TRẮC NGHIỆM ( mỗi câu trả lời đúng được 0,5 điểm )
Câu
1
2
3
4
5
6
7
8
9
10

Đáp án
a
c
c
a
d
a
b
b
c
b


PHẦN 2 : Thực hành
Câu 1 : 2 , 5đ
Program canh_tam _giac;
Uses crt ;
Var a , b, c : integer ; 0,5đ
Begin
Clrscr ;
Write ( ‘ nhap 3 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 3 canh cua tam giac’ )
Else write (a , b , c , ‘ khong la 3 canh cua tam giac’); 1đ
Readln
End .
Câu 2 : 2,5đ
Program tinh_tong ;
Uses crt ;
Var i , n : integer ;