Câu 1: (2 điểm) Viết chương trình nhập vào từ bàn phím mảng 1 chiều gồm n phần tử (n<=200) kiểu nguyên thực hiện yêu cầu Tính tong các phần tử chẵn trong mảngA. Kết quả thực hiện chư[r]
(1)Kiểm tra học kỳ - Năm học 2011-2012 Môn: Tin học lớp 11
Thời gian: 45 phút Học sinh chọn đáp án
Câu Chọn câu phép so sánh xâu sau
A 'Hoang Van Thu'>'Truong Hoang Van Thu' B 'Chuc Mung Nam Moi' >'Chuc Mung Sinh Nhat' C 'Anh'<'anh'
D 'Ngay' <'Dem'
Câu Cho thao tác sau vể tệp văn bản (1) Mở tệp để ghi liệu ;
(2) Khai báo gán tên tệp với biến tệp; (3) Đóng tệp; (4) Mở tệp để đọc liệu; (5) Ghi liệu; (6) Đọc liệu;
Để mở tệp để đọc thực theo thứ tự sau
A (2) (5) (4) (3); B (1) (2) (4) (3); C (2) (6) (1) (4); D (2) (4) (6) (3);
Câu Thực lệnh găn tệp văn sử dụng lệnh sau
A Assign(<Tên Biến Tệp>,<Tên tệp>); B Rewrite(<Tên biến tệp>)
C Assign(<Tên Tệp>,<Tên biến tệp>); D Reset(<Tên biến tệp>)
Câu Cho xâu s:='Hoang Van Thu' lệnh gán x:=length(s) x nhận giá trị
A 10 B 13
C 11 D 12
Câu Muốn có biến mảng A gồm số nguyên khai báo sau sai
A var A: array[1 100]: Integer; B var A: array[1 100]of byte; C var A: array[1 100]of Integer; D var A: array[1 100]of word;
Câu Cho đoạn chương trình
x:= 5; for i:=1 to if i mod 2=0 then x:=x + i; Kết thúc đoạn chương trình x nhận giá trị
A 7 B 12
C 15 D 17
Câu Trong hàm sau hàm cho kết là xâu
A Pos(s1,s2) B Copy(s,2,3) C Insert(s1,s2,2) D Length(s) Câu Cho đoạn chương trình sau (giả sử A mảng khai báo)
S:=0; Dem:=0; For i:=1 to n if A[i] >0 then Begin S:=S+A[i]; Dem:=dem+1; end;
TB:=S/Dem;
Đoạn chương trình thực
A Tính trung bình phần tử âm mảng A B Tính tổng phần tử dương mảng A C Tính trung bình phần tử dương mảng A D Đếm phần tử dương mảng A Câu Muốn khai báo f tệp văn ta thực
A Var f: Van Ban; B Var f : Text; C Var f: Byte; D Var f : Char; Câu 10 Để thực mở tệp để ghi sử dụng lệnh
A Write(<Biến tệp>, <ds kết quả>) B Read(<Biến tệp>, <ds Biến>) C Rewrite(<Tên biến tệp>) D Reset(<Tên biến tệp>) Tự luận:
Câu 1: (2 điểm) Viết chương trình nhập vào từ bàn phím mảng chiều gồm n phần tử (n<=200) kiểu nguyên thực yêu cầu Tính tong phần tử dương mảng
Câu 2
Var x, y, : word; z: real;
Procedure Xu_li(var a, b:word; c:real):word; Var d:word;
Begin
a:=a+10; d:=5; c:=a+d; b:=a+b; End;
Begin
X:=4; y:= 8; z:= 12;
Writeln(x, y, z:6:2); xu_li(x,y,z); Writeln(x, y, z:6:2);
End.
Theo chương trình em điền kết vào phần dấu chấm sau:
1 Biến toàn cục , Biến cục Tham trị , Tham biến Tham số hình thức , Tham số thực Lệnh gọi hàm , Tên hàm Kết thực chương trình
Mã đề: 148 Họ tên:………
(2)Kiểm tra học kỳ - Năm học 2011-2012 Môn: Tin học lớp 11 Thời gian: 45 phút Câu Để thực mở tệp để ghi sử
dụng lệnh
A Rewrite(<Tên biến tệp>) B Write(<Biến tệp>, <ds kết quả>) C Reset(<Tên biến tệp>)
D Read(<Biến tệp>, <ds Biến>)
Câu Chọn câu phép so sánh xâu sau
A 'Ngay' <'Dem'
B 'Chuc Mung Nam Moi' >'Chuc Mung Sinh Nhat' C 'Anh'<'anh'
D 'Hoang Van Thu'>'Truong Hoang Van Thu' Câu Cho chương trình sau Function F( k : Integer) : String ;
Begin If k mod 2=0 then F:='Hoang Van Thu' else F:='Nguyen Truong To'; End;
Muốn gán X:= F(5); biến X phải khai báo kiểu liệu gì:
A Byte; B String;
C Integer; D Real;
Câu Trong hàm sau hàm cho kết số nguyên?
A Delete(S,1,3) B Copy(s,tv,2) C Length(s) D Insert(s1,s2,3) Câu Cho đoạn chương trình
x:= 5;
for i:=1 to if i mod = then x := x + i; Kết thúc đoạn chương trình x nhận giá trị
A 7 B 12
C 15 D 17
Câu Muốn khai báo f tệp văn ta thực
A Var f : Text; B Var f: Van Ban;
C Var f: Byte; D Var f : Char; Câu Thực lệnh găn tệp văn sử dụng lệnh sau
A Rewrite(<Tên biến tệp>)
B Assign(<Tên Biến Tệp>,<Tên tệp>); C Assign(<Tên Tệp>,<Tên biến tệp>); D Reset(<Tên biến tệp>)
Câu Muốn có biến mảng A gồm số nguyên khai báo sau sai
A var A: array[1 100]of word; B var A: array[1 100]: Integer; C var A: array[1 100]of byte; D var A: array[1 100]of Integer;
Câu Trong hàm sau hàm cho kết là xâu
A Pos(s1,s2) B Length(s) C Copy(s,2,3) D Insert(s1,s2,2) Câu 10 Cho đoạn chương trình sau (giả sử A mảng khai báo)
S:=0; Dem:=0;
Fori:=1 to n if A[i] >0 then
Begin S:=S+A[i]; Dem:=dem+1; end; TB:=S/Dem;
Đoạn chương trình thực
A Tính trung bình phần tử âm mảng A B Đếm phần tử dương mảng A
C Tính tổng phần tử dương mảng A D Tính trung bình phần tử dương mảng A Tự luận:
Câu 1: (2 điểm) Viết chương trình nhập vào từ bàn phím mảng chiều gồm n phần tử (n<=200) kiểu nguyên thực yêu cầu Tính tong phần tử chẵn mảng
Câu 2
Var x, y, : word; z: real;
Procedure Xu_li(var a, b:word; c:real):word; Var d:word;
Begin
a:=a+10; d:=5; c:=a+d; b:=a+b; End;
Begin
X:=6; y:= 2; z:=3;
Writeln(x, y, z:6:2); xu_li(x,y,z); Writeln(x, y, z:6:2);
End.
Theo chương trình em điền kết vào phần dấu chấm sau:
1 Biến toàn cục , Biến cục Tham trị , Tham biến Tham số hình thức , Tham số thực Lệnh gọi hàm , Tên hàm Kết thực chương trình
Họ tên:……… Lớp:
(3)
Đáp án mã đề: 148
Câu 10
Đáp án C D A B A D B C B C
01 - - = - 04 - / - - 07 - / - - 10 = -02 - - - ~ 05 ; - - - 08 =
-03 ; - - - 06 - - - ~ 09 / -Đáp án mã đề: 182
Câu 10
Đáp án A C B C D A B B C D
01 ; - - - 04 - - = - 07 - / - - 10 - - - ~ 02 - - = - 05 - - - ~ 08 /
-03 - / - - 06 ; - - - 09 = -Đáp án mã đề: 216
Câu 10
Đáp án C B B B C C D A D A
01 - - = - 04 - / - - 07 - - - ~ 10 ; -02 - / - - 05 - - = - 08 ;
-03 - / - - 06 - - = - 09 - - - ~ Đáp án mã đề: 250
Câu 10
Đáp án D B D C A A C B B C
01 - - - ~ 04 - - = - 07 - - = - 10 = -02 - / - - 05 ; - - - 08 /