Đang tải... (xem toàn văn)
Hãy khoanh tròn vào chữ cái đứng trước câu trả lời em cho là đúng nhất?. Câu 1: Lệnh lặp nào sau đây là đúngA[r]
(1)Họ tên: ĐỀ KIỂM TRA HỌC KỲ II (Đề A)
Lớp: MÔN: TIN HỌC 8
Phần I: (5đ) TRẮC NGHIỆM Hãy khoanh tròn vào chữ đứng trước câu trả lời em cho nhất
Câu 1: Lệnh lặp sau đúng?
A For <biến đếm>= <giá trị đầu> to <giá trị cuối> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>; C For <biến đếm>:= <giá trị cuối> to <giá trị đầu> <câu lệnh>; D For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 2: Vòng lặp While <Điều kiện> <Câu lệnh>; 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 giới hạn <=100 D Biết trước số lần lặp giới hạn >=100 Câu 3: Sau thực đoạn chương trình sau, giá trị biến S bao nhiêu:
s:=1;
for i:=1 to s := s*i;
A.120 B 55 C 121 D 151
Câu 4: Phần thân chương trình khóa:
A.End B.Begin C.Uses D.Var
Câu 5: 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 6: Đâu công việc phải thực nhiều lần với số lần biết trước?
A Hàng ngày em học
B Em bị ốm vào dịp có dịch cúm
C Đến nhà bà ngoại chơi vào hôm bố mẹ vắng D Ngày đánh ba lần
Câu 7:Pascal sử dụng câu lệnh lặp sau để lặp với số lần chưa biết trước? a/ For…do; b/While…do; c/ If then; d/ If…then…else; Câu 8:Em học vẽ hình với phần mềm nào?
a/ Pascal; b/ Geogebra; c/ Mario; d/ Finger Break out; Câu 9: Trong Pascal để dừng chương trình giây ta dùng lệnh?
A Readln(500); B Readln(5000);
C Delay(5000); D Delay(500);
Câu 10: Biến a nhận giá trị ; -1 ; ; 2,3 Ta khai báo a thuộc kiểu liệu nào?
a Integer b Char
c Real d Integer Longint
Phần II: TỰ LUẬN (5 điểm) - Đề A
Câu 1(2 điểm): Điền X vào ô cho phù hợp giải thích sao?
Câu Đúng Sai Giải thích
a) for i=1 to 10 do writeln('A'); b) var X: Array[5…10] Of real; c) X:=10; while X=10 do; X := X+5; d) if x>5 then a:=b; else m := n;
Câu 2: (3đ) Viết chương trình tính tổng N số tự nhiên bắt đầu =1 Với N số bất kỳ
(2)(3)(4)ĐÁP ÁN: Phần I: 5đ
1 10
B A A B B D B B C C
Phần II: Câu 1: 2đ
Câu 2:
Program tinhtong; Uses crt;
Var s,n,i:integer; Begin
Write(‘nhap so n=’); readln(n); S:=0;
For i:=1 to n s:=s+i;
Writeln(‘tong cua ‘,n,’ so tu nhien dau tien la: ’,s); Readln
End
Câu Đúng Sai Giải thích
a) for i=1 to 10 do writeln('A'); X i:=1
b) var X: Array[5…10] Of real; X [5 10]
c) X:=10; while X=10 do; X := X+5; X X:=X+5;
(5)Họ tên: ĐỀ KIỂM TRA HỌC KỲ II (Đề B)
Lớp: MÔN: TIN HỌC 8
Phần I: (5đ) TRẮC NGHIỆM Hãy khoanh tròn vào chữ đứng trước câu trả lời em cho nhất
Câu 1: Cú pháp khai báo biến mảng Pascal là:
A.var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B.var <Tên mảng> : aray [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C.var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; D.var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; Câu 2: Câu lệnh pascal sau hợp lệ?
A For i:=100 to writeln(‘A’); B For i:=1.5 to 10.5 writeln(‘A’); C For i= to 10 writeln(‘A’); D For i:= to 10 writeln(‘A’);
Câu 3: Trong lệnh lặp for…do Pascal, vòng lặp, biến đếm thay đổi nào? A +1 B +1 -1 C Một giá trị D Một giá trị khác
Câu 4: Cú pháp câu lệnh While…do là:
a. While <điều kiện> to <câu lệnh>; c. While <điều kiện> do <câu lệnh>;
b. While <điều kiện> to <câu lệnh1> do <câu lệnh 2>; d. While <điều kiện>; do <câu lệnh>;
Câu 5: Lệnh lặp sau đúng?
E For <biến đếm>= <giá trị đầu> to <giá trị cuối> <câu lệnh>; F For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>; G For <biến đếm>:= <giá trị cuối> to <giá trị đầu> <câu lệnh>; H For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 6: Sau thực đoạn chương trình sau:
S:=0; For i:=1 to S:=S+i; Giá trị biến S bao nhiêu?
A 20 B 15 C 10 D Câu 7: Cấu trúc chung hợp lý chương trình Pascal là:
A Begin -> Program -> End B Program -> End -> Begin C End -> Program -> Begin D Program -> Begin -> End Câu 8: Cho câu lệnh sau hay câu lệnh đúng:
a for i:=1 to 10; x:=x+1 c for i:=1 to 10 x:=x+1
b for i:=10 to x:=x+1 d for i:= to 10 for j:=1 to 10 x:=x+1 Câu 9: Cho S i biến nguyên Khi chạy đoạn chương trình :
s:=1;
for i:=1 to s := s *i; writeln(s);
Kết in lên hình :
a s = 72 b s = 101 c s = 55 d s = 120
Câu 10: Trong Pascal để dừng chương trình giây ta dùng lệnh?
A Delay(5000); B Delay(500);
C Readln(500); D Readln(5000); Phần II: TỰ LUẬN (5 điểm) - Đề B
(6)Câu Đúng Sai Giải thích a) X:=10; while X=10 do; X := X+5;
b) if x>5 then a:=b; else m := n; c) for i:=10 to do writeln('A'); d) var X: Array[5…10] Of integer;
(7)ĐÁP ÁN: Phần I: 5đ
1 10
C D A C B B D C D A
Phần II: Câu 1: 2đ
Câu Đúng Sai Giải thích
a) X:=10; while X=10 do; X := X+5; X X=10 do X := X+5; b) if x>5 then a:=b; else m := n; X a:=b else m := n;
c) for i:=10 to do writeln('A'); X i:=1 to 10 do writeln('A'); d) var X: Array[5…10] Of integer; X [5 10]
Câu 2:
Program tinhTICH; Uses crt;
Var p:longint; I,n:integer Begin
Write(‘nhap so n=’); readln(n); p:=1;
For i:=1 to n p:=p*i;
Writeln(‘TICH cua ‘,n,’ so tu nhien dau tien la: ’,p); Readln