De thi hoc ky I mon tin hoc 8

Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng.[r]

ĐỀ THI HỌC KỲ I MÔN: TIN HỌC 8 Thời gian: 45 phút (Không kể thời gian chép đề)

ĐỀ 1

Câu 1: (3 điểm)

Chỉ ra các từ khoá, các biến của chương trình tính diện tích hình tròn

Program S_Hinh_Tron;

Var R: Integer;

S: Real;

Const PI = 3.14;

Begin

Write('Nhap ban kinh hinh tron R=: '); Readln(R);

S:= So_PI*R*R;

Write('Dien tich hinh tron la: ', S); readln

end

Câu 2 (2điểm): Hãy chuyển các biểu thức được viết trong Pascal sang biểu thức toán học (2điểm)

a, (a + b)*(a – b)* x/y;

b, b/(a*b + c*c);

c, a*a/((3*b – c)*3*b);

d, 1 + 1/2 + 1/(2*3) + 1/(3*4) + 1/(4*5)

Câu 3 : Hãy liệt kê các lỗi nếu có trong chương trình sau và sửa lại cho đúng (Nếu không sửa phải

giải thích) (5điểm)

Var b, a: Integer;

Const c:= 4;

Begim

a:=200;

b:=5/a;

Write(Toi la hoc sinh gioi);

readln

end

ĐỀ THI HỌC KỲ I MÔN: TIN HỌC 8 Thời gian: 45 phút (Không kể thời gian chép đề)

ĐỀ 2

Bài 1: (3 điểm)

Chỉ ra các từ khoá, các biến của chương trình tính diện tích hình tròn

Program S_Hinh_Tron;

Var R: Integer;

S: Real;

Const PI = 3.14;

Begin

Write('Nhap ban kinh hinh tron R=: '); Readln(R);

S:= So_PI*R*R;

Write('Dien tich hinh tron la: ', S); readln

end

Bài 2: (5 điểm)

Em hãy viết chương trình:

a/ Tìm giá trị lớn nhất trong hai số a, b được nhập từ bàn phím

b/ Hãy xác định điều kiện bài toán

Bài 3: (2 điểm)

Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng

Var a, b:= integer;

Const c:=3;

Begin a:= 200;

b:=a/c;

Write(b);

Readln End

-HẾT -IV ĐÁP ÁN

ĐỀ 1

Bài 1: Mỗi từ khoá và biến chỉ ra đúng được 0,5 điểm.

Program ; Var ; Const ; Begin ; end.

Các biến: R, S

3 điểm

Bài 2:

A) a b  a b.x

y

b

ab c C)  

2

a

D)

1

2 2.3 3.4 4.5

2 điểm

Bài 3:

Nội dung chương trình Kết quả Sửa lại

Var b, a: Integer; Đúng

Write(Toi la hoc sinh

gioi); Sai Write(‘Toi la hoc sinh gioi’);

5 điểm

ĐỀ 2

Bài 1: Mỗi từ khoá và biến chỉ ra đúng được 0,5 điểm.

Program ; Var ; Const ; Begin ; end.

Các biến: R, S

3 điểm

Bài 2: a/ Viết chương trình.

Program GTLN;

Uses crt;

Var a, b, Max : Integer;

Begin

Clrscr;

Write (‘a=’) ; Readln(a);

Write (‘b=’) ; Readln(b);

Max: =a;

If a < b then Max : = b;

Writeln (‘ gia tri lon nhat cua hai so a, b la :’, Max) ;

5 điểm

End.

b/

 Xác định bài toán

- Input: hai số a, b,nhập từ bàn phím

Output: giá trị MAX trong hais số a, b,nhập từ bàn phím

Bài 3: Do đó, chương trình đã chỉnh sửa sẽ là

như sau: (0.5đ)

Var a: integer;

b: real;

Const c= 3;

Begin

a:= 200;

b:= a/c;

Write(b);

Readln End

2 điểm