Dap an kiem tra 45 Tin 8-HKII

ĐÁP ÁN KIỂM TRA MỘT TIẾT – HKII
ĐỀ 1
ĐỀ 2

Bài 1: mỗi ý đúng 0.5đ
1.C 2.D 3.A 4.D 5.C 6.B
Bài 2: mỗi ý đúng 0.25đ
1.S 2. Đ 3.Đ 4.Đ
Bài 3: mỗi ý đúng 0.25đ
1.c 2.a 3.e 4.b
Bài 4: mỗi ý đúng 0.5đ
1. S, dư dấu hai chấm đầu tiên tại i:=1
2. Đ
3. S, dư dấu chấm phẩy trước từ khóa do
4. S, vòng lặp vô tận do không có câu lệnh ghép làm thay đổi biến i(lỗi về ngữ nghĩa)
Bài 5:
* Thuật toán for .. do
B1: nhập n.
B2: s:=0; i:=0;
B3: nếu i > n – 1, chuyển đến B6
B4: Nếu n mod i = 0, s:=s + i, i:=i + 1.
B5: nếu i < n, quay lại B4.
B5: In ra s và kết thúc.
* Chương trình:
Var n,i,s: integer;
Begin
Write(‘Cho so tu nhien n = ‘);
readln(n);
s:=0;
for i:=2 to n - 1 do
If n mod i=0 then s:=s + i;
Write(‘Tong cac uoc thuc su cua’,n,’la ‘,s);
(Mỗi ý đúng 0.25đ, thiếu ý -0.25đ/ý)
Bài 1: mỗi ý đúng 0.5đ
1.B 2.A 3.D 4.B 5.B 6.C
Bài 2: mỗi ý đúng 0.25đ
1.Đ 2. Đ 3.S 4.Đ
Bài 3: mỗi ý đúng 0.25đ
1.d 2.e 3.a 4.c
Bài 4: mỗi ý đúng 0.5đ
1. S, giá trị đầu phải nhỏ hơn giá trị cuối
2. S, vòng lặp vô tận do không có câu lệnh ghép làm thay đổi biến i(lỗi về ngữ nghĩa)
3. S, dư dấu chấm phẩy trước từ khóa do
4. Đ
Bài 5:
* Thuật toán while .. do
B1: nhập n.
B2: s:=0; i:=0;
B3: nếu i> n – 1, chuyển đến B5
B4: Nếu n mod i: = 0, s:=s + i, i:=i + 1và quay lại B3.
B5: In ra s và kết thúc.
* Chương trình:
Var n,i,s: integer;
Begin
Write(‘Cho so tu nhien n = ‘);
readln(n);
i:=2; s:=0;
While i <= n – 1 do
Begin
If n mod i=0 then s:=s + i;
i:=i + 1;
End;
Write(‘Tong cac uoc thuc su cua’,n,’la ‘,s);
(Mỗi ý đúng 0.25đ, thiếu ý -0.25đ/ý)