Đang tải... (xem toàn văn)
Thực hiện lệnh găn tệp văn bản chúng ta sử dụng lệnh nào sau đâyA. Để thực hiện mở tệp để ghi chúng ta sử dụng lệnh.[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ọ tên học sinh: Lớp:
Học sinh chọn đáp án vào mẫu sau câu trả lời 0.4 điểm
Câu 1 2 3 4 5 6 7 8 9 10
Đáp án
Mã đề: 148 Câu Chọn câu phép so sánh xâu
sau đây
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 đây
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 đây
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à một 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 là 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 hiện
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 hiện
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, ghi phần tử số nguyên tố vào tệp NT.TXT.
Câu 2: (2 điểm) Viết chương trình nhập vào 1 xâu khơng q 200 ký tự , đếm xâu có ký tự hoa (ví dụ xâu: Hồng Văn Thụ có ký tự hoa)
Câu 3: (2 điểm) Viết chương trình tìm ước chung lớn bội chung nhỏ của hai số nguyên dương gọi chương trình chương trình chính.
BÀI LÀM
(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
(3)Họ tên học sinh: Lớp:
Học sinh chọn đáp án vào mẫu sau câu trả lời 0.4 điểm
Câu 1 2 3 4 5 6 7 8 9 10
Đáp án
Mã đề: 182 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 đây
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 dữ liệu gì:
A Byte; B String;
C Integer; D Real;
Câu Trong hàm sau hàm cho kết quả 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 hiện
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 đây
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à một 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 là 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 hiện
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 ghi phần tử số hoàn hảo vào tệp HH.TXT.
Câu 2: (2 điểm) Viết chương trình nhập vào 1 xâu khơng q 200 ký tự, đếm xâu có bao nhiêu ký tự ký tự in hoa.
Câu 3: (2 điểm)Viết chương trình tìm ước chung lớn bội chung nhỏ của hai số nguyên dương gọi chương trình ở chương trình chính.
BÀI LÀM
(4)
(5)
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ọ tên học sinh: Lớp:
Học sinh chọn đáp án vào mẫu sau mỗi câu trả lời 0.4 điểm
Câu 1 2 3 4
Đáp án
(6)Mã đề: 216 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 đây
A (2) (6) (1) (4); B (2) (3) (4) (5); C (2) (4) (6) (3); D (1) (2) (5) (6);
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 dữ liệu gì:
A Real; B String;
C Integer; D Byte;
Câu Chọn câu phép so sánh xâu sau đây
A 'Ngay' <'Dem' B 'Anh'<'anh'
C 'Hoang Van Thu'>'Truong Hoang Van Thu' D 'Chuc Mung Nam Moi' >'Chuc Mung Sinh Nhat'
Câu Thực lệnh găn tệp văn sử dụng lệnh sau đây
A Assign(<Tên Tệp>,<Tên biến tệp>); B Assign(<Tên Biến Tệp>,<Tên tệp>); C Reset(<Tên biến tệp>)
D Rewrite(<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 11
C 13 D 12
Câu Để thực mở tệp để ghi sử dụng lệnh
A Read(<Biến tệp>, <ds Biến>) B Reset(<Tên biến tệp>)
C Rewrite(<Tên biến tệp>)
D Write(<Biến tệp>, <ds kết quả>)
Câu Cho đoạn chương trình sau (giả sử A là 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 hiện
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 Câu Muốn khai báo f tệp văn ta thực hiện
A Var f : Text; B Var f: Byte; C Var f: Van Ban; D Var f : Char; 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 12 B 7
C 15 D 17
Câu 10 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 word; D var A: array[1 100]of Integer;
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, ghi phần tử số nguyên tố vào tệp NT.TXT.
Câu 2: (2 điểm) Viết chương trình nhập vào 1 xâu không 200 ký tự , đếm xâu có ký tự hoa (ví dụ xâu: Hồng Văn Thụ có ký tự hoa)
Câu 3: (2 điểm) Viết chương trình tìm ước chung lớn bội chung nhỏ của hai số nguyên dương gọi chương trình chương trình chính.
BÀI LÀM
(7)
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ọ tên học sinh: Lớp:
Học sinh chọn đáp án vào mẫu sau mỗi câu trả lời 0.4 điểm
Câu 1 2 3 4 5
Đáp án
Mã đề: 250 Câu Chọn câu phép so sánh xâu
sau đây
A 'Ngay' <'Dem'
B 'Chuc Mung Nam Moi' >'Chuc Mung Sinh Nhat' C 'Hoang Van Thu'>'Truong Hoang Van Thu' D 'Anh'<'anh'
Câu Cho xâu s:='Hoang Van Thu' lệnh gán x:=length(s) x nhận giá trị
A 12 B 13
C 11 D 10
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 15 B 7
C 12 D 17
Câu Cho chương trình sau Function F( k : Integer) : String ;
(8)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 dữ liệu gì:
A Real; B Byte;
C String; D Integer;
Câu Để thực mở tệp để ghi sử dụng lệnh
A Rewrite(<Tên biến tệp>) B Reset(<Tên biến tệp>)
C Write(<Biến tệp>, <ds kết quả>) D Read(<Biến tệp>, <ds Biến>)
Câu Muốn khai báo f tệp văn ta thực hiện
A Var f : Text; B Var f : Char;
C Var f: Byte; D Var f: Van Ban;
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 đây
A (2) (3) (4) (5); B (2) (6) (1) (3); C (2) (4) (6) (3);
D (1) (2) (5) (3);
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 byte; B var A: array[1 100]: Integer; C var A: array[1 100]of Integer; D var A: array[1 100]of word;
Câu Trong hàm sau hàm cho kết quả số nguyên?
A Delete(S,1,3) B Length(s)
C Insert(s1,s2,3) D Copy(s,tv,2) Câu 10 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)
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 ghi phần tử số hoàn hảo vào tệp HH.TXT.
Câu 2: (2 điểm) Viết chương trình nhập vào 1 xâu khơng q 200 ký tự, đếm xâu có bao nhiêu ký tự ký tự in hoa.
Câu 3: (2 điểm)Viết chương trình tìm ước chung lớn bội chung nhỏ của hai số nguyên dương gọi chương trình ở chương trình chính.
BÀI LÀM
(9)
Đáp án
Đáp án mã đề: 148
Câu 1 2 3 4 5
Đáp án C D A B A
01 - - = - 04 / -07 - / - - 10 =
-02 - - - ~ 05 ; 08 =
-03 ; - - - 06 - - - ~ 09 /
-Đáp án mã đề: 182
Câu 1 2 3 4 5
Đáp án A C B C D
01 ; - - - 04 = -07 - / - - 10 - - - ~ 02 - - = - 05 - - - ~ 08 /
-03 - / - - 06 ; 09 =
-Đáp án mã đề: 216
Câu 1 2 3 4 5
Đáp án C B B B C
01 - - = - 04 / -07 - - - ~ 10 ; -02 - / - - 05 = 08 ;
-03 - / - - 06 = -09 - - - ~
Đáp án mã đề: 250
Câu 1 2 3 4 5
Đáp án D B D C A
01 - - - ~ 04 = -07 - - = - 10 = -02 - / - - 05 ; 08 /