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... Bài 2: program uses var.[r]
Trang 1TRƯỜ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.
Trang 2
-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;
var i,dem,n:integer;
begin
clrscr;
write('nhap vao mot so n ='); 0,5đ
readln(n);
if(i mod 7)=0 then dem:=dem+1; 1,0đ
writeln('tu 1 den ', n ,' co ', dem ,'so chia het cho 7');
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;
Trang 3writeln('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