Bác nào có đề Tin học trẻ năm cũ post hộ em!

[johnceduy]

Dạ chào các bác, mai em đi thi rồi mà vẫn chưa hình dung đc đề sẽ cho thế nào, bác nào có đề năm cũ ở THPT cho em xin. Thank các bác!

[duyhung123abc]

Đề năm ngoái đây

Bài 1: Hỏi 1 số N có dạng 2*a + 3*b + 5*c hay ko? Sau đó in ra các số có dạng đó trong đoạn từ A đến B

Bài 2: Cho 1 biểu thức gồm các số và dấu + hoặc -. Hỏi biểu thức đó có đúng đắn ko? VD: "-3+2+5-6+7" là bt đúng, "3--2+5+7" và "+365+7+4+" là biểu thức sai.

Bài 3: Anh wên rồi

[duyhung123abc]

Đề năm trước nữa đây:

Bài 1: chắc cũng tương tự bài 1 năm ngoái
Bài 2: Cho 1 chuỗi các kí tự có độ dài N (N là bội số của 30). Người ta thực hiện lần lượt các thao tác như sau. 1 thao tác gồm 3 bước:
_B1: chia chuỗi thành các chuỗi con, mỗi chuỗi con độ dài 5 kí tự. Với mỗi chuỗi con ta đảo ngược nó lại, rồi lại ghép các chuỗi con lại theo thứ tự ban đầu.
_B2: chia chuỗi thành .................................................. 3 kí tự................
_B3: chia chuỗi thành .................................................. 2 kí tự................

Thực hiện thao tác K lần. Hỏi kí tự thứ i ban đầu sau K lần biến đổi sẽ chuyển đến vị trí thứ mấy?
Chú ý: dữ liệu chỉ cho biết số N là độ dài chuỗi chứ ko cho chuỗi cụ thể
VD: N=6 "123456" (ví dụ thôi, 30 chịu ko nổi)
thực hiện bước chia thành các nhóm 2 kí tự thì:
_Chia thành 3 nhóm "12" "34" "56"
_Đảo ngược "21" "43" "65"
_Ghép lại "214365"
Vậy
_Nếu i=1 thì in ra là 2 (vì kí tự ở vtrí 1 trong chuỗi đầu đã chuyển đến vtrí 2
_Nếu i=3 thì in ra là 4
_Nếu i=6 thì in ra là 5
.........................

Bài 3:
Cho N điểm trên mặt phẳng Oxy, điểm thứ i có tọa độ là (x_i ; y_i).
Sắp xếp các điểm sao cho điểm đứng sau có hoành độ x lớn hơn điểm đứng trước, trong trường hợp có 1 số đỉnh cùng hoành độ thì sắp tăng nó theo tung độ.

Good luck

[myhanh]

Năm 1997 anh đi thi thì đề có hai câu, anh không nhớ rõ đề chỉ nhớ ý chung thôi:
1) Là một bài sử dụng luật sinh: Họ định nghĩa một chuỗi có tính chất A theo chuỗi luật sinh P sau đó hỏi một chuỗi S có thuộc tính A hay không ?
2) Bài hai hình như là bài đồ thị. Tìm đường đi ngắn nhất trong một thành phố.

[duyhung123abc]

Thầy Tân ra đề thường liên quan đến Toán. Năm nay em đoán thầy ra bài nào đó dính dáng tới cái đề QG hoặc "chồng dãy"

[johnceduy]

Cho dãy a gồm n phần tử, gồm các số nguyên dương lớn hơn 1 ta gọi phần tử thứ j sẽ quan hệ theo sau phần tử thứ i khi i<j và a[i] là ước của a[j]. Người ta phân dãy a thành các dãy con bỏ đi 1 số phần tử dãy a giữ nguyên thứ tự, sao cho mọi phần tử trong 1 dãy con thỏa tính chất quan hệ theo sau đã định nghĩa. Yêu cầu tính dãy con dài nhất với quan hệ đã định nghĩa.
Dữ diệu dòng đầu là n, dòng 2 là n phần tử của a, dữ liệu ra gồm 1 dòng chỉ số các phần tử của dãy con dài nhất từ dãy a ban đầu.
Gợi ý em bài này nhá ^^!

[duyhung123abc]

Gọi F[i] là độ dài dãy con dài nhất thỏa 2 đk sau:
_ đk đề bài
_ dãy con đó kết thúc tại ptử thứ i

Giả sử ta đã tính đc đến F[x-1]. Ta lập công thức tính F[x]
Vì F[x] phải thỏa 2 đk phía tren nên ta phải tìm những thằng trước ptử thứ x và là ước số của ptử thứ x. trong những thằng thỏa đk, ta chỉ cần chọn thằng y có F[y] lớn nhất (có nghĩa F[y] là độ dài của dãy kết thúc tại y, vì y<x và A[y]<A[x] và A[y] là ước của A[x] nên ta thêm ptử A[x] vào cuối dãy con của A[y]) => F[x] = F[y]+1

begin
  readln(n);
  for i:=1 to n do read(A[i]);
  kq:=0;
  for x:=1 to n do
  begin
    getmax:=0;
    for y:=x-1 downto 1 do if (F[y]>getmax) and (F[x] mod F[y] = 0) then getmax:=F[y];
    F[x]:=getmax+1;
    if F[x]>kq then kq:=F[x];
  end;
  writeln(kq);
end.

[johnceduy]

Baøi 1: (3 ñieåm). Cho soá töï nhieân n>1 vaø n<10 vôùi toång S = 1/3+3/5+5/7+…+(2*n-1)/(2*n+1)
Yeâu caàu : Vieát chuwong trình nhaäp soá töï nhieân n>1 vaø n<10.
a) Hieän ra maøn hình toång S vôùi 4 chöõ soá thaäp phaân.
b)Hieän ra maøn hình toång S döôùi daïng phaân soá.
Baøi 2: (3 ñieåm). Cho chuoãi S chæ coù caùc chöõ soá 1,2,3,4 vaø ñuùng moät khoaûng traéng. Ngöôøi ta bieán ñoåi chuoãi S baèng caùch laáy moät chöõ soá ñoåi veà khoaûng traéng taïi vò trí chöõ soâ bò laáy ñi thaønh khoaûng traéng, tieáp tuïc ñoåi chöõ soá veà khoaûng traéng ñeán khi chuoãi S coù daïng caùc chöõ soá 1 ñeàu ôû ñaàu chuoãi, ñeán caùc chöõ soá 2, ñeán caùc chöõ soá 3, ñeán caùc chöõ soá 4 vaø khoaûng traéng ôû cuoái chuoãi, ngöôøi ta goïi laø chuoãi ñích.
Yeâu caàu: Nhaäp vaøo chuoãi S goàm caùc chöõ soá 1,2,3,4 vaø ñuùng moät khoaûng traéng. Haõy neâu ra laàn löôït caùc vò trí laáy chöõ soá ñoåi veà khoaûng traéng vôùi soá laàn laáy chöõ soá ít nhaát ñeå ñöôïc chuoãi ñích.
Ví duï: Nhaäp vaøo chuoãi S=1231234 1 ( kHoaûng traéng ôû vò trí thöù 8 trong chuoãi S)
Laàn löôït caùc vò trí laáy chöõ soá ñoåi veà khoaûng traéng: 7 3 4 2 9
Nghóa laø: Lần thứ 1 lấy chữ sốở vị trí thứ 7 đñổi về khoảng trắng, ta coù S=123123 41
Lần thứ 1 lấy chữ sốở vị trí thứ 7 đñổi về khoảng trắng, ta coù S=12 123341
Lần thứ 1 lấy chữ sốở vị trí thứ 7 đñổi về khoảng trắng, ta coù S=121 23341
Lần thứ 1 lấy chữ sốở vị trí thứ 7 đñổi về khoảng trắng, ta coù S=1 1223341
Lần thứ 1 lấy chữ sốở vị trí thứ 7 đñổi về khoảng trắng, ta coù S=11122334
Baøi 3: (4 ñieåm) Treân taäp soá nguyeân döôc ngöôøi ta cho pheùp toaùn * thoûa ñoàng thôøi caùc ñieàu kieän sau:
a)1*1=2
b) vôùi moïi m,n,k nguyeân döông =>m*(n+k)=(m*n).(m*k)
c) vôùi moïi m,n nguyeân döông =>(m+n)*1=(m*1)+(n*1)
Döïa vaøo caùc ñieàu kieän treân ngöôøi ta coù theå tính keát quaû cuûa pheùp toaùn * ,nhö:
+ Ñeå tính 3*1:
AÙp duïng ñieàu kieän c:3*1=(2+1)*1=2*1+1*1=(1+1)*1+1*1=1*1+1*1+1*1
Maø theo ñieàu kieän a: 1*1=2
Neân 3*1=2+2+2=6.
+Ñeå tính 1*2:
AÙp duïng ñieàu kieän b:1*2=1*(1+1)=(1*1).(1*1)
Maø theo ñieàu kieän a: 1*1=2
Neân 1*2=2*2=4
Yeâu caàu: Nhaäp vaøo hai soá nguyeân döông i,j. Haõy tính i*j.
Ví duï: Nhaäp vaøo i=2,j=3 ta coù 2*3=64

[johnceduy]

Mấy anh ơi, có sách nào chuyên viết về các thuật toán, những bài tập hay mấy anh giới thiệu em nhá

[duyhung123abc]

Bài số 3 dễ bị nhầm vì các tính chất đã cho ko có tính giao hoán.
VD
3*2 = 36
2*3 = 64
Đây là code bài số 3 của anh

Dùng cho free pascal

var
  i,j:int64;
(****************************)
function tinh(x,y:int64):int64;
begin
  if (y=1) then exit(x*2);
  exit(tinh(x,y-1)*(2*x));
end;
(******************************)
begin
  writeln('Nhap i,j: '); read(i,j);
  writeln('KQ: ',tinh(i,j));
end.

Dùng cho turbo pascal

var
  i,j:longint;
(****************************)
function tinh(x,y:longint):longint;
begin
  if (y=1) then tinh:=x*2
  else tinh:=tinh(x,y-1)*(2*x);
end;
(******************************)
begin
  writeln('Nhap i,j: '); read(i,j);
  writeln('KQ: ',tinh(i,j));
end.