Chưa biết trước số lần lặp B.. Biết trước số lần lặp C.. Biết trước số lần lặp nhưng giới hạn là =100 Câu 3: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng: A.. Không thực
Trang 1TRƯỜNG THCS EABUNG
Họ và tên:
Lớp: 8
KIỂM TRA HỌC KÌ II – NĂM HỌC 09-10
Môn : TIN HỌC 8 Thời gian: 45 phút
cho là đúng: (mỗi cấu đúng được 0,5 điểm)
Câu 1: Lệnh lặp nào sau đây là đúng?
A For <biến đếm>= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
B For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
C For <biến đếm>:= <giá trị cuôí> to <giá trị đầu> do <câu lệnh>;
D For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>;
Câu 2: Vòng lặp While <Điều kiện> do <Câu lệnh>; là vòng lặp:
A Chưa biết trước số lần lặp
B Biết trước số lần lặp
C Biết trước số lần lặp nhưng giới hạn là <=100
D Biết trước số lần lặp nhưng giới hạn là >=100
Câu 3: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:
A If a=5 then a:=a+1; else a:=a+2; B If a=5 then a:=a+1else a:=a+2
C If a=5 then a=a+1; else a=a+2; D If a=5 then a:=a+1else a:=a+2;
Câu 4: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:
s:=0;
for i:=1 to 5 do s := s+i;
Câu 5: 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 gì?
A Interger; B real; C string D Tất cả các kiểu trên đều được
Câu 6: Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình?
A Giá trị biến đếm
B Viết số 1 rồi viết số 3.5
C Chỉ viết số 3.5 mà thôi
D Không thực hiện được vì giá trị cuối không phải là số nguyên
Câu 7: Chọn khai báo hợp lệ:
A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer;
B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real;
Câu 8: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được
thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
B Tự Luận: (6 điểm)
Điểm Lời nhận xét của giáo viên
Trang 2Câu 1 Nút lệnh dưới đây là của phần mềm nào? (0,5 điểm)
:
Câu 2 Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho
đúng: (2,5 điểm)
Trang 3Program Tinh tong;
………
…………
Uses crt; ………
…………
Var N; i: Integer; ………
…………
S: Longint; BEGIN Clrscr; ………
…………
Write(‘Nhap vao so N =’ ); Readln(N); S:=0 For i =1 to N do S:=S+i ; ………
………
Writeln(‘Tong cua’,N, ‘so dau tien s =’, s); Readln ………
………
END
Trang 4
Câu 3 Viết chương trình giải quyết bài toán: (3 điểm)
Viết chương trình tính tổng:
1
2 3 4 S n Trong đó n là số nguyên nhập từ bàn phím
Trang 5
Đáp án
A Trắc nghiệm: (4 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là
đúng (mỗi câu đúng được 0,5 điểm).
B Tự luận: (6 điểm)
Câu 1 Đúng 0,5 điểm Phần mềm vẽ hình học Geogebra tiếng việt.(0,5 điểm)
Câu 2 Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho
đúng: (2,5 điểm)
Trang 6Program Tinh tong;
………
………
Uses crt; ………
………
Var N; i: Integer;
………
………
S: Longint; BEGIN Clrscr; ………
………
Write(‘Nhap vao so N =’ ); Readln(N); S:=0 For i =1 to N do S:=S+i ;
………
………
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s); Readln ………
………
END Program Tinh_tong; 0,5
Var N, i: Integer; 0,5
S:=0; 0,75 For i: =1 to N do S:=S+i ; 0,75 ………
………
Trang 7
Câu 3 Viết chương trình giải quyết bài toán: (3 điểm)
Program Tong_Nghich_Dao; 0,25
Var S: real; 0,25
n, i: integer; 0,25
Begin
Write(‘Nhap so n = ‘); Readln(n); 0,5 S:= 0; 0,25 For i:= 1 to n do S: = S + 1/i; 0,5 Writeln(‘Tong can tim la: ‘, S:6:2); 0,5
End 0,25