De thi tin lop 8 -2010

ĐỀ THI LỚP 8
I./ NGHIỆM (4.0 điểm)
Câu 1: Máy tính có thể hiểu được trực tiếp ngôn ngữ nào trong các ngôn ngữ dưới đây?
A.Ngôn ngữ tự nhiên B.Ngôn ngữ máy
C.Ngôn ngữ lập trình D.Tất cả các ngôn ngữ nói trên
Câu 2: Trong các tên sau, tên nào là tên hợp lệ trong Pascal
A.Tinh_tong B. Begin C. 3diem D.#Tong
Câu 3: Trong các biểu thức sau, biểu thức nào sẽ cho kết quả là True
A.(5>3) and (6>2) B. (7<1) and (6>2) C. (7<1) or (6<2) D. 4 >7
Câu 4: Trong câu lệnh lặp for i:=1 to 10 do begin…..end; Hỏi có bao nhiêu vòng lặp được thực hiện
A.1 lần B. 2 lần C. 10 lần D.Không lần nào
Câu 5: Khi cần đếm một số từ 1 đến 100, ta dùng kiểu kiểu dữ liệu nào?
A.Byte B. Real C. String D. Char
Câu 6: Các câu lệnh Pascal sau, câu lệnh nào 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 100 do;Writeln (‘A’);
Câu 7: Sau khi thực hiện đoạn chương trình sau, giá trị của biến J bằng bao nhiêu?
J :=0;
for i:=0 to 5 do J := J+1;
A.2 B. 4 C. 6 D.8
Câu 8: Hãy cho biết giá trị của biến X =? Sau khi thực hiện câu lệnh if (45 mod 3 ) = 0 then X :=X+2; ( Biết rằng trước đó giá trị của biến X = 5)
A.5 B. 7 C. 9 D. 11
II./ TỰ LUẬN (6.0 điểm)
Câu 1 : (1.5 đ)Hãy cho biết giá trị của các biến a, b, c sau khi thực hiện xong những lệnh sau:
1./ Const c=5;
2./ a :=10;
3./ b :=a+10;
4./ a :=a +(c*b);
Câu 2: (2.0 đ) Hãy tìm lỗi và sửa lại trong chương trình sau để được một chương trình đúng
Var a,b := integer;
Const c := 3;
Begin
a := 200
b := a/c ;
write (b);
readln
end
Câu 4: (2.5 đ) Viết chương trình tính diện tích hình tròn







ĐÁP ÁN-BIỂU ĐIỂM
I./ NGHIỆM (4.0 điểm)Mỗi câu đúng 0.5 điểm

1
2
3
4
5
6
7
8

B
A
A
C
A
C
C
B


II./ TỰ LUẬN (6.0 điểm)
Câu 1: (2.0 điểm) Sau khi thực hiện xong những lệnh các biến a, b, c có giá trị lần lượt là: 110, 20, 5
Câu 2: (2.0 đ) Chương trình được sửa lại như sai
Var a: integer; b: real;
Const c = 3;
Begin
a := 200;
b := a/c ;
write (b);
readln
end.
Câu 4: (2.5 đ)chương trình tính diện tích hình tròn
Program Dientichhinhtron;
Uses crt;
Var r: interger;
S: real;
Const Pi = 3.14;
Begin
Clrscr;
Write (‘Cho biet ban kinh hinh tron r =: ‘);
Readln (r)
S :=Pi*r*r;
Write (‘dien tich hinh tron la: ‘, S:8:2);
Readln
End.