Chuẩn bị thi hsg tin 9 Tỉnh (thành phố)

[chutieukhocnhe]

ông này bóc phét ớn....tui đọc bài trước thấy ổng nói là đi thi kì này (19,3,09) mà khi lấy đề thì bị GT lấy lại.....
ấy vậy mà giờ nói như vầy là sao? hỏng lẽ you thi mà hỏng nhớ gì à????

Em đâu dám bóc phét gì đâu. Em thi thì đơn nhiên em cũng có nhớ nhớ một chút về cái đề chứ nhớ ko hoàn chỉnh, em chỉ nhớ bài 1, và sơ sơ bài 2, còn bài 3 thì quên rồi... Có anh, chị nào còn nhớ đề post lên đỡ, nhớ gì chút xíu cũng dc.

Em nhớ bài 1 là vầy.
Xét 1 thuật toán sau:
1. Đọc N
2. Nếu N=1 thì d=1 Stop
3. Nếu N chia hết cho 2 thì N=N/2 d:=d+1
4. Ngược lại N không chia hết cho 2 thì N=(N*3)+1 d:=d+1
D là chu kỳ của N.
Ví dụ: N=22
Chu kỳ của N sẽ là : 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
Vậy chu kỳ của 22 sẽ là 16
Dữ liệu vào :
1 dòng duy nhất chứ 2 số i và j
Yêu cầu:
Tìm số có chu kỳ nhỏ nhất và số có chu kỳ lớn nhất trong các số từ i đến j
Kết quả:
Xuất ra file out là max + min.

[Mr.Truong]

Mình cũng đi thi nè. Nhưng khác tỉnh. Cho mình thử sức giải bài này nha. Tay nghề non kém có gì xin chỉ bảo. Nhưng cái đề cho hình như là thiếu n,i,j là số nguyên.
Uses crt;
Const inp='chuki.inp';
out='chuki.out';
Var n,d,i,j,max,min:Integer;
Procedure Nhap;
Var f:Text;
Begin
Assign(f,inp);Reset(f);
Readln(f,i,j);
Close(f);
End;
Procedure Xuat;
Var f:Text;
BEgin
Assign(f,out);Rewrite(f);
write(f,min+max);
Close(f);
End;
Procedure Xuly;
Var b,m,a,n:Integer;
BEgin
n:=i;
If n=1 then d:=1
Else Repeat
If (n mod 2)=0 then
BEgin
n:=n mod 2;
d:=d+1;
End
Else Begin
n:=(n*3)+1;
d:=d+1;
End;
Until n=1;
a:=d;b:=a;max:=a;min:=max;
n:=i+1;m:=n;d:=0;
Repeat
If n=1 then d:=1
Else Repeat
If (n mod 2)=0 then
BEgin
n:=n div 2;
d:=d+1;
End
Else Begin
n:=(n*3)+1;
d:=d+1;
End;
Until n=1;
If d>a then
Begin
max:=m;a:=d;
End
Else If d<b then
Begin
min:=m;b:=d;
End;
d:=0;
m:=m+1;
n:=m;
Until n=(j+1);
End;
Begin
clrscr;
Nhap;
Xuly;
Xuat;
Readln;
End.

[chutieukhocnhe]

Có kết quả rồi. Tui rớt rồi. Mai đi tự tử (Đập đầu vô gối)

[bld]

thi rớt thì ta lên mạng tìm mấy cái đề của tỉnh khác , rồi cười cho đã ( không phải cái nào cũng cười dc ), hồi hè tui thi rới , buổi chiều hôm đó , trời tối sầm , gió thì thổi lạnh , trời đổ mưa , khung cảnh thì u sầu ảm đạm , thê lương , tui ngồi trên ghế đá 1 mình , tưởng tượng ra một cái đề dễ , một mình tui làm dc, tui đi thi quốc tế,...
-xin lỗi đã spam - i'm a spamer- del my posts

[eyeshield17]

Hên quá, mình đậu ! Ăn mừng thui <:-P

[truongmaitrang]

Mình cũng đậu. nhưng được 15/20
đề của tỉnh Khánh Hòa ớn thật đấy.
Khi nào mình rãnh sẽ post lên cho các bạn tham khảo.

[=========> Bổ sung bài viết <=========]

Bài 2 đề thi tỉnh Khánh Hòa 2008-2009
Bài này mình làm ko được đây (7/20 đ)
Cho N tập hợp các số nguyên (kiểu byte) (2<=N<=10). Nếu 02 tập hợp có chung ít nhất 1 phần tử, ta nói rằng chúng có đường đi sang nhau (liên thông nhau). Trong N tập hợp đã cho, hãy tìm mọi đường đi từ một tập thứ nhất tới tập thứ hai (có thể thông qua các tập khác)
Vd:
N=5
1 2 3 4 5
6 7
6 10
8 9 12
11 12 17
Kết quả:
Duong di 1: 2 3
Duong di 2: 3 2
Duong di 3: 4 5
Duong di 4: 5 4

Nếu không có thì thông báo "KHONG CO"
(dữ liệu vào và ra được lưu trong các tệp tin...)

[bld]

đồ thị , mình chưa đọc nhiều về cái này nhưng code thì chắc dc , nhưng không đúng theo profesinal style ,
nếu không dùng đến con trỏ hay kiến thức khác thì mình sẽ làm như thế này
lấy bộ test :
A=1 2 3 4 5
B=6 7
C=6 10 8 17
D=8 9 12
E=11 12 17
đầu tiên đưa các tập hợp vào mảng record 1 chiều : trong đó
s: là tên tập hợp
m là các tập hợp mà s liên thông trực tiếp
ta có mảng

s A     B      C      D      E
m 0     C      BDE    E      D

[dancuipascal]

thứ 4 tuần sau mình thi tĩnh....chắc chết wa .....còn 2 bài chưa làm ra àh post lên òi mà chưa có ai trả lời cứu với !!!

[=========> Bổ sung bài viết <=========]

em có 2 bài này khó mong anh chị giúp đỡ
Bài 1: nhập vào 1 dãy số gồm n kí tự rồi nhập vào 1 số chèn số đó vào dãy sao cho dãy đó có fần tử 1 đến x ko đổi
vd inp:1 2 4 3 x=5
oup:1 2 4 5 3
Bài 2:nhập vào 1 mảng gồm n fần tử rồi nhập vào m(m<=n) tìm mãng con trong n gồm m fần tử sao cho có giá trị tổng lớn nhất.
INP:n=5; 1 2 3 4 2 m=3
out:3 4
giúp em với nhak còn 3 ngày nữa thôi......

[bld]

Bài 2 : sao m=3 mà ra có 2 số ?
bài 1 để chưa rõ , không thấy số chèn vào đâu cả

[dancuipascal]

á nhầm...SR nhak mà bài này mình làm đc rồi.....còn bài 1 nữa mình post lên cho mọi người xem có ji sai sót ko nhak:
propram BT;
uses crt;
var a:array[1..100]of integer;
max,i,m,n,j,k,s:integer;
begin clrscr;
write('nhap so phan tu co trong day:');readln(m);
for i:=1 to m do begin
write('nhap phan tu thu ',i,':');readln(a[i]);
end;
write('nhap so phan tu trong day con:');readln(n);
for i:=1 to n-1 do
max:=max+a[i];
for i:=2 to m-n+1 do
begin s:=0;
for j:=i to n+i-1 do
s:=s+a[j];
if s>max then begin max:=s;k:=i;
end;end;
for i:=k to k+n-1 do
write(a[i],' ');
readln;
end.

[=========> Bổ sung bài viết <=========]

còn 1 bài nữa cứu trợ với còn 2 ngày thui àh....cứu với các bạn ơi

[=========> Bổ sung bài viết <=========]

vd nhập dãy mẹ gồm 5 fần tử a[1]=1 a[2]=3 a[3]=4 a[4]=6 a[5]=4
số cần chèn vào là 5 thì sẽ cho kết quả là 1 3 4 5 6 4

[=========> Bổ sung bài viết <=========]

Chết wa maj thi òy mà đã có ai chỉ bảo đâu ....

[=========> Bổ sung bài viết <=========]

Hey zo....làm đc cả 2 bài òy... post lên cho các bác kiểm tra nhak:
program BT1;
uses crt;
Var a:array[1..100]of integer;
i,n,k,j,x:integer;
Begin Clrscr;
Write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
Write('nhap phan tu thu ',i,':');readln(a[i]);
end;
Write('nhap so can chen:');readln(x);
k:=1;i:=1;j:=1;
while a[i]<x do inc(i);
While a[j]<a[j+1] do inc(j);j:=j+1;
if i>j then k:=j else k:=i;
begin
if k=n then n:=n-1;
for j:=n+1 downto k do
a[j]:=a[j-1];a[k]:=x;
end;
for i:=1 to n+1 do
write(a[i],' ');readln;
end.