while…do là câu lệnh lặp với số lần lặp biết trước trong pascal S- 8... Kiến thức3[r]
Trang 1KIỂM TRA 15 PHỦT LẦN 2 KỲ II
MÔN: TIN HỌC 8
Họ tên: Lớp: 8
ĐỀ BÀI
I Trắc nghiệm
Khoanh tròn chữ cái đứng trước phương án trả lời đúng các câu sau:
Câu 1: Cho S và i là biến nguyên Khi chạy đoạn chương trình :
s:=1;for i:=1 to 4 do s := s+i writeln(s); Kết quả in lên màn hình là của s là:
Câu 2: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu
A Integer; B Tất cả các kiểu trên đều được C String D Real;
Câu 3: Trong câu lệnh lặp for i:=1 to 15 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần?
A Không lần nào B 1 lần C 2 lần D 15 lần
Câu 4: Để tính tổng của n số tự nhiên đầu tiên em chọn đoạn lệnh nào sau đây:
A for i:=1 to n do if ( i mod 2)<>0 then S:=S + i;
B for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
C for i:=1 to n do S:= S + i ;
D for i:=1 to n do if ( i mod 2)=1 then S:=S + i;
Câu 5: Điền Đ (đúng) hoặc S (sai) vào đầu các câu lệnh sau:
1.for i:=10 to 1 do writeln('b');
2 var x: integer; begin for x := 1 to 10 do writeln('b'); end
3 for i:=1 to 100 do ;
4 for i:=1 to 100 do writeln('b');
5.for i:=0.5 to 5.5 do writeln('b');
6.for i=1 to 100 do writeln('b');
7.while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
8. S:=0; n:=0;
while S <= 100 do begin n:=n+1; S:=S+n end;
Trang 2II /Tự luận
Câu 6: Em hãy lợi ích của việc sử dụng mảng.
Câu 7: Hãy viết chương trình nhập vào một dãy số A gồm N phần tử N nhập từ bàn
phím Sau đó in ra màn hình dãy số em vừa nhập
ĐÁP ÁN VÀ THANG ĐIỂM
I Trắc nghiệm
Từ câu 1 đến câu 4 mỗi câu đúng được 0,5 điểm
Câu 5: mỗi ý đúng được 0,5 điểm
Điền Đ (đúng) hoặc S (sai) với các câu sau:
S - 1.for i:=10 to 1 do writeln('b');
Đ- 2 var x: integer; begin for x := 1 to 10 do writeln('b'); end
Đ- 3 for i:=1 to 100 do ;
Đ- 4 for i:=1 to 100 do writeln('b');
S- 5.for i:=0.5 to 5.5 do writeln('b');
S- 6.for i=1 to 100 do writeln('b');
S- 7.while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
S- 8. S:=0; n:=0;
while S <= 100 do begin n:=n+1; S:=S+n end;
II /Tự luận:
Câu 6: (2 đ)
Lợi ích chính của việc sử dụng biến mảng là rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngoài ra chúng ta còn có thể lưu trữ
và xử lí nhiều dữ liệu có nội dung liên quan đến nhau một cách hiệu quả
Câu 7 (2 đ)
3 A: array[1 50] of real;
4 Begin
5 Write(‘Hãy nhập vào số phần tử của mảng’); readln(n); 0,5 đ
6 For i:=1 to n do
7 Begin
8 Write(‘A[‘,i, ‘]=’);
Trang 310 End.
11 Write(‘Dãy số vừa nhập là:’);
12 For i:=1 to n do Write(A[i], ‘;’); 0.5 đ 13.Readln;
14.End.
K T QU KI M TRA Ế Ả Ể
8A
8B
8C
Trang 4Ngày soạn: / /2012 Ngày dạy: /05/2012
Tiết 70 - BÀI KIỂM TRA 1 TIẾT THỰC HÀNH
A MỤC TIÊU
1 Kiến thức
- Đánh giá kiến thức của HS qua bài kiểm tra
- Vận dụng những kiến thức đã học để làm bài kiểm tra
2 Kỹ năng: Bổ sung những kiến thức cơ bản về lập trình pascal
3 Thái độ: Nghiêm túc làm bài
B CHUẨN BỊ
1 Giỏo viờ: Bài kiểm tra….
2 Học sinh: Kiến thức đó học, đồ dùng học tập
C MA TR N Ậ ĐỀ :
Mức độ Kiến thức
Nhận biết Thông Hiểu Vận dụng
Tổng
Câu lệnh lặp với số
lần biết trước
Câu lệnh lặp với số
lần chưa biết trước
Trang 5D TIẾN TRÌNH LÊN LỚP
1 T ch c ổ ứ
Vắng
2 Phát đề kiểm tra
ĐỀ BÀI PHẦN I: TRẮC NGHIỆM
- Khoanh tròn chữ cái đứng trước kết quả đúng
Câu 1 Các câu lệnh Pascal sau đây lệnh nào được viết đúng?
a if x:=7 then a=b;
b if x>5; then a:=b;
c if x>5 then; a:=b;
d if x>5 then a:=b;
Câu 2: Cho S và i là biến nguyên Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 8 do s := s+2*i;
writeln(s);
Kết quả in lên màn hình là :
Câu 3: Với các câu lệnh sau chương trình thực hiện bao nhiêu vòng lặp
S:=0; n:=0;
while S<=10 do begin n:=n+1; S:=S+n end;
Câu 4: Các khai báo mảng sau đây khai báo nào đúng?
Trang 6a var X: Array[10,13] Of Integer;
b var X: Array[3.4 4.8] Of Integer;
c var X: Array[10 1] Of Integer;
d var X: Array[4 10] Of Real;
Câu 5 Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai báo như sau:
a a:Array [1 11] of integer; b a:Array [5 15] of integer;
c a:Array [5 15] of integer; d a:Array [11] of integer;
PHẦN II: TỰ LUẬN
Câu 6: Sau mỗi câu lệnh sau đây
a if (15 mod 3)=0 then X:=X+2;
b if X>8 then X:=X+2;
giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 7?
Câu 7: Viết cú pháp của câu lệnh lặp với số lần biết trước.
Câu 8 : Viết cú pháp của câu lệnh lặp với số lần chưa biết trước.
Câu 9 : Sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím Sau
đó in ra màn hình giá trị lớn nhất và nhỏ nhất của dãy số đó
3 Nhận xét rút kinh nghiệm giờ kiểm tra
4 Hướng dẫn về nhà
- Làm lại bài kiểm tra
- Xem lại các bài học
ĐÁP ÁN VÀ THANG ĐIỂM
PH N I: TR C NGHI M Ầ Ắ Ệ
Trang 7Đáp án D A B D C PHẦN II: TỰ LUẬN
Câu 6: Sau mỗi câu lệnh sau đây
Câu 7: For (Biến đếm):=(giá trị đầu) to (giá trị cuối) do (câu lệnh); 0,5 đ
Câu 9: (5.5 đ)
program MaxMin;
uses crt;
Var
Begin
clrscr;
write('Hay nhap do dai cua day so, N = '); readln(n); 0.5 đ
writeln('Nhap cac phan tu cua day so:');
For i:=1 to n do
write('a[',i,']=');
For i:=2 to n do
Begin
Trang 8S:=S+a[i]; 0.5 đ End;
Readln;
End.
KẾT QUẢ KIỂM TRA
8A
8B
8C