Bộ đề kiểm tra tổng hợp các môn

Tài liệu tham khảo về các đề thi kiểm tra nhiều môn năm học 2009 - 2010 dành cho học sinh Trung học phổ thông tham khảo.
Nội dung trích xuất từ tài liệu:
Bộ đề kiểm tra tổng hợp các môn MÔN TIN HỌC - LỚP 11 Thời gian: 150 phút (không kể thời gian giao đề)Câu 1: (5 điểm) Cho 2 tệp văn bản NGUYEN1.TXT và NGUYEN2.TXT, mỗi dòng của 2 tệp chứa 1 số nguyên. Hãylập trình tạo tệp văn bản NGUYEN12.TXT, những dòng đầu tiên là các dòng NGUYEN1.TXT, những dòngcòn lại là những dòng của tệp NGUYEN2.TXT?Ví dụ: NGUYEN1.TXT NGUYEN2.TXT NGUYEN12.TXT12 3 125 8 57 9 715 15 Câu 2: (7 điểm) 3 Cho tệp LINE.TXT, mỗi dòng chứa một xâu chứa không quá 8255 kí tự. Hãy lập trình tạo tệp LINE.DAT chứa các xâu ở tệp 9LINE.TXT. Nhưng mỗi xâu được chuẩn hóa theo quy tắc sau: - Xóa tất cả các dấu cách đầu và cuối xâu. - Nếu có nhiều dấu cách liên tiếp thì được thay bằng một dấu cách duy nhất. Ví dụ: LINE.TXT LINE.DAT ‘ a b cd ef ’ ‘a b cd e f’Câu 3: (8 điểm) a. Viết hàm tìm ước số chung lớn nhất ( USCLN) của 2 số nguyên dương a và b? (4 điểm) b. Viết thủ tục nhận đầu vào là một xâu S không quá 25 kí tự và đầu ra là tính chất của xâu S ( đốixứng hay không đối xứng). (4 điểm)Giải thích: Xâu đối xứng: đọc nó từ trái sau phải cũng như đọc từ phải sang trái.Ví dụ: Xâu ‘ abcdcba’ là xâu đối xứng ---------------Hét------------------ ĐÁP ÁN MÔN TIN HỌC 11 KỲ THI HỌC SINH GIỎI NĂM HỌC 2007 – 2008Câu 1: (5 điểm) NỘI DUNG ĐIỂMProgram bai1; 0,5Var a: integer; f1,f2,f12: text;BEGINAssign(f1,‘NGUYEN1.TXT’); 0,5 Reset(f1);Assign(f2,‘NGUYEN2.TXT’); 0,5 Reset(f2);Assign(f12,‘NGUYEN12.TXT’); 0,5 Rewrite(f12);While not eof(f1) do Begin 1,5 Readln(f1,a); Writeln(f12,a); End;While not eof(f2) do Begin Readln(f2,a); 1,5 Writeln(f12,a); End;END.Câu 2: (7 điểm) Nội dung ĐiểmProgram cau2; 0,5 uses crt; var s: string; ls, i: integer; f1, f2: text;BEGIN Clrscr; Assign(f1,‘LINE.TXT’); 0,5 Reset(f1); Assign(f2,‘LINE.DAT’); 0,5 Rewrite(f2); While not eof(f1) do Begin 1,5 Readln(f1,s); i:=pos(‘ ’,s); while i< >0 do 1 begin delete(s,i,1); i:=pos(‘ ’,s); end; ls:=length(s); if s[1]= ‘ ’ then 1,5 begin delete(s,1,1); ls:=ls-1; end; if (ls > 0) and (s[ls]= ‘ ’) then delete(s,ls,1); 1 writeln(f2,s); End;Close(f1);Close(f2); 0,5END.Câu 3: ( có 2 câu a và b, mỗi câu 4 điểm)a. (4 điểm) Nội dung ĐiểmFUNCTION USCLN(a,b: integer):integer; 0,5Var sodu: integer; 0,5BEGINWhile b< > 0 do 1 Begin sodu:=a mod b; 0,5 a:=b; 0,5 b:=sodu; 0,5 end;USCLN:=a;END; 0,5b. ( 4 điểm) Nội dung ĐiểmProcedure doixung(S: string[25]; var dx: Boolean); 0,5Var i,x: byte; p: string[25]; 0,5BEGINdx:= false; 0,25 ...