THI THU MON TIN

TRƯỜNG THPT ….


(Đề thi gồm có 01 trang)
ĐỀ THI .............
NĂM HỌC .........
MÔN: TIN HỌC
Thời gian làm bài: 180`
--------*--------


Câu 1: (04 điểm)
Cho tệp LINE.TXT, mỗi dòng chứa một xâu không quá 255 kí tự. Hãy lập trình tạo tệp LINE.DAT chứa các xâu ở tệp LINE.TXT, nhưng mỗi xâu đã được chuẩn hóa theo các quy tắc sau:
Xóa tất cả các dấu cách đầu và cuối xâu;
Nhiều dấu cách liên tiếp (nếu có) được thay bằng một dấu cách duy nhất.
Câu 2: (04 điểm)
Cho dãy N số nguyên (1
N
10000) A1, A2 … , AN. Hãy lập trình:
Đọc tệp văn bản SUBSEQ.INP:
+ Dòng đầu tiên chứa hai số nguyên N, K
1;
+ Các dòng sau: chứa các số nguyên Ai, các số cách nhau ít nhất một dấu cách hoặc nhóm dấu xuống dòng.
- Tìm đoạn dài nhất các phần tử liên tiếp nhau cùng chia hết cho một số nguyên K. Đưa ra tệp văn bản SUBSE.OUT một số nguyên xác định độ dài đoạn lớn nhất tìm được.
Ví dụ:
SUBSEQ.INP
SUBSEQ.OUT

3 5
6 10 15
2

Câu 3: 2 điểm
Cho dãy gồm n số nguyên a1, a2…, an
Yêu cầu: Cho biết dãy số trên có lập thành cấp số cộng hay không?
Dữ liệu vào: từ file BAI3.INP
Dòng đầu tiên ghi số n
Dòng tiếp theo lần lượt ghi n số a1, a2…, an
Các số trên cùng một dòng được ghi cách nhau ít nhất một dấu cách trống.
Kết quả: ghi ra file BAI3.OUT như sau:
Số 1 - Nếu dãy số là cấp số cộng;
Số 0 - Nếu dãy số không phải là cấp số cộng.
Ví dụ:
BAI3.INP
BAI3.OUT

4 5 6
1


BAI3.INP
BAI3.OUT

-3 4 5
0


----------------Hết----------------



TRƯỜNG THPT ….

THANG ĐIỂM VÀ HƯỚNG DẪN CHẤM ĐỀ THI .......
NĂM ......
MÔN: TIN HỌC
Thời gian làm bài: 180`
--------*--------

Câu 1: 4 điểm: chương trình tham khảo
program bai1;
uses crt;
var s:string;
ls,i:integer;
fi,fo:text;
Begin
clrscr;
assign(fi,`LINE.TXT`);
reset(fi);
assign(fo,`LINE.DAT`);
rewrite(fo);
While not eof(fi) do
Begin
readln(fi,s);
i:=pos(` `,s);
while i<>0 do
Begin
delete(s,i,1);i:=pos(` `,s)
end;
ls:=length(s);
if s[1]=` ` then
Begin
delete(s,1,1); ls:=ls-1;
end;
if (ls>0) and (s[ ls]=` `) then delete(s,ls,1);
Writeln(fo, s);
end;
close(fi);
close(fo);
End.
Câu 2: 4 điểm: chương trình tham khảo
program cau2;
var f:text;
i, a, n, k, s, max: integer;
change: boolean;
BEGIN
assign(f, `SUBSEQ.INP`);
reset(f);
readln(f,n,k);
change:=false;
s:=0;
max:=0;
for i:=1 to n do
Begin
read(f,a);
if a mod k = 0 then
if change then inc(s)
else
Begin
change:=true;
s:=1;
end
else
if change then
Begin
change:= false;
if s> max then max:=s;
s:=0;
end;
end;
close(f);
assign(f,`SUBSEQ.OUT`);
rewrite(f);
Writeln(f,max);
close(f);
End.

Câu 3: 2 điểm: chương trình kiểm tra dãy số có phải là cấp số cộng tham khảo
Program Bai3; Var A:Array[1..100] of Integer; N,i:Integer;