âæåüc læu træî trãn Rom Câu 3: Âãø ghi kãút quaí vaìo tãûp vàn baín ta coï thãø sæí duûng thuí tuûc:.. Mua Thu Ha.[r]
(1)Sở GD-ĐT Quảng Trị
Trường THPT Lê Thế Hiếu ĐỀ THI HỌC KỲ 2-NĂM HỌC 2007-2008 MÔN Tin học 11 Thời gian lăm băi: 45 phút; Họ, tín thí sinh: Lớp 11 Mê đề thi 210
A.Trắc nghiệm(7điểm):Chọn câu trả lời nhất
Cđu 1: Trong NNLT Pascal, câu lệnh rẽ nhánh dạng đủ sau đúng mặt cú pháp?
A If <biểu thức Logic> Then <Câu lệnh 1> ELSE <Câu lệnh 2>; B If; <biểu thức Logic> Then <Câu lệnh 1> ELSE <Câu lệnh 2>; C If <biểu thức Logic>; Then <Câu lệnh 1> ELSE <Câu lệnh 2>; D If <biểu thức Logic> Then; <Câu lệnh 1> ELSE <Câu lệnh 2>; Cđu 2: Dữ liệu kiểu tệp
A lưu trữ
trên đĩa cứng B lưu trữ ở nhớ C lưu trữ Ram D lưu trữ Rom Cđu 3: Để ghi kết vào tệp văn ta sử dụng thủ tục:
A Read(<Tên biến tệp>, <danh sách kết quả>); B Write(<Tên tệp>, <danh sách kết quả>);
C Read(<Tên tệp>, <danh sách kết quả>);D Write(<Tên biến tệp>, <danh sách kết quả>);
Cđu 4: Trong NNLT Pascal, đoạn chương trình sau cho kết nào? S:=’Ha noi mua thu’;
Delete(S,7,8);
Insert(‘Mua Thu’, S,1); A Mua Thu Ha
noi B Ha noi C Mua ThuHa noi D Mua thu Ha noi mua thu
Cđu 5: Nếu hàm EOF(<tên biến tệp>) cho giá trị True con trỏ văn bản tệp nằm vị trí
A cuối tệp. B cuối dòng. C đầu tệp. D đầu dịng.
Cđu 6: Giả sử có hai biến xâu x y ( y có giá trị ) câu lệnh sau không hợp lệ?
A x:=Delete(y,5,3); B Delete(y,5,3); C x:=Copy(y,5,3); D x:=y;
Cđu 7: Trong NNLT Pascal, đoạn chương trình sau thực công việc công việc sau ( A mảng số có n phần tử )?
S:=0;
For i:=1 To n Do S:=S+A[i];
A In hình mảng A. B Nhập giá trị cho mảng A.
C Đếm số phần tử mảng A. D Tính tổng phần tử mảng A
Cđu 8: Khi thực hiện, câu lệnh WHILE DO dừng lại ? A Khi biểu thức <ĐIỀU KIỆN>
cho giaï trë âuïng(TRUE)
B Khi thực <Câu lệnh> n lần
C Khi biểu thức <ĐIỀU KIỆN> cho giá trị sai (FALSE)
D Khi <Câu lệnh> cho giá trị sai (FALSE)
Cđu 9: Cho đoạn chương trình sau: với khai báo VAR S,i:Word; S:=0;
For i:=1 To Do S:=S+i*i;
(2)Cđu 10: Trong NNLT Pascal, để khai báo hai biến tệp văn f1, f2 ta viết: A Var f1; f2:Text;B Var f1,f2:Text; C Var f1:f2:Text; D Var f1 f2:Text;
Cđu 11: Trong NNLT Pascal, hàm Copy(S1,vt,n) thực cơng việc gì? A Sao chép xâu S1 từ xâu S1
B Cheìn xáu S1 vaìo xáu S1
C Tạo xâu gồm n ký tự liên tiếp bắt đầu vị trí vt xâu S1 D Tạo xâu gồm vt ký tự liên tiếp bắt đầu vị trí n xâu S1
Cđu 12: Trong chương trình chuẩn sau đây, chương trình chuẩn thủ tục chuẩn?
A Length(S); B SQRT(x); C Sin(x); D Delete(S,5,1);
Cđu 13: Trong NNLT Pascal, thủ tục Insert(S1,S2,n) thực công việc gì? A Chèn thêm xâu S2 vào xâu S1 vị trí n S1.
B Chèn thêm xâu S1 vào xâu S2 vị trí n S2. C Chèn thêm xâu S2 vào xâu S1 vị trí n S2 D Chèn thêm xâu S1 vào xâu S2 vị trí n S1. Cđu 14: Vị trí trỏ tệp sau lời gọi thủ tục Reset là
A nằm
đầu tệp B nằm ngẫu nhiên bất kỳ vị trí C nằm cuối tệp D nằm giữa tệp Cđu 15: Để truy cập vào trường ghi ta viết sau:
A <Tên kiểu ghi>.<Giá trị trường> B <Tên kiểu ghi>.<Tên trường>
C <Tên biến ghi>.<Giá trị trường> D <Tên biến ghi>.<Tên trường>
Cđu 16: Trong NNLT Pascal, mặt cú pháp khai báo biến mảng sau đúng?
A Var 1AB:Array[1 100] Of Byte; B Var DIV:array[1 100] Of Byte; C Var AB:Array[1 100] Of Byte; D Var A B:Array[1 100] Of Byte;
Cđu 17: Trong NNLT Pascal, thủ tục Delete(c,a,b) thực cơng việc cơng việc sau?
A Xoá xâu a b ký tự từ vị trí c
B Xố xâu b c ký tự bắt đầu từ vị trí a
C Xóa xâu c b ký tự bắt đầu vị trí a
D Xố xâu ký tự c a ký tự vị trí b
Cđu 18: Đoạn chương trình sau có kết in nào: với khai báo VAR A,B,TG:Word;
A:=10; B:=5;
TG:=A; A:=B; B:=TG;
Writeln(‘Ket qua A=’,A, ’; B=’, B);
Cđu 19: Nếu hàm EOFLN(<tên biến tệp>) cho giá trị True trỏ văn bản tệp nằm vị trí
A cuối tệp. B cuối dịng. C đầu dòng. D đầu tệp. Cđu 20: Trong NNLT Pascal, đoạn chương trình sau cho kết gì?
T:=0;
For i:=1 To n Do If i mod 3=0 Then T:=T+1; A Đếm có số
phạm vi từ đến n
B Đếm có số chia hết cho phạm vi từ đến n
C Tính tổng số nguyên phạm vi từ đến n
D Tính tổng số chia hết cho phạm vi từ đến n
A Ket qua A=5; B=5 C Ket qua A=10; B=10
(3)Cđu 21: Để gắn tên tệp KQ.TXT cho biến f1 ta sử dụng lệnh
A Assign(‘KQ.TXT’, f1); B KQ.TXT:=f1; C f1:=’KQ.TXT’’; D Assign(f1,‘KQ.TXT’);
B.Tự luận(3đ ):
Câu1(1đ):Hãy viết chương trình nhập dãy số { a1, a2,… , aM } gồm M số nguyên, M nhập vào từ bàn phím lưu dãy số hàng vào tệp văn DSO.TXT? (lưu ý lưu dãy số vào tệp khơng có ký tự xuống hàng )
Câu2(2đ):Hãy viết chương trình:
a Đọc dãy số từ tệp DSO.TXT lưu vào mảng chiều? b Tìm giá trị nhỏ MIN dãy số ghi kết tìm vào tệp KQ.TXT?
- HẾT -Læu yï:
-Trắc nghiệm làm giấy trắc nghiệm HS tự luận làm giấy kẻ ngang