Kt tuan 30

Trường THCS Ngọc Định. KIỂM TRA 1 TIẾT
Họ và tên:…………………….. (LÝ THUYẾT)
Lớp 8a……………… TUẦN 30 – TIẾT 56
MÔN: TIN HỌC 8 (ĐỀ 1)
ĐIỂM
LỜI PHÊ CỦA GIÁO VIÊN




Phần 1 (3 điểm): Trắc nghiệm khách quan :
Chọn đáp án đúng nhất.
Trong câu lệnh lặp với số lần biết trước:
Câu 1 : Biến đếm trong câu lệnh lặp với số lần biết trước được khai báo kiểu:
a. char b. real c. integer d. string
Câu 2 : Vòng lặp của câu lệnh lặp với số lần biết trước sẽ dừng lại khi:
a. Giá trị đầu = Giá trị cuối b. Giá trị đầu > Giá trị cuối
c. Giá trị đầu >= Giá trị cuối d. Giá trị đầu < Giá trị cuối
Câu 3 : Vòng lặp sau thực hiện bao nhiêu lần?
For i := 2 to n+1 do write(‘A’);
a. n – 1 b. n c. n + 1 d. n + 2
Câu 4 : Sau do ta có thể thực hiện mấy câu lệnh?
a. 1 b. 2 c. 3 d. 4
Câu 5 : Câu lệnh nào sau đây hợp lệ?
a. For i := 20 to 1 do write(‘A’); b. For i := 1.3 to 22 do write(‘A’);
c. For i = 1 to 10 do write(‘A’); d. For i := 0 to 50 do write(‘A’);
Câu 6 : Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
For i: = 0 to 4 do j:=j+2;
a. 4 b. 6 c. 8 d. 10
Câu 7: Trong phần mềm Sun Times để hiện hình ảnh bầu trời theo thời gian, ta thực hiện:
a. Option->Maps->Show Sky Color b. Option->Maps->Hover Update
c. Option->Anchor Time To d. View->Eclipse
Câu 8: Vòng lặp sau đây sẽ kết thúc khi nào?
While n<1 do write(‘ b ‘);
a. n = 1 b. n <= 1 c. n > 1 d. n >= 1
Câu 9: Câu lệnh nào sau đây viết đúng:
a. White i<10 do s:= s + i; b. while i:=10 s i;
c. While i<10 do s:= s + i; d. while i<10 s =s i;
Câu 10: Vòng lặp sau đây sẽ thực hiện:
n:= 2 ;
While n > 0 do write(‘ Ngoc Dinh’);
a. 1 lần b. 10 lần c. 100 lần d. vô hạn lần
Câu 11: Điều kiện trong vòng lặp với số lần chưa biết trước thường là:
a. Câu lệnh gán b. Phép so sánh c. Biểu thức d. Biến đếm.
Câu 12: Giá trị của S sau khi chạy chương trình sau là:
S: = 1; i: = 2;
While i< 5 do Begin i:= i + 1; S: = S+ i; End;
a. 5 b. 8 c. 10 d. 13
Phần 2 : Tự luận
Câu 1 ( 1 điểm): Hãy so sánh vòng lặp For....to...do.... và vòng lặp While.......do.......
Câu 2 ( 2 điểm): Tìm lỗi sai trong đoạn chương trình sau và sửa lại cho đúng:
Program : vi_du;
Var i,n,S: integer;
Begin
Write(’nhap n’); readln(n);
S:= 1.5; i:= 1;
While i + 2 < 10 then S:= S *2i;
Write(’Tong la S=, S);
Readln
End.
Câu 3 (4 điểm): Viết chương trình tìm các số tự nhiên có hai chữ số sao cho hàng chục và hàng đơn vị có tổng là 7.
Ví dụ: 16 vì 1+ 6 = 7
Bài làm:
Phần 1 : Trắc nghiệm