USCLN(USCLN(USCLN(A,B),C),D); Câu 13: Trong các chương trình sau đây, chương trình chuẩn nào là thủ tục chuẩnA. A..[r]
(1)SỞ GD&ĐT QUẢNG NINH
TRƯỜNG THPT TIấN YấN KIM TRA HC Kè IINăm học 2010 – 2011 Môn: Tin - Khối 11
Thời gian: 45 phút (Không kể thời gian giao đề) Họ tên: Lớp: 11 SBD: Điểm:
I TRẮC NGHIỆM: (7 điểm)
Câu 1: Chọn khai báo cho khai báo xâu kí tự có tên Name chứa tối đa 50 kí tự? A Var Name: String(50); B Var Name: String;
C Var Name: String[50]; D Var Name = String[50]; Câu 2: Hãy cho biết kết phép ghép xâu: ‘que ’ + ‘huong’ + ‘toi’ là:
A que toi huong B que huong toi C quehuongtoi D que huongtoi Câu 3: Cho St:= ‘Chao cac ban’ Kết hàm length(St) là:
A 11 B 13 C 10 D 12
Câu 4: Cho xâu kí tự sau: a:= ‘nguyen du’ Lệnh sau cho kết ‘nguyen ’ :
A Copy(a,4,2); B Copy(a,6,5); C Delete(a,8,2); D Delete(a,7,3); Câu 5: Giả sử: st:=’Thuan Hoa’; hàm Pos(‘n’,st); cho kết là:
A B C D
Câu 6: Cho xâu a:= ‘nguyen binh’ Lệnh sau cho kết ‘nguyen ’
A Delete(a,7,4); B Copy(a,1,7); C Delete(a,7,5); D Copy(a,1,6); Câu 7: Cho S1:= ‘abc’; S2:= ‘def’ Kết thủ tục Insert(S2,S1,3) là:
A ‘abdefc’ B ‘abcdef’ C ‘abdef’ D ‘abedfc’ Câu 8: Trong Pascal, để khai báo biến tệp văn ta sử dụng cú pháp:
A var <tên tệp>:text B var <biến tệp>:text; C var <tên tệp>:string; D var <biến tệp>:string; Câu 9: Để gán tên tệp cho biến tệp ta sử dụng câu lệnh:
A <biến tệp>:=<tên tệp> B <tên tệp>:=<biến tệp>;
C assign(<biến tệp>,<tên tệp>); D assign(<tên tệp>,<biến tệp>); Câu 10: Câu lệnh dùng thủ tục ghi có dạng:
A Writeln(<biến tệp>, <danh sách kết quả>); B Writeln(<danh sách kết quả>,(<biến tệp>); C Writeln(<biến tệp>); D Writeln(<danh sách kết quả>);
Câu 11: Muốn khai báo x tham số giá trị, y, z tham số biến (x, y, z thuộc kiểu integer) thủ tục có tên “KDT” khai báo sau đúng?
A procedure KDT(x, y, z :integer); B Procedure KDT(var x, y, z :integer) ; C procedure KDT(x: integer; var y, z:integer) ;
D procedure KDT(var x: integer; y, z:integer) ;
Câu 12: Giả sử ta có hàm USCLN(A,B:integer):integer; để tìm ước số chung lớn A B Cần sử dụng hàm USCLN để tìm ước số chung lớn bốn số A, B, C, D ? A USCLN(A,B,C,D); B USCLN(USCLN(A;B);USCLN(C,D)); C USCLN(A;B;C;D); D USCLN(USCLN(USCLN(A,B),C),D); Câu 13: Trong chương trình sau đây, chương trình chuẩn thủ tục chuẩn?
A Sin(x); B Length(S); C Sqrt(x); D Delete(S,5,1) Câu 14: Xét chương trình sau:
Var a,b:longint; f:text; begin
(2)assign(f, ‘A.TXT’); rewrite(f); a:=12; b:=3;
writeln(f,a, ‘ x ‘,b, ‘ = ‘, a*b); close(f);
end
Sau thực chương trình, tập tin ‘A.TXT’ có nội dung nào?
A 36; B 12 x = 36; C a x b = 36; D Tất A, B, C sai II TỰ LUẬN: (3 điểm)
Bài 1: (1 điểm) Viết hàm ChiaHet(a,b:integer):boolean; để kiểm tra số nguyên a có chia hết cho số b hay khơng (hàm trả giá trị TRUE số nguyên a chia hết cho số b, hàm trả về giá trị FALSE số nguyên a không chia hết cho b).
Bài 2: (2 điểm) Cho 20 số nguyên ghi tệp văn ‘A.INT’, viết chương trình đọc 20 số ngun ghi tệp ‘B.OUT’ phần tử có giá trị dương tính tổng chúng.
BÀI LÀM
……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… SỞ GD&ĐT QUẢNG NINH
(3)Môn: Tin - Khối 11
Thời gian: 45 phút (Không kể thời gian giao đề) Họ tên: Lớp: 11 SBD: Điểm:
I TRẮC NGHIỆM: (7 điểm)
Câu 1: Chọn khai báo cho khai báo xâu kí tự có tên Name chứa tối đa 50 kí tự? A Var Name: String(50); B Var Name: String;
C Var Name: String[50]; D Var Name = String[50]; Câu 2: Hãy cho biết kết phép ghép xâu: ‘que ’ + ‘huong’ + ‘toi’ là:
A que toi huong B que huong toi C quehuongtoi D que huongtoi Câu 3: Cho St:= ‘Chao cac ban’ Kết hàm length(St) là:
A 11 B 13 C 10 D 12
Câu 4: Cho xâu kí tự sau: a:= ‘nguyen du’ Lệnh sau cho kết ‘nguyen ’ :
A Copy(a,4,2); B Copy(a,6,5); C Delete(a,8,2); D Delete(a,7,3); Câu 5: Giả sử: st:=’Thuan Hoa’; hàm Pos(‘n’,st); cho kết là:
A B C D 5
Câu 6: Cho xâu a:= ‘nguyen binh’ Lệnh sau cho kết ‘nguyen ’
A Delete(a,7,4); B Copy(a,1,7); C Delete(a,7,5); D Copy(a,1,6); Câu 7: Cho S1:= ‘abc’; S2:= ‘def’ Kết thủ tục Insert(S2,S1,3) là:
A ‘abdefc’ B ‘abcdef’ C ‘abdef’ D ‘abedfc’ Câu 8: Trong Pascal, để khai báo biến tệp văn ta sử dụng cú pháp:
A var <tên tệp>:text B var <biến tệp>:text; C var <tên tệp>:string; D var <biến tệp>:string;
Câu 9: Để gán tên tệp cho biến tệp ta sử dụng câu lệnh:
A <biến tệp>:=<tên tệp> B <tên tệp>:=<biến tệp>;
C assign(<biến tệp>,<tên tệp>); D assign(<tên tệp>,<biến tệp>); Câu 10: Câu lệnh dùng thủ tục ghi có dạng:
A Writeln(<biến tệp>, <danh sách kết quả>); B Writeln(<danh sách kết quả>,(<biến tệp>); C Writeln(<biến tệp>); D Writeln(<danh sách kết quả>);
Câu 11: Muốn khai báo x tham số giá trị, y, z tham số biến (x, y, z thuộc kiểu integer) thủ tục có tên “KDT” khai báo sau đúng?
A procedure KDT(x, y, z :integer); B Procedure KDT(var x, y, z :integer) ; C procedure KDT(x: integer; var y, z:integer) ;
D procedure KDT(var x: integer; y, z:integer) ;
Câu 12: Giả sử ta có hàm USCLN(A,B:integer):integer; để tìm ước số chung lớn A B Cần sử dụng hàm USCLN để tìm ước số chung lớn bốn số A, B, C, D ? A USCLN(A,B,C,D); B USCLN(USCLN(A;B);USCLN(C,D)); C USCLN(A;B;C;D); D USCLN(USCLN(USCLN(A,B),C),D); Câu 13: Trong chương trình sau đây, chương trình chuẩn thủ tục chuẩn?
A Sin(x); B Length(S); C Sqrt(x); D Delete(S,5,1)
Câu 14: Xét chương trình sau: Var a,b:longint;
(4)begin
assign(f, ‘A.TXT’); rewrite(f); a:=12; b:=3;
writeln(f,a, ‘ x ‘,b, ‘ = ‘, a*b); close(f);
end
Sau thực chương trình, tập tin ‘A.TXT’ có nội dung nào?
A 36; B 12 x = 36; C a x b = 36; D Tất A, B, C sai II TỰ LUẬN: (3 điểm)
Bài 1: (1 điểm) Viết hàm ChiaHet(a,b:integer):boolean; để kiểm tra số nguyên a có chia hết cho số b hay khơng (hàm trả giá trị TRUE số nguyên a chia hết cho số b, hàm trả về giá trị FALSE số nguyên a không chia hết cho b).
Bài 2: (2 điểm) Cho 20 số nguyên ghi tệp văn ‘A.INT’, viết chương trình đọc 20 số ngun ghi tệp ‘B.OUT’ phần tử có giá trị dương tính tổng chúng.
BÀI LÀM Bài 1:
Function Chihet(a,b:integer):boolean; Begin
If a mod b = then chiahet:=true else chiahet:=false; End;
Bài 2:
Program B2;
Var a:array[1 20] of integer; i, s: integer; f,g:text;
Begin
Assign(f,'e:\A.INT'); reset(f);
Assign(g,'e:\B.OUT'); rewrite(g); s:=0; For i:=1 to 20 read(f,a[i]);
write(g,'Cac so duong day la:'); For i:=1 to 20 if a[i] >0 then begin
write(g,a[i],' '); s:=s+a[i]; end;
write(g,' Tong cac so duong:',s); close(f); close(g);