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.. ĐÁP ÁN[r]
(1)PHÒNG GD & ĐT TÂN CHÂU ĐỀ THI HỌC KỲ I NĂM HỌC 2013- 2014 TRƯỜNG THCS SUỐI NGÔ MÔN: TIN HỌC 8
Thời gian: 45 phút
(Không kể thời gian chép đề)
ĐỀ
Câu 1: (3 điểm)
Chỉ từ khoá, biến 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điểm): Hãy chuyển biểu thức viết 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/2 + 1/(2*3) + 1/(3*4) + 1/(4*5)
Câu : Hãy liệt kê lỗi có chương trình sau sửa lại cho (Nếu khơng sửa phải giải thích)
Nội dung chương trình Kết quả Sửa lại
Var b, a: Integer; Const c:= 4; Begim a:=200; b:=5/a;
Write(Toi la hoc sinh gioi); readln
(2)PHÒNG GD & ĐT TÂN CHÂU ĐỀ THI HỌC KỲ I NĂM HỌC 2013- 2014 TRƯỜNG THCS SUỐI NGÔ MÔN: TIN HỌC 8
Thời gian: 45 phút
(Không kể thời gian chép đề)
ĐỀ
Bài 1: (3 điểm)
Chỉ từ khoá, biến 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 viết chương trình:
a/ Viết chương trình tính hiệu hai số nguyên a b nhập từ bàn phím b/ Hãy xác định điều kiện toán
Bài 3: (2 điểm)
Hãy liệt kê lỗi có chương trình sửa lại cho Var x, y:= integer;
Const z:=3; Begin x:= 200; y:=x/z; Write(y); Readln End
(3)-HẾT -IV ĐÁP ÁN
CÂU NỘI DUNG ĐIỂM
Bài 1: Mỗi từ khoá biến 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 CT_TINHHIEU; uses crt;
var a, b: integer; begin
Write('hay nhap vao so thu nhat: '); read(a); write('hay nhap vao so thu hai: '); read(b); Writeln('Tinh hieu hai so nhu sau:'); Write(a-b);
end
b/ INPUT: Hai số nguyên a b
OUTPUT: Hiệu hai số a b nhập từ bàn phím
5 điểm
Bài 3: Do đó, chương trình chỉnh sửa là sau: (0.5đ)
Var x: integer; y: real; Const z= 3; Begin
x:= 200; y:= x/z; Write(y); Readln End
(4)Bài 1: (3 điểm)
Câu 2: Hãy chuyển biểu thức viết Pascal sang biểu thức toán học (2điểm
a)
.x
a b a b y
b) b ab c
c)
2
3
a
b c b d)
1 1
1
2 2.3 3.4 4.5
Câu : Hãy liệt kê lỗi có chương trình sau sửa lại cho (Nếu không sửa phải giải thích)
Nội dung chương trình Kết quả Sửa lại
Var b, a: Integer; Đúng
Const c:= 4; Sai Const c= 4;
Begim Sai Begin
a:=200; Đúng
b:=5/a; Sai B số thực
Write(Toi la hoc sinh gioi); Sai Write(‘Toi la hoc sinh gioi’);
readln Đúng