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)