hkii b tin học 8 lê phước hoà thư viện giáo dục tỉnh quảng trị

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

<b>PHỊNG GD&ĐT HƯỚNG HỐ</b>
<b>TRƯỜNG THCS LAO BẢO</b>



<b>KIỂM TRA HỌC KỲ II</b>
<b>MÔN: TIN HỌC, Lớp 8</b>

<b>(Thời gian 45 phút)</b>
ĐỀ:

Câu 1: (2 điểm) Cấu trúc lặp có vai trị gì trong các ngơn ngữ lập trình? Có mấy
loại cấu trúc lặp? Hãy viết cú pháp của câu lệnh lặp bằng ngôn ngữ pascal?
Câu 2: (3 điểm) Hãy cho biết số lần lặp, quả ở mỗi bước lặp, và kết quả trên màn
hình là gì, từ đó cho biết đoạn chương trình trên?:

function try(n,m:integer):integer;
var r:integer ;

Begin

r := n mod m;
Whilr r<> 0 do
Begin

n:=m; m:=r;
r:= n mod m;
End;

Try:=m;
End;

Begin

Writeln(Try(30,48)); Readln;
End.

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

PHỊNG GD&ĐT
<b>HƯỚNG HỐ</b>
<b>TRƯỜNG THCS LAO</b>

<b>BẢO</b>


<b>HƯỚNG DẪN CHẤM</b>
<b>MƠN: TIN HỌC, Lớp 8</b>

<b>(Thời gian 45 phút)</b>

STT Nội dung Điểm

Câu 1

- Cấu trúc lặp được sử
dụng trong thuật toán để
mơ tả một hay một nhóm
cơng việc được lặp đi lặp
lại nhiều lần.

- Cấu trúc lặp được chia
làm 2 dạng lặp với số lần
biết trước và lặp với số

lần chưa biết trước.
- Cú pháp: lặp với số lần
biết trước.

For <biến>:=gtđầu to
gtcuối do

<Cơng việc>;

(trong đó <biến> thuộc
kiểu nguyên)

- Cú pháp: lặp với số lần
không biết trước

While <điều kiện> do
<công việc>

0,5
0,5
0,5

0,5

Câu 2 Số lần lặp n m r

30 48 30

48 30 18

30 18 12

18 12 6

12 6 0

Kết quả trên màn hình là 6:
là chương trình tìm UCNL
của 2 số n và m

0,5
0,5
0,5
0,5
0,5
0,5

Câu 3 Program hooc_ner;

Var a:array[0..50] of real;
T,N,i:integer;
P,x:real;

<i>Begin</i>

<i> Writeln(‘ Nhập vào giá trị </i>
<i>n=’); readln(n);</i>

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

<i> Writeln(‘ Nhập vào giá trị </i>
<i>x=’); readln(x);</i>

<i>For i:=0 to n do</i>
<i> Begin</i>

<i> Writeln(‘ nhập giá trị </i>
<i>a[‘,i,’]=’); readln(a[i]);</i>
<i> End;</i>

<i>P:=0; t:=1;</i>

<i>For i:=n downto 0 do</i>
<i>begin</i>

<i>P:=t*p*x+a[i</i>]; t:=-t;
End;

Writeln(‘ kết quả là’,p:4:4);
Readln;

End.

1,0

2,0

</div>

<!--links-->