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

[chutieukhocnhe]

Buồn gì đâu mà buồn quá trời. Ở TP ko có điểm chị biết là đậu. Phải chi biết điểm để mình còn tức nữa chứ. Làm ngon lành 2 bài luôn mà sao rớt cái đùng . Buồn còn hơn thất tình nữa chứ.

[bastu]

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...)

hi, mình cũng ở Nha Trang nè, nhưng đang học DH trong TPHCM.

Trang cố lên nha, Khánh Hòa có truyền thống rất good môn tin trong các kỳ thi HSG quốc gia đó,

[truongmaitrang]

hi, mình cũng ở Nha Trang nè, nhưng đang học DH trong TPHCM.

Trang cố lên nha, Khánh Hòa có truyền thống rất good môn tin trong các kỳ thi HSG quốc gia đó,

Rất vui khi làm quen với bastu, mình ở Ninh Hòa khi nào vào Nha Trang bastu nhớ giới thiệu Nha Trang cho mình với nha.
Giờ mình chuẩn bị thi tin học trẻ không chuyên.
Đề thi gồm 2 phần lý thuyết (phần cứng, mạng, win. Dos, word, exel...) phần thực hành (pascal). mình đang lo phần lý thuyết.
Bạn nào có kinh nghiệm thi không chuyên thì chỉ bảo cho mình với!

[lilahura]

Bài toán sinh hoán vị vừa rồi mình có cách này các bạn xem sao hén nó trực quan hơn mấy cách kia của các bạn nhìu


uses crt;
var
a,b:array[1..1000] of integer;
n,i:integer;

procedure prt;
var i:integer;
begin
for i:=1 to n do
write(a[i]);
writeln;
end;

procedure dao(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;

procedure solve(k:integer);
var
i,j:integer;
begin
if k>n then prt;
for i:=k downto 1 do
begin
dao(a[i],a[k]);
solve(k+1);
end;
end;

begin
readln(n);
for i:=1 to n do
a[i]:=i;
b:=a;
solve(1);
readln;
end.

[ghostknight]

Mọi người cho mình hỏi, khi chuẩn hóa xâu thì làm sao để chuyển từ chữ viết hoa thành chữ thường vậy?

[dancuipascal]

for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='Z') then S[i]:=chr(ord(a[i])-32) lâu ngày mình chưa làm ko bjz đúng hay sai nữa.................Thông báo với mọi người luôn mình thj đc điểm tuyệt đối đó

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

á nhầm.............. đính chính lại chút nha
for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='Z') then S[i]:=chr(ord(s[i])-32)

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

for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='Z') then S[i]:=chr(ord(a[i])+32) chính xác nàk bạn...