Đề kiểm tra 1 tiết môn Tin học Khối 8 - Học kì 2 - Năm học 2017-2018

Nội dung text: Đề kiểm tra 1 tiết môn Tin học Khối 8 - Học kì 2 - Năm học 2017-2018

1. 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<y do; Writeln (‘y nho hon 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? 1
2. 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. 2