PHÒNG GD&ĐT HƯỚNG HOÁ
TRƯỜNG THCS LAO BẢO
(((((
KIỂM TRA HỌC KỲ II
MÔN: TIN HỌC, Lớp 8
(Thời gian 45 phút)

ĐỀ:
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.
Câu 3: (5 điểm)Viết chương trình tính đa thức sau:?
P(x)=a0-a1x+a2x2- a3x3+...+(-1)nanxn
Trong đó n, x, a0, a1, a2, ..an nhập từ bàn phím?



















 PHÒNG GD&ĐT HƯỚNG HOÁ
TRƯỜNG THCS LAO BẢO
(((((
HƯỚNG DẪN CHẤM
MÔN: TIN HỌC, Lớp 8
(Thời gian 45 phút)

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 :=gtđầu to gtcuối do
;
(trong đó 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

0,5

0,5


0,5



0,5

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

0
30
48
30

1
48
30
18

2
30
18
12

3
18
12
6

4
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;
Begin
Writeln(‘ Nhập vào giá trị n=’); readln(n);
Writeln(‘ Nhập vào giá trị x=’); readln(x);

For i:=0 to n do
Begin
Writeln(‘ nhập giá trị a[‘,i,’]=’); readln(a[i]);
End;

P:=0; t:=1;
For i:=n downto 0 do
begin
P:=t*p*x+a[i]; t:=-t;
End;

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

1,0


0.5



1,0




2,0





0.5