Kiểm tra học kỳ I

PHÒNG GD&ĐT ĐÔNG TRIỀU
TRƯỜNG THCS TRÀNG AN
ĐỀ KIỂM TRA HỌC KỲ I
Môn: Tin học 8
Thời gian: 45’


Đề 1:
Bài1: (3điểm) a) Nêu cú pháp và hoạt động của câu lệnh điều kiện dạng thiếu và dạng đủ.
b) Các câu lệnh pascal sau đây được viết đúng hay sai?
If x:=9 then a=b;
If x>5 then a:=b; else m:=n;
Bài 2: Biến đổi các biểu thức toán học sau sang Pascal. ( 2 điểm )
a)
b)
c) ( a2 + b )( 1 + c )3

d) ( 23- ( 14 : 3 lấy phần nguyên ) ) : 3

Bài 3: Tìm lỗi sai trong các lệnh khai báo sau và sửa lại cho đúng. ( 2 điểm )
- Var a:=7;
- Var xep_loai, diem : integer, real;
- const x : integer;
- const ten_nhom = Tin hoc

Bài 4: Nhập ba số dương a, b, c in kết quả kiểm tra ba số đó có thể là độ dài ba cạnh của một tam giác hay không. ( 3điểm )
a)Mô tả thuật toán để giải bài toán trên
b)Viết chương trình.

------------Hết------------










hướng dẫn chấm và Biểu điểm đề 1
Đáp án
Điểm

Bài 1:
a)- Cú pháp:
IF <điều kiện> then ;
- Hoạt động: Chương trình sẽ kiêm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh sau từ khoá then, ngược lại câu lệnh đó bị bỏ qua.
* Dạng đủ:
- Cú pháp: If <điều kiện> then Else
- Hoạt động: Chương trình sẽ kiểm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh 1 sau từ khoá then, ngược lại câu lệnh 2 sẽ được thực hiện.
b)-Sai ( thừa dấu hai chấm)
- Sai ( thừa dấu chấm phảy thứ nhất)
Bài 2:
(10+2)*(10+2)/ (3+1)
(x+2)*(x+3)/(x+4)-y/(x+3)*(x+3)
( a*a + b)*(1 + c)*(1 + c)*(1 + c)
(23 – ( 14 div 3 )/3
Bài 3:
-Sai từ khoá và thừa dấu hai chấm. Sửa: Const a=7;
-Khai báo từng kiểu dữ liệu riêng.
Sửa:Var xep_loai: integer ; diem: real;
-Sai từ khoá. Sửa: Var x: integer;
-Giá trị hằng xâu để trong dấu nháy. Sửa const ten_nhom = ‘Tin hoc’;
Bài 4:
a) Bước 1: Tính a + b. Nếu a + b ≤ c, chuyển tới bước 5.
Bước 2: Tính b + c. Nếu b + c ≤ c, chuyển tới bước 5.
Bước 3: Tính a + c. Nếu a + c ≤ b, chuyển tới bước 5.
Bước 4: Thông báo “a, b và c có thể là ba cạnh của một tam  giác” và kết thúc thuật toán.
Bước 5: Thông báo “a, b và c không thể là ba cạnh của một tam  giác” và kết thúc thuật toán.
b)
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write(`Nhap ba so a, b va c:`); readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln(`a, b va c la 3 canh cua mot tam giac!`) else writeln(`a, b, c khong la 3 canh cua 1 tam giac!`);
Readln
end.
( 3điểm)

0.5

0.5


0.5