Chào mừng quý vị đến với Website Phòng GD&ĐT Huyện Quảng Trạch.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
thi hsg lần 2
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Đinh Thị Giang (trang riêng)
Ngày gửi: 14h:57' 19-05-2016
Dung lượng: 33.0 KB
Số lượt tải: 187
Nguồn:
Người gửi: Đinh Thị Giang (trang riêng)
Ngày gửi: 14h:57' 19-05-2016
Dung lượng: 33.0 KB
Số lượt tải: 187
Số lượt thích:
0 người
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
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
Các ý kiến mới nhất