de thi tin lop 8 2010

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[r]

ĐỀ THI LỚP 8

I./ TR ẮC 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

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

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?

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;

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)

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./ TR ẮC NGHIỆM (4.0 điểm)Mỗi câu đúng 0.5 điểm

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