Đề kiểm tra 15 phút tin học 8

ĐỀ KIỂM TRA 15 PHÚT TIN HỌC TUẦN 33
ĐỀ 1: viết chương trình tính tổng 10 số tự nhiên đầu tiên.
Dùng lệnh While…do.
ĐỀ 2: viết chương trình tính tổng 10 số tự nhiên đầu tiên.
Dùng lệnh For…do.
ĐÁP ÁN:
Đề 1
Câu
Dùng lệnh Program Tinh_tong;
While…do Const n = 10;
Var i, tong: integer;
Begin
Tong := 0;
I := 1;
While I < n do
Begin
Tong := tong + I;
I := I + 1;
End;
Writeln ( ‘ Tong cua 10 so tu
nhien dau tien la:’, tong);
Readln;
End.

Điểm
0.5
0.5
0.5
0.5
1
1

1
0.5
1
1
0.5
1
0.5
0.5

Đề 2
Dùng
lệnh
For…do

Câu
Program Tinh_tong;
Const n = 10;
Var i, tong: integer;
Begin
Tong := 0;
For I := 1 to 10 do
Tong := tong + I;
Writeln ( ‘ Tong cua 10 so
tu nhien dau tien la:’, tong);
Readln;
End.

Điểm
1
1

1
1
1
1
1
1
1
1