TIN 8

TRƯỜNG THCS NGUYỄN CÔNG TRỨ
LỚP: ……
HỌ VÀ TÊN
KIỂM TRA CHẤT LƯỢNG HỌC KÌ I- NĂM HỌC 2008 -2009
MÔN: TIN HỌC LỚP 8
THỜI GIAN: 45 PHÚT (không tính thời gian phát đề)

Điểm

Lời phê của thầy, cô giáo


Câu 1. Nêu cấu trúc của câu điều kiện hai dạng If. (2đ)
Câu 2. Hàng tháng các hộ dân trong thành phố đều nhận hóa đơn tiền điện. Tiền điện tiêu dùng của mỗi hộ gia đình được tính như sau:
Nếu 100 số đầu tiên mỗi số phải trả 700 đồng.
Nếu mỗi hộ dân dùng với số điện lớn hơn 100 thì phải trả thêm 20% thuế Vat.
Hãy xác định INPUT, OUTPUT và mô tả thuật toán của việc tính tiền điện của các hộ dân trong thành phố.(3đ)
Câu 3. Sau mỗi câu lệnh dưới đây, giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 9? (2đ)
a, If X mod 5= 0 then x:=x+2 else x:=x*2;
b, If (45 div 9=5) and (x>8) then x:=x+2*x;
câu 4. Bạn Nam viết một chương trình như sau, nhưng khi chạy chương trình báo sai em hãy tìm xem bạn đã sai gì?(2đ)
Program bt4;
Var a,b,c: integer;
Begin
Write(‘nhap a,b’);
Readln(a,b);
If a>b then c:= a/b; else c:=a*b;
write(‘ ket qua c la’, c);
readln;
end.
câu 5. Viết chương trình nhập vào hai số x,y tính tổng, thương hai số đó. (1đ)
Bài Làm













ĐÁP ÁN TIN 8

1. Nêu cấu trúc của câu điều kiện hai dạng If (2đ)
Dang thiếu: if <điều kiện> then ;( )
đủ: if <điều kiện> then else ; ()
2. Xác định INPUT, OUTPUT và mô tả thuật toán của việc tính tiền điện của các hộ dân trong thành phố.(3đ)
INPUT số điện,đơn giá phải nhập vào(0.5 đ)
OUTPUT số tiền phải thanh toán (0.5đ)
B1. Nhập số điện(0.5 đ)
B2. Nếu số điện >= 100 thì tiền phải trả =số điện * đơn giá(700)+ 20*(số điện*đơn giá)/100 Ngược lại tiền phải trả = số điện*đơn giá.(1.5đ)
B3. In tiền cần phải thanh toán
B4.Kết thúc(0.5 đ)
3. Giá trị của biến X , nếu trước đó giá trị của X bằng 9? (2đ)
a, x= 18 (đk sai)(1đ)
b, x=27(đk đúng) (1đ)
4. Những lỗi bạn Nam sai(2đ)
sai c: real (1đ)
trước else có dấu ; (1đ)
5. Viết chương trình nhập vào hai số x,y tính tổng, thương hai số đó. (1đ) ( mỗi phần 0,25 đ)
Program bt5;
Var x,y, tong: integer;
thuong:real;
Begin
Write(‘nhap x,y’);
Readln(x,y);
Tong:= x+y;
Thuong:=x/y;
write(‘ ket qua tong la’, tong);
write(‘thuong la’, thuong);
readln;
end.