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

[GIANGVI]

Mình còn cách khác, CỰC KÌ DỄ LÀM (mình nghĩ có thể là dễ nhất), TỐI ƯU (trong 1 vài trường hợp )nhưng CHẠY HƠI LÂU (với số nhỏ thì có lẽ cũng = cách đệ quy) nhưng nói chung cũng còn nhiều hạn chế:

vd n = 3

{--------------}

function strg(x:integer):string;
var k:string;
begin
str(x,k);
strg:=k;
end;



begin
check:=true;
x:=strg(123);
for i:=123 to 999 do
begin
c:=strg(i);
for dem:=1 to 3 do
if pos(x[i],c)<=0 then check:=false;
if check:=true then write(c);

end;

khá hài phải ko =)) =)) nhưng rất tiện dụng trong trường hợp ko biết đệ quy =))

[dancuipascal]

Mình cũng chuẩn bị thi HSG Tỉnh nên cũng có 2 bài nhỏ mượn cái room của bạn lun nhak !! có 2 bài sơ sơ nà .... nhập vào 1 xâu kí tự in ra từ dài nhứt và bàu 2 là : sắp xếp các từ theo bảng mã! sr nhak máy mình có lổi tạo bài mới ko đc fải làm thế này :d :d

[truongmaitrang]

Từ dài nhất đây

var s,s1:string;
    a:array[1..128]of string;
    i,j,max:integer;
begin
readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)>0 do delete(s,pos(#32#32,s),1);
j:=1;
for i:=1 to length(s) do
    begin
    if s[i]<>#32 then a[j]:=a[j]+s[i]
       else inc(j);
    end;
max:=length(a[1]);
for i:=1 to j do
    if length(a[i])>max then max:=length(a[i]);
writeln('(cac) tu dai nhat: (co ',max,' ky tu:)');
for i:=1 to j do
    if length(a[i])=max then writeln(a[i]);
readln;
end.

Còn bài 2 mình ko hiểu đề.

[tungnk1993]

@truongmaitrang : Bài có chút lỗi , nếu nhập xâu toàn dấu cách thì không chạy đc . Xem lại nhé .
Từ dài nhất cách # đây :

Program longest_word;
Uses CRT;
Var S:String;
i,j,k,n,d,b1,b2:Integer;
space:Boolean;
A:Array[1..300] of Integer;
Begin clrscr;
Write('Nhap xau ki tu : ');Readln(S);
space:=false;
For i:=1 to length(S) do
If S[i]=' ' then
Begin
space:=true;
break;
End;
if not space then Writeln('Tu dai nhat : ',S)
Else
Begin
A[1]:=0;
j:=1;
For i:=1 to length(S) do
If S[i]=' ' then
Begin
inc(j);
A[j]:=i;
End;
A[j+1]:=length(S)+1;
n:=j+1;
b1:=A[1];
b2:=A[2];
For i:=1 to n-1 do
If (A[i+1]-A[i])>(b2-b1) then
Begin
b2:=A[i+1];
b1:=A[i];
End;
if b1+1=b2 then Writeln('Ko co tu')
Else
Begin
Write('Tu dai nhat : ');
For j:=b1+1 to b2-1 do Write(S[j]);
End;
End;
Readln;
End.

[dancuipascal]

cam~ on ban nhak !!! cho mjnh hoi~ bai` nay` lun !! nhap vao 1 so nho~ hon 10000 in ra man hjnh xem so đó có bao nhiêu chử số và in ra tổng các chử số !! đặc biệt ko đc dùng mod và div ! cảm ơn trước

[hang_vt]

cam~ on ban nhak !!! cho mjnh hoi~ bai` nay` lun !! nhap vao 1 so nho~ hon 10000 in ra man hjnh xem so đó có bao nhiêu chử số và in ra tổng các chử số !! đặc biệt ko đc dùng mod và div ! cảm ơn trước

khai báo số đó là string đc k nhỉ . :d . gian lận tí

[bld]

bài cũng dễ nhưng ghét nhất cái đoạn không dùng mod & div, có mà ko xài thì hơi bị vấn đề về đầu óc
-> bạn có thể dùng hàm biến đổi số thành chữ và chữ thành số để làm
hình như là hàm str và hàm val
@ GIANGVI : nên chạy từ 123 -> 321 thôi , chạy từ 123-> 999 thì hơi phí
dù sao cách bạn cũng rất hay
@ dragonking : nhìn bài bạn là thấy sai , nhưng mình cũng copy vào máy mà chạy , cuối cùng thì cũng sai thật

[tao_may_star_94]

minh cung chuan bi thi Tinh
cac pan post bài hết lên xem nào
tôi rất cần sáng mai thi rùi

[chutieukhocnhe]

Ở Hồ Chí Minh city thi rồi, ai có cái đề không ? Hay là nhớ sao thì post lên đây, cho anh em tham khảo, cùng nhau giải lại. Đề ngày 19/03/2009 đó nha. Các bạn thấy sao , mình nói có đúng ko ?

[thuonghcm]

Ở Hồ Chí Minh city thi rồi, ai có cái đề không ? Hay là nhớ sao thì post lên đây, cho anh em tham khảo, cùng nhau giải lại. Đề ngày 19/03/2009 đó nha. Các bạn thấy sao , mình nói có đúng ko ?

ông này bóc phét ớn....tui đọc bài trước thấy nổ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ì à????