Kiểm tra 1 tiết

HỌ VÀ TÊN: ........................................................................................
KIỂM TRA 1 TIẾT, HK2 (2017-2018)

LỚP: ..............................................................
MÔN: TIN HỌC 8 (45 PHÚT)



A. Trắc nghiệm (4 điểm)
Khoanh tròn vào chữ cái đầu em cho là đúng nhất.

Câu 1: Trong ngôn ngữ lập trình Pascal, câu lệnh lặp với số lần biết trước là:
A. If (Điều kiện) then (Câu lệnh);
B. Var i,n: Integer;
C. While (điều kiện) do (câu lệnh);
D. For := to do ;
Câu 2: Trong câu lệnh lặp: For := to do ; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu 3: Đâu là hoạt động lặp với số lần chưa biết trước?
A. Hàng ngày em ăn cơm 2 lần.
B. Một tuần trường em tổ chức chào cờ 1 lần.
C. Ngày em đánh răng 3 lần
D. Em sẽ đến nhà bà ngoại chơi vào hôm cả bố và mẹ đi vắng.
Câu 4: Câu lệnh pascal nào sau đây là hợp lệ?
A. For i=1 to 10 do writeln(‘A’)
B. For i : = 1 to 10 do writeln(‘A’);

C. For i:=5 to 30 do; writeln(‘A’)
D. For i:= 10 to 1 do writeln(‘A’);

Câu 5: Trong các câu lệnh lặp Pascal sau đây, câu nào đúng
A. While i=1 do T:=10;
B. While (n mod i <> 0); do i:= i+ 1 ;

C. While 1 = 1; do Writeln (‘Dung’);
D. While x
Câu 6: Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu?
a:=0 ; for i:= 1 to 3 do a:= a+i;
A. 3 B. 4 C. 6 D. 5
Câu 7: Trong câu lệnh lặp for i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 1 lần C. 10 lần D. 2 lần
Câu 8: Trong ngôn ngữ Pascal, đoạn chương trình sau thực hiện bao nhiêu vòng lặp?
S:=2; n:=0; While s<=10 do Begin n:=n+2; s:= s+ n end;
A. 3 lần B. 4 lần C. 5 lần D. 2 lần
B. Tự luận (6 điểm)
Câu 1: (2đ): Em cho biết cú pháp câu lệnh lặp For...do và hoạt động của câu lệnh lặp
Câu 2: (2đ) Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?

VIẾT SAI THỨ TỰ
SẮP XẾP LẠI CHO ĐÚNG


Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
Readln;
















































Câu 3: (2đ) Em hãy viết chương trình tính tổng N số tự nhiên sao cho tổng nhỏ nhất lớn hơn 10. Dùng câu lệnh While ... Do.