Giúp cho công việc lập trình được đơn giản hơn vì chỉ cần viết 1 câu lệnh hay một nhóm các câu lệnh thay cho rất nhiều câu lệnh hay nhóm các câu lệnh phải viết. Câu 3.[r]
(1)Phòng giáo dục huyện Tiền Hải
Trường THCS Nam Thanh ĐỀ KIỂM TRA HẾT HỌC KỲ II MÔN: TIN HỌC 8
I TRẮC NGHIỆM: (4đ)
Chọn ý trả lời (mỗi ý 0,5đ)
Câu 1: Trong ngơn ngữ lập trình Pascal, tên hợp lệ? a) Tam giac; b) Tamgiac; c) Begin; d) End Câu 2: Trong Pascal, khai báo sau sai?
a) Var a = integer; b) Const b:=3; c) a: array[1 5,5] of integer; d) Tất sai Câu Trong ngôn ngữ lập trình, phép gán hợp lệ?
a) a ← 3; b) a:=3; c) a = 3; d) a:
Câu 4: Câu lệnh lặp For i:=3 to 10 Begin end; vòng lặp thực lần
a) Không lần nào; b) lần; c) lần; d) 10 lần Câu 5:Mỗi câu lệnh sau đây:
If ( 45 mod 3) = then x: = x+1; If x>10 then x: = x+1;
giá trị biến X bao nhiêu, trước giá trị X 5? a) 6-11; b) - 11; c) - 5; d) -
Câu 6: Sau thực đoạn chương trình sau, giá trị biến j bao nhiêu? j:=0;
For i:=0 to j:=j+2;
a) 1; b) 5; c) 8; d) 12
Câu 7: Cho biết giá trị c đoạn chương trình sau bao nhiêu: a:=3; b:=5;
if a+ b <=8 then c: = a- b
a) 1; b) 5; c) -2; d)
Câu 8: Cho biết kết đoạn chương trình sau: a:=10;
While a>=10 Write(a);
a) Viết vô số chữ ‘a’; b) Không in gì; c) viết chữ ‘a’; d) viết 10 chữ ‘a’
II.TỰ LUẬN: (6đ)
Câu 1: Viết giải thích cú pháp câu lệnh lặp với số lần chưa biết trước Pascal (2đ)
Câu Hãy cho biết tác dụng câu lệnh lặp?(2đ) Câu Sửa lỗi chương trình sau: (2đ)
Program Tinhtong; Var N, i: integer;
S: Longint; Begin
Write(‘Nhap so N = ’); Readln(N); S:=0;
For i = to N S:=S+i;
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S); Readln
End
(2)Phòng giáo dục huyện Tiền Hải
Trường THCS Nam Thanh ĐÁP ÁN ĐỀ KIỂM TRA HẾT HỌC KỲ II MÔN: TIN HỌC 8 I Phần trắc nghiệm: Mỗi câu trả lời 0,5đ
Câu 1 2 3 4 5 6 7 8
Đáp án B D A C C D C A
II Phần tự luận:
Câu 1. Cú pháp câu lệnh lặp với số lần chưa biết trước ngơn ngữ lập trình Pascal:
While <điều kiện> <câu lệnh>; (1đ)
Câu lệnh lặp thực hiện: (1đ)
Bước Kiểm tra điều kiện.
Bước Nếu điều kiện không thoả mãn (sai), câu lệnh bị bỏ qua và lệnh lặp kết thúc Nếu điều kiện thoả mãn (đúng), thực câu lệnh quay lại bước 1.
Câu 2. Tác dụng câu lệnh lặp:
Giúp cho cơng việc lập trình đơn giản cần viết câu lệnh hay nhóm câu lệnh thay cho nhiều câu lệnh hay nhóm câu lệnh phải viết
Câu 3. Sửa lỗi chương trình sau:
Program Tinhtong;
Var N, i: integer; S: Longint; Begin
Write(‘Nhap so N = ’); Readln(N); S:=0;
For i := to N S:=S+i; { Sai phép gán}
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S); Readln
End { thiếu dấu chấm sau end}