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]
(1)ĐỀ 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ỉ từ khố, 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 3: 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) (5điểm)
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)ĐỀ 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ỉ 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/ Tìm giá trị lớn hai số a, b nhập từ bàn phím b/ Hãy xác định điều kiện tố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 a, b:= integer;
Const c:=3; Begin a:= 200; b:=a/c; Write(b); Readln End
-HẾT -IV ĐÁP ÁN
ĐỀ 1
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)Bài 2:
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
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
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
end Sai End
5 điểm
ĐỀ 2
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 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) ;
(4)Readln; End. b/
Xác định toán
- Input: hai số a, b,nhập từ bàn phím Output: giá trị MAX hais số a, b,nhập từ bàn phím
Bài 3: Do đó, chương trình chỉnh sửa là sau: (0.5đ)
Var a: integer;
b: real; Const c= 3; Begin
a:= 200; b:= a/c; Write(b); Readln End