tin 8 - hk2
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 (92.14 KB, 2 trang )
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) Đọc đoạn chương trình sau là trả lời 2 câu hỏi sau:
If (a<b+c) or (b<a+c) or (c<b+a) then
If (a=b)and(b=c) then
Writeln(‘kết luận 1’)
Else if (a=b) or (a=c) or (b=c) then
Writeln(‘ kết luận 2’)
Else if (a*a=b*b+c*c) and (b*b=a*a+c*c)and (c*c=b*b+a*a) then
Writeln(‘kết luận 3’)
Else writeln(‘ kết luận 4’)
Else writeln(‘ kết luận 5’);
Các kết luận 1, kết luận 2 .. kết luận 5 là gì?
Chương trình làm công việc gì?
Câu 3: (5 điểm)Viết chương trình tính đa thức sau:?
P(x)=a
0
+a
1
x+a
2
x
2
+...+a
n
x
n
Trong đó n, x, a
0
, a
1
, a
2
, ..a
n
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 <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 Kết luận 1: là tam giác đều
Kết luận 2: là tam giác cân
Kết luận 3: là tam giác vuông
Kết luận 4: là tam giác thường
Kết luận 5: không phải là 3 cạnh của tam giác
Kiểm tra 3 số a,b,c có phải là 3 cạnh của tam giác và thuộc tam giác gì
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;
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;
For i:=n downto 0 do
P:=p*x+a[i];
Writeln(‘ kết quả là’,p:4:4);
Readln;
End.
1,0
0.5
1,0
2,0
0.5
