A./ Trắc nghiệm: (4 điểm)
Câu 1: (2,0 điểm) Câu lệnh lặp với số lần xác định viết sai cú pháp hoặc không lặp lần nào, hãy sửa lại câu lệnh sau trở thành câu lệnh đúng ?
a./ For i=1 to 25.5 do A:=A*i;
b./ For i=15 to 15 do A=A+ i;
c./ var i, x: real; Begin x:=0; For i:=7 to 9 do x:=x + i/2; end.
d./ For i:=100 to 1 do S:=S+i;
Câu 2: (0,5 điểm) Câu lệnh lặp với số lần chưa biết trước viết sai gây lỗi lặp vô hạn lần, hãy sửa câu lệnh bằng cách thêm begin end; vào chổ thích hợp để có câu lệnh đúng?
S:=0; n:=0;
While S<=10>=10>
n:=n+1;
S:=S+n;
Câu 3: (0,5 điểm) Cho biết số lần lặp của đoạn chương trình sau ?
k:=0;
For j:=7 to 19 do k:=k+2;
a./ 19 lần lặp
b./ 12 lần lặp
c./ 13 lần lặp
d./ 0 lần lặp
Câu 4: (1,0 điểm) Hãy chỉ ra lỗi trong các câu lệnh sau đây, sửa lại thành câu lệnh đúng
a./ X:=10; while X :=10 do X=X+5;
b./ S:=10; i:=5; while i<=10 do="" s:="S+i;" i:="">=10>
Phòng GD& ĐT Châu Thành ĐỀ KIỂM TRA 1 TIẾT Trường THCS Đoàn Giỏi Thời gian: 45 phút (không kể thời gian giao phát đề) A./ Trắc nghiệm: (4 điểm) Câu 1: (2,0 điểm) Câu lệnh lặp với số lần xác định viết sai cú pháp hoặc không lặp lần nào, hãy sửa lại câu lệnh sau trở thành câu lệnh đúng ? a./ For i=1 to 25.5 do A:=A*i; b./ For i=15 to 15 do A=A+ i; c./ var i, x: real; Begin x:=0; For i:=7 to 9 do x:=x + i/2; end. d./ For i:=100 to 1 do S:=S+i; Câu 2: (0,5 điểm) Câu lệnh lặp với số lần chưa biết trước viết sai gây lỗi lặp vô hạn lần, hãy sửa câu lệnh bằng cách thêm begin end; vào chổ thích hợp để có câu lệnh đúng? S:=0; n:=0; While S<=10 do n:=n+1; S:=S+n; Câu 3: (0,5 điểm) Cho biết số lần lặp của đoạn chương trình sau ? k:=0; For j:=7 to 19 do k:=k+2; a./ 19 lần lặp b./ 12 lần lặp c./ 13 lần lặp d./ 0 lần lặp Câu 4: (1,0 điểm) Hãy chỉ ra lỗi trong các câu lệnh sau đây, sửa lại thành câu lệnh đúng a./ X:=10; while X :=10 do X=X+5; b./ S:=10; i:=5; while i<=10 do S:=S+i; i:=i+1; B./ Tự luận: (6 điểm) Câu 5 (1,5 điểm): Viết câu lệnh lặp với số lần xác định ? Áp dụng tính số lần lặp của đoạn chương trình sau ? Tong:=0; For k:= 15 to 29 do Tong:=Tong +k; Câu 6 (1,0 điểm): Viết câu lệnh lặp với số lần không xác định ? Câu 7 (1,5 điểm): Chạy từng bước câu lệnh lặp với số lần xác định của đoạn chương trình sau, xác định giá trị của biến A sau mỗi bước thực hiện? A:=55; For i:=6 to 10 do A:=A + i*i; Câu 8 (1,0 điểm): Chạy từng bước câu lệnh lặp, xác định số lần lặp và giá trị của biến S khi thực hiện xong đoạn chương trình sau ? S:=0; i;=1;n:=6; while (i<=n) do begin if (n mod i=0) then S:=S+i; i:=i+1; end; Câu 9 (1,0 điểm): Chạy từng bước câu lệnh lặp với số lần chưa xác định của đoạn chương trình sau, xác định giá trị của biến m và n sau mỗi bước thực hiện ? m:=2; n:=10; While m<n do begin m:=m*m; n:=n*2 end;
Tài liệu đính kèm: