HK II Tin 8

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

Họ và tên học sinh:...

<b>KIỂM TRA HỌC KỲ II. NĂM HỌC 2011-2012</b>

Lớp 8/... Môn:Tin Học 8. Thời gian 45 phút

Điểm Lời phê giáo viên

<b>I /Trắc nghiệm </b>(2đ):

Điền Đ (đúng) hoặc S (sai) với các câu sau:
1.

 for i:=10 to 1 do writeln('b');

2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.
3.  for i:=1 to 100 do ;

4.  for i:=1 to 100 do writeln('b');
5.

 for i:=0.5 to 5.5 do writeln('b');
6.

 for i=1 to 100 do writeln('b');
7.

 while…do là câu lệnh lặp với số lần lặp biết trước trong pascal



8.S:=0; n:=0;

while S <= 100 do

begin n:=n+1; S:=S+n end;
<b>II /Tự luận</b>(8đ):

Câu 1 (3điểm) Hãy sắp xếp lại đọan chương trình sau cho đúng
var S, n : integer;

S:=0; n:=1;
while S<=100 do
n:=n+1;

S:=S+n;
end;

writeln('So n nho nhat de tong > 100 la ',n);
readln

end.
Begin
begin

writeln('Tong dau tien > 100 la ',S);

Câu 2 (2 điểm): Viết thuật tốn tính tổng n số tự nhiên đầu tiên ( n = 1, 2, 3, ... ) sao cho tổng
nhỏ nhất lớn hơn 30 và in kết quả tổng, n

Câu 3 (3 điểm) Viết chương trình in ra câu “ Tien hoc le – Hau hoc van “ 10 lần ?

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>Đáp án </b>

<b>I /Trắc nghiệm </b>(2đ):

Điền Đ (đúng) hoặc S (sai) với các câu sau:
S 1. for i:=10 to 1 do writeln('b');

Đ 2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.
Đ 3.  for i:=1 to 100 do ;

<b>Đ</b> 4.  for i:=1 to 100 do writeln('b');
S 5. for i:=0.5 to 5.5 do writeln('b');
S 6. for i=1 to 100 do writeln('b');

S 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
S 8.S:=0; n:=0;

while S <= 100 do

begin n:=n+1; S:=S+n end;
<b>II /Tự luận</b>(8đ):

Câu 1 (3điểm) sắp xếp lại
var S, n : integer;

Begin

S:=0; n:=1;
while S<=100 do
begin

n:=n+1;
S:=S+n;
end;

writeln('So n nho nhat de tong > 100 la ',n);
writeln('Tong dau tien > 100 la ',S);

readln
end.

Câu 2 (2 điểm):
4 bước, mỗi bước 0.5đ

Câu 3 (3 điểm) Viết chương trình in ra câu “ Tien hoc le – Hau hoc van “ 10 lần ?
Program lap;

Var i : integer;
Begin

For i :=1 to 10 do

Writeln ( ‘ lan thu ’,i,‘ Tien hoc le – Hau hoc van ‘);
Readln

</div>

<!--links-->