Tải bản đầy đủ (.docx) (5 trang)

kiem tra hoc ky II tin hoc 8

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (111.14 KB, 5 trang )

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

<b>PHÒNG GD & ĐT VĨNH LINH</b>
<b>TRƯỜNG THCS TRẦN CƠNG ÁI</b>


<b>Đề chính thức</b>


<b>ĐỀ THI CHẤT LƯỢNG HỌC KÌ II</b>
<b>NĂM HỌC 2015 - 2016</b>
<b>MÔN: TIN HỌC – LỚP 8</b>


<b>Thời gian: 45 phút (không kể thời gian giao đề)</b>


<b>Câu 1: </b><i>( 2 điểm)</i>


Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp?


<b>Câu 2: </b><i>( 2 điểm)</i> Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết đoạn lệnh đó chương trình thực hiện
bao nhiêu vịng lặp? Hãy rút ra nhận xét của em.


a) S:=0; n:=0;
While s<=10 do


begin n:=n+1; S:=S+n end;
b) S:=0; n:=0;


While s<=10 do
n:= n+1; s:=s+n;


<b>Câu 3: </b><i>( 3 điểm)</i> Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số
ngun tố hay khơng?


<b>Câu 4: </b><i>( 3 điểm)</i> Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất?



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

<b>PHÒNG GD & ĐT VĨNH LINH</b>
<b>TRƯỜNG THCS TRẦN CƠNG ÁI</b>


<b>Đề chính thức</b>


<b>ĐỀ THI CHẤT LƯỢNG HỌC KÌ II</b>
<b>NĂM HỌC 2015 - 2016</b>
<b>MÔN: TIN HỌC – LỚP 8</b>


<b>Thời gian: 45 phút (không kể thời gian giao đề)</b>


<b>Câu 1: </b><i>( 2 điểm)</i>


Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp?


<b>Câu 2: </b><i>( 2 điểm)</i> Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết đoạn lệnh đó chương trình thực hiện
bao nhiêu vịng lặp? Hãy rút ra nhận xét của em.


a) S:=0; n:=0;
While s<=10 do


begin n:=n+1; S:=S+n end;
b) S:=0; n:=0;


While s<=10 do
n:= n+1; s:=s+n;


<b>Câu 3: </b><i>( 3 điểm)</i> Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số
ngun tố hay khơng?



<b>Câu 4: </b><i>( 3 điểm)</i> Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất?


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

<b>PHỊNG GD & ĐT VĨNH LINH</b>
<b>TRƯỜNG THCS TRẦN CƠNG ÁI</b>


<b>Đề chính thức</b>


<b>ĐỀ THI CHẤT LƯỢNG HỌC KÌ II</b>
<b>NĂM HỌC 2015 - 2016</b>
<b>MÔN: TIN HỌC – LỚP 8</b>


<b>Thời gian: 45 phút (không kể thời gian giao đề)</b>


<b>Câu 1: </b><i>( 2 điểm)</i> Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết đoạn lệnh đó chương trình thực hiện
bao nhiêu vòng lặp? Hãy rút ra nhận xét của em.


a) S:=0; n:=0;
While s<=10 do


begin n:=n+1; S:=S+n end;
b) S:=0; n:=0;


While s<=10 do
n:= n+1; s:=s+n;


<b>Câu 2: </b><i>( 2 điểm)</i>


Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp?



<b>Câu 3: </b><i>( 3 điểm)</i> Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số
nguyên tố hay không?


<b>Câu 4: </b><i>( 3 điểm)</i> Viết chương trình nhập N số ngun từ bàn phím và in ra màn hình số lớn nhất?


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

<b>ĐÁP ÁN VÀ BIỂU ĐIỂM ĐỀ THI HỌC KỲ II LỚP 8</b>


<b>Câu 1: </b>


- Khai báo đúng cú pháp câu lệnh lặp: <b>(1 điểm)</b>


For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
- Ví dụ về câu lệnh lặp : <b>(1 điểm)</b>


<b>Câu 2: </b>


<i>a</i>) Chương trình thực hiện 5 vịng lặp. <b>(0,5 điểm)</b>


<i>b</i>) Vịng lặp trong chương trình được thực hiện vơ tận vì sau câu lệnh <b>n:=n+1; </b>câu lệnh lặp kết thúc nên điều
kiện <b>S=0 </b>luôn luôn được thỏa mãn. <b>(0,5 điểm)</b>


<i><b>Nhận xét:</b></i> Trong câu lệnh thực hiện, điều kiện cần phải được thay đổi để sớm hay muộn chuyển sang trạng
thái khơng thỏa mãn. Khi đó vịng lặp mới được kết thúc sau hữu hạn bước. Để làm được điều này, <i>câu lệnh</i>


trong câu lệnh lặp <b>while..do </b>thường là <i>câu lệnh ghép</i>. <b>(1 điểm)</b>
<b>Câu 3:</b>


<b>Viết chương trình số nguyên tố.</b>
Uses Crt;


Var n, i: integer;


Begin


Clrscr;


write (‘ Nhap vao mot so nguyen:’); readln;
if n<=1 then writeln(n, ‘khong la so nguyen to’)
else


begin
I:=2;


while (n mod i <>0) do i:=i+1;


if i=n then writeln (n, ‘la so nguyen to’)
else writeln (n, ‘khong la so nguyen’)
end;


readln;
End.
<b>Câu 4: </b>


<b>Viết chương trình tìm giá trị nhỏ nhất của dãy</b>
Program Tim_min;


Var i,N, Min: integer;
A:Array[1..100] of integer;
Begin


Writeln(‘ nhap N’); Readln(N);



Writeln(‘ nhap các phan tu cua day so’);
For i:=1 to n do


Begin


Write(‘a[‘,i,’]=’); Readln(a[i]);
End;


Max:=a[1];
For i:=2 to n do


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

<!--links-->

Tài liệu bạn tìm kiếm đã sẵn sàng tải về

Tải bản đầy đủ ngay
×