Đề thi tuyển sinh vào Lớp 10 môn Tin học - Đề 03 - Năm học 2018-2019 - Trường THCS Yên Mô (Có đáp án)

 MÃ KÍ HIỆU ĐỀ THI TUYỂN SINH LỚP 10 THPT
 Năm học: 2018 - 2019
 (PHẦN NÀY DO SỞ GD&ĐT MÔN: TIN HỌC
 GHI) Thời gian làm bài: 45 phút
 .. ( Đề thi gồm 02 bài, 01 trang)
 Yêu cầu chung: Chương trình được viết trên ngôn ngữ lập trình FREE PASCAL 
 Yêu cầu kỹ thuật: 
 * Các file chương trình và file dữ liệu được đặt tên chính xác như sau:
 Tên bài Tên chương trình Dữ liệu vào Dữ liệu ra
 Bài 1 BAI1.PAS CHIAHET.INP CHIAHET.OUT
 Bài 2 BAI2.PAS SA.INP SA.OUT
Bài 1(5.0 điểm). Chia hết.
 Cho hai số nguyên dương N, M (1 ≤ N ≤ 7;1 ≤ M ≤ 9999999).
 Yêu cầu: Hãy đếm xem có bao nhiêu số nguyên dương có N chữ số chia hết cho M.
 Dữ liệu vào: Trong file văn bản CHIAHET.INP ghi hai số nguyên dương N, M. Hai số này được 
ghi cách nhau một dấu cách.
 Dữ liệu ra: Ghi ra file văn bản CHIAHET.OUT số lượng các số nguyên dương có N chữ số chia 
hết cho M.
 Ví dụ:
 CHIAHET.INP CHIAHET.OUT
 2 10 9
 Bài 2 (5.0 điểm). Số âm lớn nhất
 9
 Cho một dãy gồm N số nguyên a1, a2, , aN, mỗi số có giá trị tuyệt đối không vượt quá 10 .
 Yêu cầu: Hãy tìm số nguyên âm X lớn nhất có trong dãy.
 Dữ liệu vào: Trong têp sa.inp dòng đầu tiên ghi số nguyên dương N(1 N 106). Dòng thứ 
 hai ghi dãy số a1; a2;  ; aN, các giá trị ai được cách nhau bởi một khoảng trắng.
 Dữ liệu ra: Trong tệp sa.out ghi số X tìm được. Trong trường hợp không có lời giải ghi ra số 
 0.
 Ví dụ: 
 SA.INP SA.OUT
 8 -1
 9 8 -3 -5 6 -4 7 -1
 DX.INP DX.OUT
 8 5
 2 3 4 5 4 3 1 7 3 4 5 4 3
 ---------------Hết--------------- MÃ KÍ HIỆU HƯỚNG DẪN CHẤM ĐỀ THI TUYỂN SINH VÀO 10 THPT
 (PHẦN NÀY DO SỞ Năm học: 2018 - 2019
 GD&ĐT GHI) MÔN: Tin Học
 (Hướng dẫn chấm gồm 03 trang)
 ..
 ĐÁP ÁN VÀ THANG ĐIỂM
1. Cấu trúc bộ test và thang điểm (Bộ test của mỗi bài kèm theo trong đĩa CD.).
 Bài Test Điểm
 Bài 1 Gồm 10 bộ test, mỗi bộ 0,8 điểm. 5,0 điểm
 Bài 2 Gồm 8 bộ test, mỗi bộ 1,0 điểm. 5,0 điểm
2. Bộ test chấm từng bài
 Bài 1 (Gồm 10 tets, mỗi test 0,5 điểm)
 Giới hạn 
 Bộ test CHIAHET.INP CHIAHET.OUT
 thời gian
 1 1 10 0 1s
 2 1 2 4 1s
 3 1 5 1 1s
 4 2 10 9 1s
 5 2 20 4 1s
 6 2 2 45 1s
 7 3 10 90 1s
 8 3 50 18 1s
 9 5 60 1500 1s
 10 7 20 450000 1s
Bài 2 (Gồm 10 tets, mỗi test 0,5 điểm)
 Giới hạn 
 Bộ test SA.INP SA.OUT
 thời gian
 4
 1 0 1s
 1 2 3 2
 4
 2 -11 1s
 -11 2 3 5
 5
 3 -2 1s
 1 1 1 1 -2
 5
 4 -12 1s
 6 1 -12 1 1
 10
 5 0 1s
 2 2 2 2 2 2 2 2 2 2
 5
 6 -10 1s
 0 1 1 1 -10 10
 7 -20 1s
 -20 2 2 2 2 2 2 2 2 2
 10
 8 -4 1s
 0 1 2 3 -4 5 6 7 -8 9
 10
 9 -3 1s
 -10 -20 -3 -4 -5 -6 -7 -8 -9 -10
 10
 10 -1 1s
 -100 -90 -80 -70 -6 -5 -4 -3 -2 -1
3. Chương trình nguồn.
 Bài 1
 Program Chia_het;
 Const fi='chiahet.inp'; fo='chiahet.out';
 Var i,P,q,N,m,dem:longint;
 Procedure doc;
 Var f:text;
 Begin
 Assign(f,fi);
 Reset(f);
 Readln(f,n,m);
 Close(f);
 End;
 Function mu(x,y:longint):longint;
 Var tich: Longint;
 Begin
 tich:=1;
 for i:=1 to y do
 tich:=tich*x;
 mu:=tich;
 End;
 Procedure XuLy;
 Var f:text;
 Begin
 Assign(f,fo);
 Rewrite(f);
 P:=mu(10,n-1);
 Q:=mu(10,n)-1;
 dem:=0;
 For i:= P to Q do
 If i mod M = 0 then
 dem:=dem+1; Writeln(f,dem);
 Close(f);
 End; BEGIN
 doc; xuly; END.
 Bài 2
const fi='sa.inp'; fo='sa.out';
var n, kq, i, x: longint;
 co: boolean;
 Begin
 assign(input,fi); 
 reset(input);
 assign(output,fo); 
 rewrite(output);
 co:=false;
 readln(n);
 kq:=-maxlongint;
 for i:=1 to n do
 begin
 readln(x);
 if (x<0) then
 begin
 co:=true;
 if (x>kq) then kq:=x;
 end;
 end;
 if co then writeln(kq) else writeln(0);
 End.
 --------------------Hết-------------------- PHẦN KÝ XÁC NHẬN
TÊN FILE ĐỀ THI: TI-03-TS10D-18-PG7.DOC
MÃ ĐỀ THI (DO SỞ GD&ĐT GHI):
TỔNG SỐ TRANG (ĐỀ THI VÀ HƯỚNG DẪN CHẤM) LÀ: 05 TRANG.
 NGƯỜI RA ĐỀ THI NGƯỜI THẨM ĐỊNH VÀ XÁC NHẬN CỦA BGH
 (Chữ ký, họ tên) PHẢN BIỆN CỦA TRƯỜNG (Chữ ký, họ tên, đóng dấu)
 (Chữ ký, họ tên)
 Vũ Đức Hiệp