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 /