ĐỀ Thi HSG cấp trường lần 1

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;
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