Đề 1 thi khảo sát chất lượng học sinh giỏi lần 2 môn tin học 8 năm học 2015 - 2016 thời gian: 90 phút

TRƯỜNG THCS QUẢNG HÒA
 TỔ KHTN
ĐỀ THI KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI LẦN 2
MÔN TIN HỌC 8
NĂM HỌC 2015-2016
Thời gian: 90 phút
I. NỘI DUNG ĐỀ
Bài 1: (3 điểm) Nhập vào n, đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7. 
Bài 2: (3 điểm) Nhập vào một xâu rồi đếm xem xâu đó có bao nhiêu từ (từ được phân cách nhau bởi dấu cách).
Bài 3: (4 điểm) Nhập vào một dãy. In dãy theo thứ tự tăng dần, đếm và in số lần xuất hiện của một số x bất kỳ, in ra màn hình các số lớn hơn và nhỏ hơn x.
-------------------------hết-------------------------
TRƯỜNG THCS QUẢNG HÒA
 TỔ KHTN
KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI LẦN 2
MÔN TIN HỌC 8
NĂM HỌC 2015-2016
Thời gian: 90 phút
---------------------------------------------------------------
II. ĐÁP ÁN
Bài 1:
program dem_so;
uses crt;	0,25đ
var i,dem,n:integer;
begin
 clrscr;
 write('nhap vao mot so n =');	0,5đ
 readln(n);	
 dem:=0;	0,25đ
 for i:=1 to n do	0,5đ
 if(i mod 7)=0 then dem:=dem+1;	1,0đ
 writeln('tu 1 den ', n ,' co ', dem ,'so chia	 het cho 7');
 readln	0,5đ
end.
Bài 2: 
program chuoi;
uses crt;
var st:string;
 dem,i:integer;
{ xóa kí tự trắng đầu, cuối, giữa}
begin
clrscr;
write('nhap chuoi:');
readln(st);
if st[1]='' then
dem:=0
else dem:=1;
for i:=1 to length(st) -1 do
if (st[i]=' ') and( st[i+1]' ') then dem:=dem+1;
write(' cac tu xuat hien trong chuoi la: ', dem);
readln
end.
Bài 3: 
program sapxep;
var A:array[1..50] of integer;
 n,i,x,j,t,dem:integer;
begin
write('nhap cac phan tu cua day so:');readln(n);
for i:=1 to n do
 begin
 write('a[',i,'] =');readln(a[i]);
 end;
{sap xep day so}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
 t:=a[i];
 a[i]:=a[j];
 a[j]:=t;
 end;
 writeln('day sau khi sap xep la');
for i:=1 to n do
write(a[i]:4);
readln;
{dem so lan xuat hien}
write('nhap x=') ;readln(x);
dem:=0;
for i:=1 to n do
if a[i]=x then dem:=dem+1;
write('so lan xuat hien cua ',x ,' la', dem);
readln;
{cac phan tu <=x}
write('cac phan tu <=', x ,'la');
for i:=1 to n do
if a [i]<=x then
write(a[i]:4);
readln;
{cac phan tu >x }
write('cac phan tu >', x ,' la');
for i:=1 to n do
if a[i]> x then
write(a[i]:4);
readln
end.
------------ hết------------
Quảng Hòa, ngày 20 tháng 4 năm 2016
 GV ra đề và đáp án
 Đinh Thị Giang