ĐỀ Thi HỌc Sinh GiỎi Tin HỌc CẤp TỈnh VÒng 1 NĂm HỌc 2007-2008

[phanthuyen]

Bài 1: (5 điểm) Cho một lưới gồm n ô vuông được đánh dấu thứ tự từ 1 đến n. ban đầu mỗi ô vuông không chứa hòn sỏi nào, người ta bỏ vào cá cô vuông những hòn sỏi theo k lần qui tắc sau:
Mỗi lần bỏ thêm vào ô vuông thứ nhất, ô vuông thứ 2 mỗi ô đúng 1 hòn sỏi, từ ô vuông thứ 3 trở đi số hòn sỏi bỏ thêm vào bẳng tổng số hòn sỏi của các ô vuông phía trước.
Yêu cầu : Nhập vào số tự nhiên n, k, m (m ≤ n) trong đó n là số ô vuông của lưới, k là số lần thực hiện qui tắc. Hãy cho biết ô vuông thứ m có bao nhiêu hòn sỏi?


Ví dụ : Có n = 5, k = 3, m= 4. Thực hiện k lần qui tắc ta có

k=1 1 1 2 4 8

k=2 2 2 6 14 32

k=3 3 3 12 32 82

Với k=1 số hòn sỏi của từng ô vuông như trên
Với k=2 số hòn sỏi của từng ô vuông như trên
Với k=3 số hòn sỏi của từng ô vuông như trên
Ta được ô vuông thứ m=4 có số hòn sỏi là 32

Bài 2: (5điểm) Cho chuỗi S có n kí tự, để chọn kí tự đại diện cho chuỗi S người ta thực hiện qui tắc sau:
- Đếm kí tự liên tục theo chiều từ trái sang phải, hết chuỗi đếm tiếp kí tự từ đầu
- Đầu tiên kí tự thứ nhất đếm 1, đếm liên tục đến 5 bỏ kí tự tại vị trí này ra khỏi chuỗi S. Kí tự kế tiếp đếm 1, đếm đến 6 bỏ kí tự tại vị trí này ra khỏi chuỗi S. Kí tự kế tiếp đếm 1, đếm đến 5 bỏ kí tự tại vị trí này ra khỏi chuỗi S. Kí tự kế tiếp đếm 1, đếm đến 6 bỏ kí tự tại vị trí này ra khỏi chuỗi S.
… tiếp tục đến khi chuỗi còn đúng 1 kí tự, kí tự này là kí tự đại diện cho chuỗi S.
Yêu cầu : Nhập vào số tự nhiên n là số kí tự của chuỗi S. Hãy cho biết kí tự đại diện của chuỗi S là kí tự thứ mấy trong chuỗi S ban đầu.
Ví dụ: Nhập n=4 giả sử chuỗi S= ‘abcd’
Đầu tiên từ kí tự thứ nhất là a đếm 1, đếm đến 5 là kí tự a, bỏ kí tự này là kí tự a ra khỏi chuỗi S ta được S= ‘bcd’.
Kí tự kế tiếp là b đếm 1, đếm đến 6 là kí tự d, bỏ kí tự này là kí tự d ra khỏi chuỗi S ta có S= ‘bc’.
Kí tự kế tiếp là b đếm 1, đếm đến 5 là kí tự b, bỏ kí tự này là kí tự b ra khỏi chuõi S ta có S= ‘c’.
Vậy kí tự đại diện của chuỗi S là kí tự thứ 3 của chuỗi

[myhanh]

Sao đề dễ vậy, chắc là mọi người điểm cao hết phải không?

[Gem]

anh myhanh qua cái cái đề môn hóa kìa, nhìn là hết muốn giải, sao dễ vậy trời.

[DeMen]

Đề thi tỉnh vòng 1 thường ... dễ ngoài sức tưởng tượng, người đậu vòng 1 coi như là HSG cấp tỉnh, nhưng để được thi HSGQG thì phải qua vòng 2, mà vòng này thường khoai hơn vòng 1 nhiều lần.

[Vinh Loc 90A]

Nhìn vô muốn "nổ con mắt" mà la dễ. Dễ thì giải dùm đi!!! (Giải sai bọn nhỏ cười chết luôn đó.)

[HoaCucVang]

Nguyên văn bởi DeMen

Đề thi tỉnh vòng 1 thường ... dễ ngoài sức tưởng tượng, người đậu vòng 1 coi như là HSG cấp tỉnh, nhưng để được thi HSGQG thì phải qua vòng 2, mà vòng này thường khoai hơn vòng 1 nhiều lần.

Hình như cái này hơi bị đúng đó, khuyến khích mấy em mà. Đề này chỉ chú ý một chút là làm được hà. Anh Lộc đọc từ từ đừng có "nhìn" không như thế chứ, hèn chi muốn nổ đom đóm.

[92A01]

Đối với Mỹ Hạnh thì dĩ nhiên là dễ rồi.

[myhanh]

Bài số 2:

const Nmax=1000;
type
st=array[1..Nmax] of integer;
var index,len,n,i:integer;
    s:st;
procedure demx(var s:st;x:integer);
var i:integer;
begin
if len>1 then
begin
 {for loop}
 for i:=1 to x-1 do
  if index >= len then index:=1
  else
  begin
  inc(index)
  end;
 {end for loop}
 {delete a member at index from s}
 if index < len then
  for i:=index to len-1 do
  s[i]:=s[i+1]
 else
 index:=1;
 {decrease len by 1}
  dec(len);
end
end;
{end demx}

begin
index:=1;
write('n=');
readln(n);
if n > Nmax then
 write('Loi: Nhap n khong lon hon ',Nmax)
else
begin
if n <= 0 then
write('Khong xet khi n khong duong')
else
if n = 1 then
write('Ky tu dai dien la ky tu duy nhat cua chuoi')
else
begin
for i:=1 to n do
s[i]:=i;len:=n;
while len > 1 do
begin
demx(s,5);
demx(s,6)
end;
write(s[1]);
readln
end
end
end.

[myhanh]

Bài 1:

const
MAX=1000;
type
kieuluoi=array[1..MAX] of integer;
var luoi:kieuluoi;
    n,k,m,i:integer;
    s:integer;
procedure bosoi;
var i:integer;
begin
if n>=1 then
begin
 inc(luoi[1]);
 s:=luoi[1];
 if n>=2 then
   begin
        inc(luoi[2]);
        inc(s,luoi[2]);
        if n>2 then
                   for i:=3 to n do
                   begin
                   inc(luoi[i],s);
                   inc(s,luoi[i])
                   end
   end
end
end;
begin
readln(n,k,m);
if m > n then
writeln('m phai nho hon n')
else
begin
for i:=1 to n do
luoi[i]:=0;
for i:=1 to k do
bosoi;
write(luoi[m]);
readln
end;
end.