Trường THCS Lý Tự Trọng HọTên: ……………………………… Lớp: 8A KIỂM TRA 1 TIẾT Mơn: Tin học 8 Thời gian 45 phút Điểm Lời phê của giáo viên PHẦN TRẮC NGHIỆM (4,0 điểm) Khoanh tròn chữ cái đứng trước câu trả lời đúng. Câu 1: Mọi ngơn ngữ lập trình đều có câu lệnh để thể hiện: a. Cấu trúc lặp b. Cấu trúc rẽ nhánh c. cả a và b đều sai. d. cả a và b đều đúng Câu 2: Cấu trúc rẽ nhánh dạng đầy đủ trong ngơn ngữ lập trình Pascal có dạng: a. if <câu lệnh 1> then <câu lệnh 2>; b. if <điều kiện1> then <câu lệnh1>; c. if <điều kiện> then < câu lệnh 1> else <câu lệnh 2>; d. if <điều kiện> then <câu lệnh>; Câu 3: Khi viết câu lệnh lặp for do: a. Giá trị đầu bằng giá trị cuối b. Giá trị cuối phải lớn hơn giá trị đầu c. Giá trị đầu lớn hơn giá trị cuối d. Tất cả đều sai. Câu 4: Câu lệnh gotoxy(a,b) có tác dụng a. Đưa con trỏ về hàng b b. Đưa con trỏ về cột a c. Đưa con trỏ về cột a hàng b d. Tất cả đều đúng. Câu 5: Các hoạt động nào dưới đây lặp với số lần nhất định: a. Ngày đánh răng ba lần b. Mỗi ngày đi học một lần c. Học cho đến khi thuộc bài d. Gọi điện cho tới khi có người nhấc máy Câu 6: Câu lệnh pascal nào sau đây là hợp lệ? a. For i:=100 to 1 do writeln(‘A’) b. For i= 1 to 10 do writeln(‘A’); c. For i:=1.5 to 10.5 do writeln(‘A’) d. For i:= 1 to 10 do writeln(‘A’); Câu 7: (3.0 điểm) Cho đoạn chương trình sau: S : = 0; i: = 0; While S < = 15 do Begin S:= S + i; I : = i + 1; End; Sau khi thực hiện chương trình giá trị của i và s bằng bao nhiêu? PHẦN TỰ LUẬN: (4,0 điểm) Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng: Tính Tổng Các Số Tự Nhiên Từ 100 Đến 1000 (Vòng lặp với số lần lặp chưa biết). Program tinh_tong; Var i S: Integer; Begin i: 100; S = 0; While i > 1000 do S:= S + i i:= i + 1; Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End. Đáp Án . pascal nào sau đây là hợp lệ? a. For i: =10 0 to 1 do writeln(‘A’) b. For i= 1 to 10 do writeln(‘A’); c. For i: =1. 5 to 10 .5 do writeln(‘A’) d. For i:= 1 to 10 do writeln(‘A’); Câu 7: (3.0 điểm) Cho. Từ 10 0 Đến 10 00 (Vòng lặp với số lần lặp chưa biết). Program tinh_tong; Var i S: Integer; Begin i: 10 0; S = 0; While i > 10 00 do S:= S + i i:= i + 1; Writeln(‘ Tong cac so tu nhien tu 10 0. Pascal có dạng: a. if <câu lệnh 1& gt; then <câu lệnh 2>; b. if <điều kiện1> then <câu lệnh1>; c. if <điều kiện> then < câu lệnh 1& gt; else <câu lệnh 2>; d.