Đề khảo sát chất lượng học sinh giỏi môn Tin học Lớp 8 - Năm học 2018-2019 - Phòng GD&ĐT huyện Nho Quan (Có đáp án)

UBND HUYỆN NHO QUAN
PHÒNG GIÁO DỤC VÀ ĐÀO TẠO
ĐỀ THI CHÍNH THỨC
ĐỀ KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI 
Năm học 2018 - 2019
MÔN: TIN HỌC 8
 (Thời gian làm bài 120 phút)
Đề thi gồm 04 câu, trong 02 trang
Yêu cầu kỹ thuật:
Sử dụng ngôn ngữ Pascal.
Các tệp tin được đặt tên chính xác như sau:
Bài
Tên tệp
Dữ liệu vào
Dữ liệu ra
1
Bai1.pas
Bàn phím
Màn hình
2
Bai2.pas
Bàn phím
Màn hình
3
Bai3.pas
Bàn phím
Màn hình
4
Bai4.pas
Bàn phím
Màn hình
Bài 1 (7,0 điểm):
	Nhập vào 4 số a,b,c,d. (a,b,c,d<=106); In ra số lớn nhất.
Ví dụ: 
Bàn phím
Màn hình
3 12 4 29
29
-3 8 4 2,9
8
5 6 7 8 18,9
18,9
Bài 2 (5,0 điểm):
	Tính tổng n số tự nhiên lẻ đầu tiên, với n nhập từ bàn phím. (n<=103).
Ví dụ: 
Bàn phím
Màn hình
3
9
5
25
40
1600
Bài 3 (5,0 điểm): 
Nhập một mảng A có n phần tử, với n và các phần tử của mảng nhập từ phím. In ra tổng các số lẻ có trong mảng. (n<=103, A[i]<=106).
Ví dụ: 
Bàn phím
Màn hình
n = 3
A[1] = 3
A[2] = 4
A[3] = 7
10
Bàn phím
Màn hình
n = 4
A[1] = 23
A[2] = -4
A[3] = -9
14
Bài 4. (3,0 điểm). 
Phép tính mod là phép chia lấy dư. (Ví dụ: 5 mod 3 = 2; 6 mod 3 =0).
Tính kết quả của phép tính sau:
S= mn mod k.
Với m, n, k nhập từ bàn phím. (m, n<=106; k<=103).
Ví dụ: 
Bàn phím
Màn hình
m = 5
n = 2
k = 24
1
m = 5
n = 16
k = 8
------------------Hết------------------
Họ và tên thí sinh.....................................................Số báo danh.............................................
Họ và tên chữ kí giám thị 1
Họ và tên chữ kí giám thị 1
UBND HUYỆN NHO QUAN
PHÒNG GIÁO DỤC VÀ ĐÀO TẠO
HƯỚNG DẪN CHẤM KSCL HỌC SINH GIỎI 
MÔN: TIN HỌC 8
Năm học 2018 - 2019
CHƯƠNG TRÌNH THAM KHẢO
Bài 1.
PROGRAM bai1;
VAR a,b,c,d,max: LONGINT;
BEGIN
 write('Nhap a,b,c,d=');readln(a,b,c,d);
 max:=a;
 IF max<b THEN max:=b;
 IF max<c THEN max:=c;
 IF max<d THEN max:=d;
 write('Max=',max);
 readln;
END.
Bài 2.
PROGRAM bai2;
VAR s,n,i,j: LONGINT;
BEGIN
 write('n= ');read(n);
 j:=1;s:=0;
 FOR i:=1 TO n DO
 BEGIN
 s:=s+j;
 j:=j+2;
 END;
 write('S= ',s);
 readln;
END.
Bài 3.
PROGRAM bai3;
VAR s,n,i: LONGINT;
 a: ARRAY[1..1000] OF LONGINT;
BEGIN
 s:=0;
 write('n= ');readln(n);
 FOR i:=1 TO n DO
 BEGIN
 write('A[',i,']= ');readln(A[i]);
 END;
 FOR i:=1 TO n DO
 IF A[i] MOD 2 0 THEN S:=S+A[i];
 write('S= ',S);
 readln;
 END.
Bài 4.
PROGRAM bai3;
VAR i,m,n,lt,k: LONGINT;
BEGIN
 write('m= ');readln(m);
 write('n= ');readln(n);
 write('k= ');readln(k);
 lt:=1;
 FOR i:=1 TO n DO
 BEGIN
 lt:=lt*m;
 lt:=lt MOD k;
 END;
 write('S=',lt);
 readln;
END.