Nhận xét: 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[r]
Trang 1PHÒNG GD & ĐT VĨNH LINH
TRƯỜNG THCS TRẦN CÔNG ÁI
Đề chính thức
ĐỀ THI CHẤT LƯỢNG HỌC KÌ II NĂM HỌC 2015 - 2016 MÔN: TIN HỌC – LỚP 8 Thời gian: 45 phút (không kể thời gian giao đề)
Câu 1: ( 2 điểm)
Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp?
Câu 2: ( 2 điểm) 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;
Câu 3: ( 3 điểm) 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?
Câu 4: ( 3 điểm) 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?
-Hết -(Giám thị coi thi không giải thích gì thêm)
Trang 2PHÒNG GD & ĐT VĨNH LINH
TRƯỜNG THCS TRẦN CÔNG ÁI
Đề chính thức
ĐỀ THI CHẤT LƯỢNG HỌC KÌ II NĂM HỌC 2015 - 2016 MÔN: TIN HỌC – LỚP 8 Thời gian: 45 phút (không kể thời gian giao đề)
Câu 1: ( 2 điểm)
Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp?
Câu 2: ( 2 điểm) 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;
Câu 3: ( 3 điểm) 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?
Câu 4: ( 3 điểm) 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?
-Hết -(Giám thị coi thi không giải thích gì thêm)
Trang 3PHÒNG GD & ĐT VĨNH LINH
TRƯỜNG THCS TRẦN CÔNG ÁI
Đề chính thức
ĐỀ THI CHẤT LƯỢNG HỌC KÌ II NĂM HỌC 2015 - 2016 MÔN: TIN HỌC – LỚP 8 Thời gian: 45 phút (không kể thời gian giao đề)
Câu 1: ( 2 điểm) 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;
Câu 2: ( 2 điểm)
Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp?
Câu 3: ( 3 điểm) 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?
Câu 4: ( 3 điểm) 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?
-Hết -(Giám thị coi thi không giải thích gì thêm)
Trang 4ĐÁP ÁN VÀ BIỂU ĐIỂM ĐỀ THI HỌC KỲ II LỚP 8
Câu 1:
- Khai báo đúng cú pháp câu lệnh lặp: (1 điểm)
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 : (1 điểm)
Câu 2:
a) Chương trình thực hiện 5 vòng lặp (0,5 điểm)
b) Vòng lặp trong chương trình được thực hiện vô tận vì sau câu lệnh n:=n+1; câu lệnh lặp kết thúc nên điều kiện S=0 luôn luôn được thỏa mãn (0,5 điểm)
Nhận xét: 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, câu lệnh
trong câu lệnh lặp while do thường là câu lệnh ghép (1 điểm)
Câu 3:
Viết chương trình số nguyên tố.
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
Câu 4:
Viết chương trình tìm giá trị nhỏ nhất của dãy
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
If max<a[i] then Max:=a[i];
Write(‘ so nho nhat la’,min);
Readln;
End
1 điểm
1 điểm
1 điểm
0,5 điểm
0,5 điểm
1 điểm
1 điểm